Excelマクロのモジュールをそのまま貼り付け。
（会社とか家とか出先とかで見るため）
「Option Compare Binary」以下を標準モジュールに貼り付ければ、Myマクロ辞典に！
貼り付け後、「■Sub 」を「Sub 」に置き換えよう！
※公開している以上、利用は自由ですが、自己責任で。


Option Compare Binary
Option Explicit
'
'メッセージボックス（※オブジェクト名は ＭｓｅＢｏｘとする。）
'
'MsgBoxのアイコン
'定数 値 内容
'vbCritical 16 警告メッセージアイコン（赤丸に×）
'vbQuestion 32 問い合わせメッセージアイコン（ふきだしに？）
'vbExclamation 48 注意メッセージアイコン（黄色の三角に！）
'vbinformation 64 情報メッセージアイコン（ふきだしにｉ）
'http://www.geocities.jp/cbc_vbnet/function/mseegefunction.html
'画像→http://officetanaka.net/excel/vba/tips/tips21.htm
' http://www.excel-vba.net/excel-dialog-001.html
'
'MsgBoxのボタン
'定数 値 内容
'vbOKOnly 0 [OK]ボタンのみを表示
'vbOKCancel 1 [OK]ボタンと[キャンセル]ボタンを表示
'vbAbortRetryIgnore 2 [中止]、[再試行]、[無視]ボタンを表示
'vbYesNoCancel 3 [はい]、[いいえ]、[キャンセル]ボタンを表示
'vbYesNo 4 [はい]、[いいえ]ボタンを表示
'vbRetryCancel 5 [再試行]、[キャンセル]ボタンを表示
'vbDefaultButton1 0 第1ボタンを標準ボタンに
'vbDefaultButton2 256 第2ボタンを標準ボタンに
'vbDefaultButton3 512 第3ボタンを標準ボタンに
'vbDefaultButton4 768 第4ボタンを標準ボタンに
'
'vbApplicationModal 0 アプリケーションモーダルに設定。
' MsgBoxに応答するまで現在選択中のアプリケーションの実行を継続できない。
'vbSystemModal 4096 システムモーダルに設定。
' MsgBoxに応答するまで、すべてのアプリケーションが中断
'
'改行： Chr(10) または　vbNewLine　または　vbCr

■Sub メッセージボックスの1()

MsgBox "このモジュール（オブジェクト？）の名前は「MesBox」です。" & vbNewLine & _
"正しくは「MsgBox」ですが、実在するメソッド、アクション、プロパティ名はモジュール名には使えないのです。　　　" & vbNewLine & _
"( ﾟ－ﾟ *　　", vbInformation, "タイトル"

'MsgBox DCount("*", "A_Table") & "件を" & vbNewLine & "出力しました。( ﾟ－ﾟ *　　", vbOKCancel + vbExclamation, "タイトル"

End Sub

■Sub メッセージボックスの2()

Dim rc As VbMsgBoxResult
'Dim rc As Variant '‥Variant型でもＯＫ

rc = MsgBox("処理を続行しますか？　　　", vbYesNoCancel + vbQuestion)

If rc = vbYes Then
MsgBox "処理を続けます。　　　", vbInformation
ElseIf rc = vbNo Then
MsgBox "処理を中止します。　　　", vbCritical
Else
MsgBox "キャンセルされました。　　　", vbExclamation
End If

End Sub

■Sub メッセージボックスの表示()
'実際にマクロを実行してみて。

MsgBox "警告メッセージアイコン （vbInformation, 16）　　　", vbInformation, "警告メッセージ"
MsgBox "問い合わせメッセージアイコン （vbQuestion, 32）　　　", vbQuestion, "問い合わせメッセージ"
MsgBox "注意メッセージアイコン （vbExclamation, 48）　　　", vbExclamation, "注意メッセージ"
MsgBox "情報メッセージアイコン （vbInformation, 64）　　　", vbInformation, "情報メッセージ"

End Sub

■Sub メッセージボックスをIF文に利用する()

If vbYes = MsgBox("メッセージボックスです。　　　", vbYesNo + vbInformation, "タイトル") Then
Else
End
End If

End Sub

■Sub 自動的に閉じるメッセージボックス()

Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
WSH.Popup "5秒後、自動的に閉じます", 5, "Title", vbInformation
Set WSH = Nothing

End Sub

■Sub メッセージの表示切替()

'Otherモジュール「確認ダイアログを非表示」参照

End Sub

■Sub インプットボックス()

Dim buf As String

buf = InputBox("名前を入力してください", "名前を指定", "あなたの名前", 1000, 1000, "test.hlp", 2)
Range("A1") = buf

'InputBox(Prompt,[Title],[Default],[XPos],[YPos],[HelpFile],[Context])
'Prompt InputBoxに表示する文字列（必須）
'Title InputBoxのタイトル
'Default 最初から入力ボックスに表示しておく文字列
'XPos ダイアログボックスを表示する縦位置（ウィンドウの座標を指定）
'YPos ダイアログボックスを表示する横位置（ウィンドウの座標を指定）
'HelpFile ヘルプファイルを指定　例："test.hlp"
'Context ヘルプファイル内のページを示すコンテキストID

End Sub

NAME:

MAIL:

URL:

COLOR:
Black LimeGreen SeaGreen Teal FireBrick Tomato IndianRed BurlyWood SlateGray DarkSlateBlue LightPink DeepPink DarkOrange Gold DimGray Silver
SUBJECT:

COMMENT:


PASS: