エクセル奮闘記-08 --- メモ03-メッセージボックスの続き

2月5日更新

読んで下さる方へ

メッセージボックスの機能の続きです。

コードがたまってきたので、次回はメモ1～メモ3(こちらのページ)までを、各ページ上で更新する予定です。「更新」といっても名前の変更、コード内のコメントの追加(更新)、動作チェックくらいですが。

↓　2月5日

まとめ記事をアップしました。

こちらの記事の下に後日、更新、動作確認をしたコードを貼りつけることにしました。

↓

エクセル奮闘記-09 --- まとめ--メッセージボックスの話 - ペントスの気まぐれブログ

Sub Macro3()

'変数にメッセージボックスの結果を入れる
変数 = MsgBox("【はい】か【いいえ】か選んで下さい", vbYesNo)

'条件文で変数に結果を入力する
If 変数 = vbYes Then

MsgBox "【はい】ですね？"

Else

MsgBox "【いいえ】ですね？"

End If

End Sub

Sub Macro4()
'メッセージボックスにアクティブシートの名前を入れる

MsgBox ActiveSheet.Name

End Sub