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

ペントスのほぼ日ブログ

劇場アニメとWordpressの話をアップしています

劇場アニメ
コラム
劇場アニメ
観て来た
劇場アニメ
公開前
劇場アニメ
公開中
イベント お知らせ
ゴジラ Webサンデー
コナン
コナン コードギアス 新妹魔王 曇天に笑う
Fate 僕のヒーロー
アカデミア
マクロス 妖怪ウォッチ デジタルイラスト タグ

エクセル奮闘記-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