<meta property=”og:title” content=”アニメ” />

ペントスのほぼ日ブログ

劇場アニメ、デジタルイラスト、エクセルの話をアップしています

劇場アニメ
スケジュール
劇場アニメ WordPress
副業
デジタルイラスト エクセル お知らせ
自炊 イベント

エクセル奮闘記-07 --- メモ02-セルに関する操作+メッセージボックス

読んで下さる方へ

 

エクセル奮闘記-06 --- メモ01-セルに関する操作 - ペントスの気まぐれブログ

のメッセージボックスに「?」や「!」をつけてみました。

使い方のコツはSheet2のB1セルに何か入力してからマクロを実行すると、

何をしているのか動作がよくわかると思います。

 

f:id:pen-toss:20150323214553j:plain


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

 

f:id:pen-toss:20150323214553j:plain

 

メモ

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

 

f:id:pen-toss:20170201231242j:plain