この記事では、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メッセージボックスが、ユーザーが現在のワークシートのセルのすべてのコンテンツを削除するのにどのように役立つかを見てみましょう。

以下はデータのスナップショットです:

image 1

以下の手順に従う必要があります:

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

image 2

  • コマンドボタンを挿入しましょう

image 3

  • 現在のワークシートモジュールに次のコードを入力します:-

オプション明示

プライベートサブCommandButton1_Click()

整数としての薄暗い答え

answer = MsgBox( “現在のシートのすべてのセルを削除しますか?”、vbYesNo + vbQuestion、 “すべてのセルを削除します”)

もし答え= vbYesなら

Cells.ClearContents

その他

‘何もしない

終了If

サブの終了

image 4

  • コマンドボタンをクリックすると、次のプロンプトが表示されます

image 5

  • すべてのセルを削除するには、[はい]ボタンをクリックします。

  • 結果は次のようになります

image 6

このようにして、ExcelVBAのコマンドボタンを使用してすべてのセルを削除できます。

xlsx-1567