Excel VBA: Hiển thị UserForm toàn màn hình – 4 phương pháp đơn giản

Thường Userform tạo ra khá lớn và chứa nhiều thông tin ở nơi nhỏ. Nhồi nhét tất cả vào chỗ chật hẹp làm giảm độ rõ nét của Userform. Nếu tò mò cách hiển thị Userform toàn màn hình trong Excel dùng VBA, bài viết này hữu ích. Trình bày cách hiển thị Userform toàn màn hình trong Excel dùng VBA với giải thích chi tiết.

Tải file thực hành bên dưới.

4 cách dễ dàng hiển thị UserForm toàn màn hình dùng VBA trong Excel

Dùng tập dữ liệu dưới minh họa cách hiển thị Userform toàn màn hình dùng VBA Excel. File phải lưu dạng xlsm (macro-enabled) thay vì xlsx thông thường.

1. Dùng xlMaximized

Dùng mã VBA dưới hiển thị Userform toàn màn hình không rắc rối.

Các bước

• Đầu tiên, nhấp tab Developer (Nhà phát triển) chọn Visual Basic.

• Mở cửa sổ Visual Basic, nhấp Insert (Chèn).
• Bước tiếp, chọn Userform từ menu thả xuống.

• Hộp cửa sổ chữ nhật xuất hiện.
• Trong bảng Properties (Thuộc tính), đổi tên và caption (tiêu đề) cửa sổ.
• Đây là hộp dùng Userform, thêm hình dạng, nút, checkbox, v.v. liên kết với trang tính.

• Nhấp đúp vào hộp đó.
• Cửa sổ soạn thảo (editor) xuất hiện. Dán mã dưới vào.

Private Sub UserForm_Activate() Application.WindowState = xlMaximized With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub

• Sau khi nhập mã, nhấp biểu tượng Save (Lưu) rồi nhấp đúp vào Userform.
• Quay lại hộp Userform chính.
• Minh họa, thêm phần tử vào Userform.
• Thêm Text Boxes (Hộp văn bản) và Command Buttons (Nút lệnh), có ô nhập.
• Nhấp nút Run (Chạy) như ảnh.

• Nhấn Run, thấy Userform.
• Sau khi Userform chạy, thấy Userform chiếm toàn màn hình. Như ảnh dưới.

🔎 Phân tích mã VBA

• Chọn Userform làm đối tượng, Activate làm thủ tục.
• Dòng sau, WindowState chỉ trạng thái cửa sổ ứng dụng đang chạy. Đặt điều kiện xlMaximized sẽ phóng to cửa sổ ứng dụng.
• Dòng tiếp, chọn cửa sổ ứng dụng.
• Nhập 4 dòng riêng biệt, tất cả làm cửa sổ phóng to lên, xuống, trái, phải.
• Kết thúc thủ tục con (sub-procedure).

2. Điều chỉnh Chiều cao và Chiều rộng (Height and Width)

Dùng mã VBA dưới hiển thị Userform toàn màn hình không rắc rối.

Các bước

• Đầu tiên, nhấp tab Developer chọn Visual Basic.

• Mở Visual Basic, nhấp Insert.
• Chọn Userform từ menu thả xuống.

• Hộp chữ nhật xuất hiện.
• Bảng Properties, đổi tên và caption.
• Hộp dùng Userform, thêm hình dạng, nút, checkbox, v.v. liên kết trang tính.

• Nhấp đúp hộp.
• Cửa sổ soạn thảo hiện ra. Dán mã dưới.

Private Sub UserForm_Activate() Me.Height = Application.Height Me.Width = Application.Width Me.Left = Application.Left Me.Top = Application.Top End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() Application.WindowState = xlMaximized End Sub

• Sau nhập mã, nhấp Save rồi nhấp đúp Userform.
• Quay lại hộp Userform chính.
• Minh họa, thêm phần tử Userform, thêm Text Boxes, Command Buttons, ô nhập.
• Nhấp nút Run như ảnh.

• Nhấn Run, thấy Userform.
• Sau chạy, Userform chiếm toàn màn hình. Như ảnh dưới.

🔎 Phân tích mã VBA

• Chọn Userform đối tượng, Activate thủ tục.
• 4 dòng sau lấy chiều cao, rộng, trái, phải cửa sổ lưu làm Height, Me.Width, Me.Left, Me.Top.
• Kết thúc thủ tục con.
• Chọn Userform đối tượng, Initialize thủ tục.
• Dòng tiếp theo phóng to giá trị cửa sổ đã lưu mọi hướng, kết quả toàn màn hình.
• Kết thúc thủ tục con.

3. Dùng câu lệnh With (With Statement)

Mã VBA dưới biến cửa sổ Userform nhỏ thành toàn màn hình.

Các bước

• Nhấp tab Developer chọn Visual Basic.

• Mở Visual Basic, nhấp Insert.
• Chọn Userform từ menu thả xuống.

• Hộp chữ nhật xuất hiện.
• Bảng Properties, đổi tên và caption.
• Hộp dùng Userform, thêm hình dạng, nút, checkbox, v.v. liên kết trang tính.

• Nhấp đúp hộp.
• Cửa sổ soạn thảo hiện ra. Dán mã dưới.

Private Sub UserForm_Initialize() With Fullscreen_form_3 .Height = Application.Height .Width = Application.Width End With End Sub

• Sau nhập mã, nhấp Save rồi nhấp đúp Userform.
• Quay lại hộp Userform chính.
• Minh họa, thêm phần tử Userform.
• Thêm Text Boxes, Command Buttons, input box.
• Nhấp nút Run như ảnh.

• Nhấn Run, thấy Userform.
• Sau chạy, Userform chiếm toàn màn hình. Như ảnh dưới.

🔎 Phân tích mã VBA

• Chọn Userform đối tượng, Initialize thủ tục.
• Chọn cửa sổ ứng dụng Userform dòng sau.
• Lưu chiều cao và rộng ứng dụng trong .Height và .Width.
• Kết thúc thủ tục con.

4. Dùng biến (Variable)

Mã VBA sau mở rộng bảng Userform nhỏ chiếm toàn màn hình.

Các bước

• Nhấp tab Developer chọn Visual Basic.

• Mở Visual Basic, nhấp Insert.
• Chọn Userform từ menu thả xuống.

• Hộp chữ nhật xuất hiện.
• Bảng Properties, đổi tên và caption.
• Hộp dùng Userform, thêm hình dạng, nút, checkbox, v.v. liên kết trang tính.

• Nhấp đúp hộp.
• Cửa sổ soạn thảo hiện ra. Dán mã dưới.

Private Sub UserForm_Initialize() Dim xlws As XlWindowState xlws = Application.WindowState Application.WindowState = xlMaximized With Fullscreen_form_4 .Top = Application.Top .Left = Application.Left .Width = Application.Width .Height = Application.Height .Show End With Application.WindowState = xlws End Sub

• Sau nhập mã, nhấp Save rồi nhấp đúp Userform.
• Quay lại hộp Userform chính.
• Minh họa, thêm phần tử Userform.
• Thêm Text Boxes, Command Buttons, input box.
• Nhấp nút Run như ảnh.

• Nhấn Run, thấy Userform chạy.
• Sau chạy, Userform chiếm toàn màn hình. Như ảnh dưới.

🔎 Phân tích mã VBA

• Chọn Userform đối tượng, Initialize thủ tục.
• Dòng sau khai báo xlws biến kiểu XlWindowState.
• Dòng sau, WindowState chỉ trạng thái cửa sổ ứng dụng đang chạy. Gán xlws là trạng thái cửa sổ hiện tại.
• Đặt điều kiện WindowState là xlMaximized phóng to cửa sổ ứng dụng.
• Dòng tiếp chọn cửa sổ ứng dụng.
• Nhập 4 dòng riêng biệt làm cửa sổ phóng to lên, xuống, trái, phải.
• Kết thúc thủ tục con.

Kết luận

Tóm lại, vấn đề hiển thị Userform toàn màn hình được giải đáp bằng 4 ví dụ mã VBA Macro khác nhau. Mặc dù mã khá hiệu quả về thời gian, phương pháp VBA Macro đòi hỏi kiến thức VBA trước để hiểu từ đầu.

Đính kèm workbook cho phép macro để thực hành các phương pháp này.

Tự do đặt câu hỏi hoặc phản hồi qua phần bình luận. Đề xuất cải thiện cộng đồng ExcelDemy luôn được trân trọng.