Mục lục:
Video: Làm quen với VBA : Mở thanh Developer và thực hiện câu lệnh MsgBox 2025
Bạn có thể quen với chức năng VBA MsgBox. Hàm MsgBox, chấp nhận các đối số được hiển thị bên dưới, rất tiện dụng để hiển thị thông tin và nhận được đầu vào của người dùng đơn giản. Nó có thể nhận được đầu vào của người dùng vì đó là một chức năng. Một chức năng, như bạn có thể biết, trả về một giá trị. Trong trường hợp của MsgBox chức năng, nó sử dụng một hộp thoại để có được giá trị mà nó sẽ trả về. Tiếp tục đọc để xem chính xác cách hoạt động.
Đây là một phiên bản đơn giản của cú pháp của hàm MsgBox: <
cho người dùng:
Trong trường hợp này, bạn không quan tâm đến kết quả trả về bởi hàm.
Để có phản hồi từ người dùng:Trong trường hợp này, bạn quan tâm đến kết quả trả về bởi hàm. Kết quả phụ thuộc vào nút mà người dùng nhấp chuột.
Nếu bạn sử dụng chức năng MsgBox của chính nó, không bao gồm ngoặc quanh các đối số. Ví dụ sau chỉ đơn giản hiển thị một thông báo và không trả lại kết quả. Khi thông báo được hiển thị, mã sẽ dừng lại cho đến khi người dùng nhấp OK.
-
MsgBoxDemo phụ () MsgBox "Nhấn OK để bắt đầu in. "Trang tính (" Kết quả "). PrintOut End Sub Nhìn dưới đây để xem hộp thư này trông như thế nào. Trong trường hợp này, in sẽ bắt đầu khi người dùng nhấp vào OK. Bạn có nhận thấy rằng không có cách nào để hủy bỏ việc in ấn? Hãy đọc để tìm hiểu cách khắc phục điều đó.
-
Một hộp tin nhắn đơn giản. Nhận phản hồi từ hộp tin nhắn
Nếu bạn hiển thị một hộp thư có nhiều hơn một nút OK, có thể bạn sẽ muốn biết nút nào người dùng nhấp chuột. Bạn may mắn. Hàm MsgBox có thể trả lại một giá trị đại diện cho nút nào được nhấp. Bạn có thể gán kết quả của hàm MsgBox cho một biến.
Trong đoạn mã sau đây, một số hằng số được sử dụng được sử dụng để làm việc với các giá trị trả về bởi MsgBox:
Sub GetAnswer () Dim Ans As Long Ans = MsgBox ("Bắt đầu in?", VbYesNo) Chọn Case Ans Case vbYes ActiveSheet. Trường hợp InOut vbNo MsgBox "In đã hủy" End Chọn End Sub
Hằng
What It Does
vbOKOnly
0
Chỉ hiển thị nút OK.
| vbOKCancel | 1 | Hiển thị các nút OK và Cancel. |
|---|---|---|
| vbAbortRetryIgnore | 2 | Hiển thị nút Hủy bỏ, Thử lại và Bỏ qua. |
| vbYesNoCancel | 3 | Hiển thị nút Có, Không, và Hủy. |
| vbYesNo | 4 | Hiển thị nút Có và Không. |
| vbRetryCancel | 5 | Hiển thị nút Thử lại và Huỷ. |
| vbCritical | 16 | Hiển thị biểu tượng Thông báo Quan trọng. |
| vbQuestion | 32 | Hiển thị biểu tượng Query Warning. |
| vbExclamation | 48 | Hiển thị biểu tượng Thông báo Cảnh báo. |
| vbInformation | 64 | Hiển thị thông tin Message icon. |
| vbDefaultButton1 | 0 | Nút thứ nhất là mặc định. |
| vbDefaultButton2 | 256 | Nút thứ hai là mặc định. |
| vbDefaultButton3 | 512 | Nút thứ ba là mặc định. |
| vbDefaultButton4 | 768 | Nút thứ tư là mặc định. |
| Kiểm tra xem nó trông như thế nào. Khi bạn thực hiện các thủ tục này, các Ans biến được gán một giá trị của vbYes hoặc vbNo, tùy thuộc vào nút mà người dùng nhấp chuột. Câu lệnh Select Case sử dụng giá trị Ans để xác định hành động mà mã cần thực hiện. | Một hộp thông báo đơn giản, với hai nút. | Sub GetAnswer2 () Nếu MsgBox ("Bắt đầu in?", VbYesNo) = vbYes Sau đó '… [mã nếu có là clicked] … Else '… [mã nếu có không được click] … End If End Sub |
