Trợ giúp thắc mắc hiệnform tự động

Liên hệ QC

GTK-PM

Thành viên thường trực
Tham gia
10/11/13
Bài viết
313
Được thích
15
Trong file em có sử dụng 2 đoạn code
Mã:
Private Sub Workbook_Open()
thongbao.Show
Application.ScreenUpdating = False
End Sub
Form:
Mã:
Private Sub cmdLogOn_Click()
Application.ScreenUpdating = Flase
Unload Me
Application.Visible = True
Application.ScreenUpdating = True
End Sub
Em muốn hỏi sao khi mở file hiện trạng mở lên thì không hiện bảng thông báo, em đã kiểm tra lại thì phải xóa sheet Data36 và khi mở lại sau xóa thì tự động lại hiện thông báo.
Trường hợp em không muốn xóa sheet Data36 thì làm sao để form tự động hiện khi mở trang tính lên ạ.
 

File đính kèm

  • Sort AB_2.xlsm
    225.6 KB · Đọc: 10
Em muốn hỏi sao khi mở file hiện trạng mở lên thì không hiện bảng thông báo, em đã kiểm tra lại thì phải xóa sheet Data36 và khi mở lại sau xóa thì tự động lại hiện thông báo.
Trường hợp em không muốn xóa sheet Data36 thì làm sao để form tự động hiện khi mở trang tính lên ạ.
Thử xem lại.
 

File đính kèm

  • Sort AB_2.xlsm
    227 KB · Đọc: 11
Upvote 0
Vẫn tình trạng cũ không được đâu anh ạ.
 
Upvote 0
Tôi mở File thì Form nó xuất hiện luôn (như hình).
Hay là bạn muốn mở File thì nó chỉ xuất hiện cái Form còn sheet thì ẩn.

View attachment 229439

View attachment 229440
+ Anh cho em hỏi, khi em xóa 2 đoạn code thông báo ở #1 trên.
Thì file của em bị lỗi không thể vào được bảng tính cách làm của em là em vào This workbook xóa đoạn code này:
Mã:
Private Sub Workbook_Open()
thongbao.Show
Application.ScreenUpdating = False
End Sub
và remove userform thì bị lỗi trên rất mong anh giải đáp.
 

File đính kèm

  • 1.jpg
    1.jpg
    90.4 KB · Đọc: 6
Upvote 0
+ Anh cho em hỏi, khi em xóa 2 đoạn code thông báo ở #1 trên.
Thì file của em bị lỗi không thể vào được bảng tính cách làm của em là em vào This workbook xóa đoạn code này:
Mã:
Private Sub Workbook_Open()
thongbao.Show
Application.ScreenUpdating = False
End Sub
và remove userform thì bị lỗi trên rất mong anh giải đáp.
1/ Đoạn code trong Thisworkbook làm xuất hiện UserForm thongbao khi mở File.
2/ Đoạn code trong UserForm thongbao chỉ có tác dụng đóng UserForm khi nhấn nút BẮT ĐẦU, do đó khi xóa (Remove Userform thongbao) thì đoán code này cũng bị xóa theo.

Tóm lại: Việc tạo UserForm và sử dụng 02 đoạn code trên là để màu mè cho vui. Vì vậy, Khi xóa 02 đoạn code trên thì chẳng ảnh hưởng gì đến công việc, nếu phát sinh lỗi là do sử dụng code trong Module (tôi không kiểm tra).
 
Upvote 0
Web KT
Back
Top Bottom