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

GTK-PM

Thành viên thường trực
Tham gia ngày
10 Tháng mười một 2013
Bài viết
307
Được thích
13
Điểm
385
Tuổi
29
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

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,158
Được thích
8,832
Điểm
560
Tuổi
63
Nơi ở
Biên Hòa, Đồng Nai
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

GTK-PM

Thành viên thường trực
Tham gia ngày
10 Tháng mười một 2013
Bài viết
307
Được thích
13
Điểm
385
Tuổi
29
Vẫn tình trạng cũ không được đâu anh ạ.
 

GTK-PM

Thành viên thường trực
Tham gia ngày
10 Tháng mười một 2013
Bài viết
307
Được thích
13
Điểm
385
Tuổi
29
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

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,158
Được thích
8,832
Điểm
560
Tuổi
63
Nơi ở
Biên Hòa, Đồng Nai
+ 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).
 
Top Bottom