VBAのDebugオブジェクトのPrintメソッド

DebugオブジェクトのPrintメソッド

DebugオブジェクトのPrintメソッドはダイアログボックスにメッセージとボタンを表示し、どのボタンが押されたかを示す整数型の数値を返します。引数promptに指定できる文字数は、１バイト文字で約1024文字です。ただし使用する文字の幅によって使用できる文字数は異なります。引数promptの中で強制的に改行する場合は、キャリッジリターン(Chr(13))とラインフィールド(Chr(10))を使用します。これらの文字はVisualBasicの定数として定義されていますので、vbCr(キャリッジリターン)、vbLf(ラインフィールド)、vbCrLf(キャリッジリターン＋ラインフィールド)を使用することもできます。引数buttonsには、次の定数を使用できます。

MsgBox関数とは

MsgBox関数は、指定した時間(ミリ秒間)だけ処理を中断することができる関数です。

MsgBox "メッセージ"

引数	省略	説明
構文	MsgBox Prompt ［,Buttons］［, Title］
milliseconds	×	休止するミリ秒値(1000ミリ秒＝1秒）


#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

こちらはSleep関数を利用するためのAPI宣言になります。API宣言Sleep関数を利用しますという宣言で必ず記述します。ここで注意点がありますが、API宣言を「IF～Thenステートメント」で分岐させているのが分かるかと思います。これは、office2010で64bit（ビット）版の場合は書き方が異なるため、「IF～Thenステートメント」でそれぞれAPI宣言をしています。手元のPC環境に合わせた書き方でも大丈夫ですが、汎用性を持たせるための記述になりますので、追記しておきましょう。
参考元は「32ビット版のOffice2010プログラムでVBAマクロを編集すると・・・」になりますので、一度確認してください。

もう1つ注意する点はSleep関数を利用している間は、EXCEL操作は一切行えません。処理中でも操作できるようにするには、DoEvents関数を利用する必要があります。こちらはWindowsに制御を移してくれる関数でループ処理などで利用する場合、プログラムが固まることがなくなります。

また、宣言ステートメントは、最初のプロシージャ宣言の前に配置する必要がありますので、一番上に記述してください。

Sleepで時間を止める

Sleep関数を利用して時間を止めます。

処理の3秒後にメッセージボックスを表示させるサンプルコード

こちらのサンプルコードは処理をするとSleep関数で3秒間処理を停止し、その後にメッセージボックスを表示させるマクロになります。


#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub sample()

　Sleep 3000

　msgBox "3秒間処理を止めました。"

End Sub