Video: Ứng dụng VBA - Thêm dữ liệu và tự động sắp xếp nội dung sau khi thêm 2025
Tính linh hoạt của các đối số nút VBA làm cho nó dễ dàng để tuỳ chỉnh hộp thư Excel của bạn. Bạn có thể chọn nút để hiển thị, xác định xem biểu tượng xuất hiện và quyết định nút nào là mặc định (nút mặc định là "được nhấp" nếu người dùng nhấn Enter).
Bạn có thể sử dụng hằng số được xây dựng cho đối số nút. Nếu bạn thích, bạn có thể sử dụng giá trị chứ không phải là hằng số (nhưng sử dụng các hằng số cài sẵn rất dễ dàng hơn).
Để sử dụng nhiều hơn các hằng số này như một đối số, chỉ cần nối chúng với toán tử a +. Ví dụ, để hiển thị một hộp thông báo với Có và Không nút và một biểu tượng chấm than, sử dụng các biểu thức sau đây như là đối số MsgBox thứ hai:
vbYesNo + vbExclamation
Hoặc, nếu bạn muốn làm cho mã của bạn ít hiểu, sử dụng một giá trị là 52 (nghĩa là, 4 + 48).
Ví dụ sau sử dụng một sự kết hợp của các hằng số để hiển thị một hộp thông báo với một nút Yes và No nút (vbYesNo) cũng như một biểu tượng dấu hỏi (vbQuestion). Hằng vbDefaultButton2 chỉ định nút thứ hai (Không) làm nút mặc định - nghĩa là nút được nhấp nếu người dùng nhấn Enter. Để đơn giản, các hằng này được gán cho biến Config và sau đó sử dụng Config làm đối số thứ hai trong chức năng MsgBox:
Sub GetAnswer3 () Dim Config As Long Dim Ans As Integer Config = vbYesNo + vbQuestion + vbDefaultButton2 Ans = MsgBox (“Xử lý các báo cáo hàng tháng?”, Config) Nếu Ans = vbYes Sau đó RunReport End Sub
Kiểm tra hộp thông báo Excel hiển thị khi bạn thực hiện thủ tục GetAnswer3. Nếu người dùng nhấp vào nút Yes, thủ tục thực hiện thủ tục RunReport. Nếu người dùng nhấp vào nút Không (hoặc nhấn Enter), thói quen kết thúc bằng không có hành động. Bởi vì đối số tiêu đề bị bỏ qua trong chức năng MsgBox, Excel sử dụng tiêu đề mặc định, Microsoft Excel.
Những thói quen sau đây cung cấp một ví dụ khác của việc sử dụng hàm MsgBox:
Sub GetAnswer4 () Dim Msg As String, Tiêu đề As String Dim Config As Integer, Ans As Integer Msg = “Bạn có muốn để xử lý các báo cáo hàng tháng? "Msg = Msg & vbNewLine & vbNewLine Msg = Msg &" Việc xử lý báo cáo hàng tháng sẽ "Msg = Msg &" mất khoảng 15 phút. Nó "Msg = Msg &" sẽ tạo một báo cáo 30 trang cho "Msg = Msg &" tất cả các văn phòng bán hàng cho "Msg = Msg &" tháng hiện tại. ”Title =‘Công ty XYZ Marketing’Config = vbYesNo + vbQuestion Ans = MsgBox (Msg, Config, Tiêu đề) Nếu Ans = vbYes Sau đó RunReport End Sub
Ví dụ này chứng minh một cách hiệu quả để xác định một thông điệp còn trong một hộp thông báo.Một biến (Msg) và toán tử nối (&) được sử dụng để xây dựng thông điệp trong một loạt các câu lệnh. Hằng số vbNewLine chèn một ký tự ngắt dòng bắt đầu một dòng mới (sử dụng nó hai lần để chèn một dòng trống). Đối số tiêu đề được sử dụng để hiển thị một tiêu đề khác trong hộp thư. Đây là hộp thông báo Excel hiển thị khi bạn thực hiện thủ tục này.
Bạn có thể sử dụng hằng (như vbYes và vbNo) cho giá trị trả về của một chức năng MsgBox. Đây là một vài hằng số khác.
| Hằng | Giá trị | Ý nghĩa của nó |
|---|---|---|
| vbOK | 1 | Người dùng nhấp vào OK. |
| vbCancel | 2 | Người dùng nhấp vào Hủy. |
| vbAbort | 3 | Người dùng nhấp vào Hủy bỏ. |
| vbRetry | 4 | Người dùng đã nhấp vào Thử lại. |
| vbIgnore | 5 | Người dùng nhấp vào Bỏ qua. |
| vbYes | 6 | Người dùng nhấp vào Có. |
| vbNo | 7 | Người dùng nhấp vào Không. |
Và đó là khá nhiều điều bạn cần biết về chức năng MsgBox. Sử dụng hộp thư cẩn thận, mặc dù. Thông thường không có lý do để hiển thị các hộp thông điệp mà không có mục đích. Ví dụ: mọi người thường có xu hướng cảm thấy khó chịu khi họ thấy hộp thư mỗi ngày đọc Good morning. Cảm ơn bạn đã tải bảng tính Dự toán Ngân sách.
