エクセル奮闘記-07 --- メモ02-セルに関する操作+メッセージボックス
読んで下さる方へ
エクセル奮闘記-06 --- メモ01-セルに関する操作 - ペントスの気まぐれブログ
のメッセージボックスに「?」や「!」をつけてみました。
使い方のコツはSheet2のB1セルに何か入力してからマクロを実行すると、
何をしているのか動作がよくわかると思います。
Sub Macro2()
Range("A1").Select
MsgBox "アクティブシートのA1", vbInformation
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("B1").Select
MsgBox "Sheet2のB2", vbExclamation
Range("E1").Select
MsgBox "アクティブシートのE1に移動", vbQuestion
Range("E1").Value = Range("B1").Value
MsgBox "アクティブシートのE1に" & vbNewLine & "アクティブシートのB1の値入力", vbCritical
ActiveCell.ClearContents
MsgBox "アクティブセルの値をクリア"
MsgBox "終わり"
Range("B6:D16").Select
End Sub
メモ
1)メッセージボックスの中での改行
MsgBox "アクティブシートのE1に" & vbNewLine & "アクティブシートのA1の値入力"
2)メッセージボックス+iマーク
MsgBox "アクティブシートのA1", vbInformation
3)メッセージボックス+!マーク
MsgBox "Sheet2のB2", vbExclamation
4)メッセージボックス+?マーク
MsgBox "アクティブシートのE1に移動", vbQuestion
5)メッセージボックス+☓マーク
MsgBox "アクティブシートのE1に" & vbNewLine & "アクティブシートのA1の値入力", vbCritical