マクロについてのまとめ３

ifステートメント

select-caseステートメント

withステートメント

メッセージボックス

Sub Sample1()

MsgBox "集中できていますか?", vbYesNo + vbQuestion

End Sub

Sub Sample2()

MsgBox "お腹は空いていますか?", 4+32

End Sub

Sub Sample3()

MsgBox "ご飯は食べましたか?", 36

End Sub

インプットボックス

Sub Sample1()

Dim buf As String

buf = InputBox("何歳ですか")

MsgBox buf

End Sub