Nhờ các bác chỉ cho em cách hiện UserForm lên với! (1 người xem)

[trungtamcnc]

Em có 1 bảng tính dùng để nhập điểm. Đã thiết kế 1 UserForm và các nút lệnh (gán code rồi) nhưng không làm sao cho khi khởi động bảng tính đó thì UserForm hiện lên, cứ phải vào VBA để chạy trực tiếp. Các bác giúp em với nha. Chúc các bác khỏe.

 

[vu_tuan_manh_linh]

Giả sử Userform của bạn tên là Userform1, thủ tục để hiện form đơn giản chỉ là đoạn code sau:

Sub Show_Form()
Userform1.Show
End Sub

Nếu bạn muốn sau khi hiện form mà vẫn có thể làm việc đồng thời trên bảng tính excel thì dùng đoạn code sau:

Sub Show_Form()
Userform1.Show False
End Sub

Bạn viết code này trên 1 Modul trong Form đó, sau đó gán cho đoạn code một phím tắt (Ví dụ là Ctrl + Shift + A). Khi đó, chỉ cần nhấn tổ hợp phím Ctrl + Shift + A thì Form của bạn sẽ hiện ra.

 

[be_09]

Trong cửa sổ Project, đặt code vào ThisWorkbook. Muốn hiện Form nào thì Show Form đó. Ví dụ sau khi mở File nó sẽ hiện ra Form có tên fmTHEODOI_HOSO và chọn Sheet có tên THEO DOI HO SO để nhập liệu vào.

Private Sub Workbook_Open()
ActiveWorkbook.Sheets("THEO DOI HO SO").Activate
fmTHEODOI_HOSO.Show
End Sub

 

[vu_tuan_manh_linh]

Trong cửa sổ Project, đặt code vào ThisWorkbook. Muốn hiện Form nào thì Show Form đó. Ví dụ sau khi mở File nó sẽ hiện ra Form có tên fmTHEODOI_HOSO và chọn Sheet có tên THEO DOI HO SO để nhập liệu vào.

Private Sub Workbook_Open()
ActiveWorkbook.Sheets("THEO DOI HO SO").Activate
fmTHEODOI_HOSO.Show
End Sub

Nói chung có nhiều cách thức hiện userform. Có thể sử dụng thủc tục Worksheets_Activate().