目次

目的

  • VBE(Visual Basic Editor)のイミディエイトウィンドウに文字を表示したい。
  • ループ処理の途中経過を表示してみる。

目次まで戻る

その一例

  1. Excel を起動します。
  2. 「Alt + F11」キーで「VBE」を起動します。
    VBE 起動直後。
    VBE 起動直後。
    イミディエイトウィンドウ。
    イミディエイトウィンドウ。
    1. イミディエイトウィンドウが表示されていない場合は、「表示 > イミディエイトウィンドウ」で表示されると思います。
  3. 標準モジュールを作成して下記マクロを実行してみます。
    Sub イミディエイトウィンドウに文字を表示()
    Debug.Print "ABC"
    End Sub
    1. 実行結果は以下のようになりました。
      「ABC」と表示されている。
      「ABC」と表示されている。
  4. 次はセル範囲のアドレスを表示してみます。
    Sub セルアドレス表示()
    Debug.Print Range("A1:C3").Address
    End Sub
    1. 実行結果は以下のようになりました。
      セルのアドレスが表示されている。
      セルのアドレスが表示されている。
    2. オブジェクトを出力しようとするとエラーが発生しました。オブジェクトはそのままだと文字、数字になっていないのでエラーが発生したようです。
      Sub エラー_オブジェクトのまま()
      Debug.Print Range("A1:C3")
      End Sub
      実行時エラー'13' 型が一致しません。
      実行時エラー'13' 型が一致しません。
  5. 次はループ処理の経過を表示してみます。
    Sub ループ処理の経過を表示()
    Dim i
    For i = 1 To 5
    Debug.Print i
    Next
    End Sub
    1. 実行結果は以下のようになりました。
      ループ処理の途中経過が表示されている。
      ループ処理の途中経過が表示されている。

マクロストック

Sub 改行を挿入()
Debug.Print "A" & vbNewLine & "B"
End Sub
A の後に改行が入っている。
A の後に改行が入っている。
Sub スペースを挿入()
Debug.Print "A"; Spc(1); "B"
Debug.Print "A"; Spc(2); "B"
Debug.Print "A"; Spc(3); "B"
End Sub

セミコロン「;」で区切ると、複数の式を出力できるようです。

スペースが 1,2,3 と増えている。
スペースが 1,2,3 と増えている。
Sub 指定した桁数から出力()
Debug.Print "A"; Tab(4); "B" '4 桁目に B を出力
Debug.Print "A"; Tab(8); "B" '8 桁目に B を出力
End Sub
4 , 8 桁目以降に B が出力されている。
4 , 8 桁目以降に B が出力されている。

テスト環境

  • Windows 10(64 ビット)
  • Microsoft Office Excel 2003

以上、閲覧ありがとうございました。

目次まで戻る

同じカテゴリの投稿(Excel VBA)

前後の投稿