VBAマクロを１行ずつ実行する方法【実例を使って解説】

2024年7月18日

マクロを実行すると、作成したマクロを実行することができますが、実行結果だけが表示され実行途中の様子を知ることはできません。

マクロを実行した時に、「マクロがどのように動いているか？」を知りたい場合に１行ずつ実行したい時があります。

マクロを1行ずつ実行する場合は、ファンクションキー「F8」を使うと１行ずつ実行することができます。

この記事では、実例を使ってマクロを1行ずつ実行する方法と、任意のコード位置まで実行する方法を解説します。マクロの実行途中の様子を知ることができます。

マクロの実例のコードを使ってやってみる

エクセルに上のような「スケジュール表」を作成するマクロを使って、ステップインの使い方を解説します。

スケジュール表のコード例

次のコードは、スケジュール表のコードです。実例があると分かりやすいので、次のコードをコピーして、VBE（Visual Basic Editor）に貼り付けてご使用ください。

Sub スケジュール表作成()
 
Dim WS1 As Worksheet
 
Set WS1 = Worksheets("sheet1")
 
WS1.Select
With WS1
  .Range("B3") = "日"
  .Range("B3").Select
End With
 
Selection.AutoFill Destination:=Range("B3:H3")
 
WS1.Range("B3:H8").Select
With Selection.Borders(xlLeft)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
End With
 
With Selection.Borders(xlTop)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
End With
 
With Selection.Borders(xlBottom)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
End With
 
With Selection.Borders(xlRight)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
End With
 
'下線を二重線に変更する
Range("B3:H3").Select
Selection.Borders(xlBottom).LineStyle = xlDouble
WS1.Range("B3:H8").BorderAround Weight:=xlThick, ColorIndex:=5, LineStyle:=xlContinuous
WS1.Range("A3:A8").RowHeight = 35
 
'曜日のセルを塗りつぶす
With WS1
  .Range("B3:B8").Interior.ColorIndex = 38
  .Range("C3:G8").Interior.ColorIndex = 19
  .Range("H3:H8").Interior.ColorIndex = 8
  .Range("B4").Activate
End With
End Sub