エクセルVBAでのメッセージボックス
この記事では、Excel VBAのMsgBox関数について学習します。以下は、msgboxvbaのボタン引数設定です。
Constant |
Value |
Description |
vbOKOnly |
0 |
Display OK button only. |
vbOKCancel |
1 |
Display OK and Cancel buttons. |
vbAbortRetryIgnore |
2 |
Display Abort, Retry, and Ignore buttons. |
vbYesNoCancel |
3 |
Display Yes, No, and Cancel buttons. |
vbYesNo |
4 |
Display Yes and No buttons. |
vbRetryCancel |
5 |
Display Retry and Cancel buttons. |
vbCritical |
16 |
Display Critical Message icon. |
vbQuestion |
32 |
Display Warning Query icon. |
vbExclamation |
48 |
Display Warning Message icon. |
vbInformation |
64 |
Display Information Message icon. |
vbDefaultButton1 |
0 |
First button is default. |
vbDefaultButton2 |
256 |
Second button is default. |
vbDefaultButton3 |
512 |
Third button is default. |
vbDefaultButton4 |
768 |
Fourth button is default. |
vbApplicationModal |
0 |
Application modal; the user must respond to the message box before continuing work in the current application. |
vbSystemModal |
4096 |
System modal; all applications are suspended until the user responds to the message box. |
vbMsgBoxHelpButton |
16384 |
Adds Help button to the message box |
VbMsgBoxSetForeground |
65536 |
Specifies the message box window as the foreground window |
vbMsgBoxRight |
524288 |
Text is right aligned |
vbMsgBoxRtlReading |
1048576 |
Specifies text should appear as right-to-left reading on Hebrew and Arabic systems |
vbaメッセージボックスが、ユーザーが現在のワークシートのセルのすべてのコンテンツを削除するのにどのように役立つかを見てみましょう。
以下はデータのスナップショットです:
以下の手順に従う必要があります:
[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します
-
コマンドボタンを挿入しましょう
-
現在のワークシートモジュールに次のコードを入力します:-
オプション明示
プライベートサブCommandButton1_Click()
整数としての薄暗い答え
answer = MsgBox( “現在のシートのすべてのセルを削除しますか?”、vbYesNo + vbQuestion、 “すべてのセルを削除します”)
もし答え= vbYesなら
Cells.ClearContents
その他
‘何もしない
終了If
サブの終了
-
コマンドボタンをクリックすると、次のプロンプトが表示されます
-
すべてのセルを削除するには、[はい]ボタンをクリックします。
-
結果は次のようになります
このようにして、ExcelVBAのコマンドボタンを使用してすべてのセルを削除できます。