Sử dụng Excel 5.0 Dialog để tham chiếu (select) cells (Range)

tuhocvba

Administrator
Thành viên BQT
UserForm đã quá quen thuộc với chúng ta, nó có nhiều thuộc tính và phương thức. Ngày nay, mọi người đều sử dụng UserForm cho các mục đích khác nhau. Tuy nhiên ở thời đại Excel 5.0/95, thì chưa có UserForm. Người ta sử dụng Dialog sheet cho các thiết kế form.
Với chức năng RefEdit, đôi khi UserForm bị lỗi, khi hỗ trợ thành viên ở , tôi đã sớm hình dung ra điều này do đó đã không sử dụng RefEdit trên UserForm, lúc đó đã phải đi qua một đường vòng.
Tuy nhiên với Dialog sheet thì chức năng RefEdit lại khá ổn định, không có lỗi. Vì vậy, nếu bạn có ý định sử dụng RefEdit, hãy nghĩ tới Dialog sheet.
Bạn cần đăng nhập để thấy đính kèm


Link download demo:

Trên Excel các bạn click chuột phải trên sheet và chọn Insert:
Bạn cần đăng nhập để thấy đính kèm

Bạn cần đăng nhập để thấy đính kèm


Trên thanh menu, các bạn chọn DEVELOPER, vào Insert:
Bạn cần đăng nhập để thấy đính kèm


Bạn chọn Text Field:
Bạn cần đăng nhập để thấy đính kèm


Click chuột phải vào ô Text, chọn Format Control:
Bạn cần đăng nhập để thấy đính kèm


Tiếp theo, bạn chọn Reference và ấn OK:
Bạn cần đăng nhập để thấy đính kèm


Cho hiển thị Dialog (Chú ý: "Dialog1" là tên sheet):
Mã:
Sub E5_Dialog_1()
    If ThisWorkbook.Sheets("Dialog1").Show = False Then Exit Sub
End Sub
Tham khảo:
Kết quả hiển thị như sau:
Bạn cần đăng nhập để thấy đính kèm
 
Top