Trong bài này, chúng ta sẽ tìm hiểu hàm MsgBox trong Excel VBA, Sau đây là cài đặt đối số các nút của msgbox vba:

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

Hãy để chúng tôi xem hộp thông báo vba có thể giúp người dùng như thế nào trong việc xóa tất cả nội dung của các ô trong trang tính hiện tại.

Sau đây là ảnh chụp dữ liệu:

image 1

Chúng ta cần làm theo các bước sau:

Nhấp vào tab Nhà phát triển Từ nhóm Mã, chọn Visual Basic

image 2

  • Hãy để chúng tôi chèn một nút lệnh

image 3

  • Nhập mã sau vào mô-đun trang tính hiện tại: –

Tùy chọn Rõ ràng

Private Sub CommandButton1_Click ()

Câu trả lời mờ dưới dạng số nguyên

answer = MsgBox (“Bạn có muốn xóa tất cả các ô trong trang tính hiện tại không?”, vbYesNo + vbQuestion, “Xóa tất cả các ô”)

Nếu answer = vbYes thì

Cells.ClearContents

Khác

‘không làm gì cả

Kết thúc Nếu

End Sub

image 4

  • Khi chúng ta nhấp vào nút Command, lời nhắc sau sẽ xuất hiện

image 5

  • Nhấp vào nút Có để xóa tất cả các ô.

  • Kết quả sẽ như sau

image 6

Bằng cách này, chúng ta có thể xóa tất cả các ô bằng cách sử dụng nút lệnh trong Excel VBA.

xlsx-1567