VBA　メッセージボックスを表示する

 今回は、メッセージボックスを表示してみます。

MsgBox

を使います。

では、実際にプログラムで試してみます。

Sub 練習1()

    Dim i As Integer

    For i = 1 To 10

       Cells(i, 1).Value = "こんにちは！"   'セルに文字を表示する

       Cells(i, 1).Font.Size = 10 + i       'セルの文字の大きさを指定

    Next i

       Cells(i, 1).Value = "ここは" & Cells(Rows.Count, 1).End(xlUp).Row + 1 & "行目です。"

    MsgBox "出来ました。"

End Sub

前回のプログラムに 「MsgBox "出来ました。"」と１行足しました。

すると、こんな風に表示されます。