buivankiet
Thành viên mới
- Tham gia
- 30/5/08
- Bài viết
- 38
- Được thích
- 6
TÔI CÓ MỘT FILE EXCEL CÓ IMPORT DATA TỪ NHIỀU FILE EXCEL KHÁC.
TÔI MUỐN KHI MỞ FILE RA TỰ ĐỘNG REFRESH DỮ LIỆU. NÊN CÓ VIẾT CODE SAU
PRIVATE SUB WORKBOOK_OPEN()
Activeworkbook.refreshAll
end sub
NHƯNG CÓ LÚC NÓ KHÔNG REFRESHALL. NHƯNG SAU KHI MỞ FILE XONG, CHO CHẠY MACRO
SUB CAPNHAT()
Activeworkbook.refreshAll
end sub
THÌ NÓ CHẠY LỆNH REFRESHALL RẤT TỐT.
TÔI THẤY TRÊN MẠNG CÓ NHỮNG CODE DẠNG TƯỢNG TỰ CÓ THÊM NHỮNG DÒNG SAU VÀO ĐẦU CODE, TÔI KHÔNG HIỂU ĐỌAN CODE TRÊN CÓ NGHĨA LÀ GÌ, NHỜ CÁC BẠN CHỈ GIÚP
PRIVATE SUB WORKBOOK_OPEN()
Dim start
Do While Timer < start + 2
DoEvents
Loop
Activeworkbook.refreshAll
end sub
TÔI MUỐN KHI MỞ FILE RA TỰ ĐỘNG REFRESH DỮ LIỆU. NÊN CÓ VIẾT CODE SAU
PRIVATE SUB WORKBOOK_OPEN()
Activeworkbook.refreshAll
end sub
NHƯNG CÓ LÚC NÓ KHÔNG REFRESHALL. NHƯNG SAU KHI MỞ FILE XONG, CHO CHẠY MACRO
SUB CAPNHAT()
Activeworkbook.refreshAll
end sub
THÌ NÓ CHẠY LỆNH REFRESHALL RẤT TỐT.
TÔI THẤY TRÊN MẠNG CÓ NHỮNG CODE DẠNG TƯỢNG TỰ CÓ THÊM NHỮNG DÒNG SAU VÀO ĐẦU CODE, TÔI KHÔNG HIỂU ĐỌAN CODE TRÊN CÓ NGHĨA LÀ GÌ, NHỜ CÁC BẠN CHỈ GIÚP
PRIVATE SUB WORKBOOK_OPEN()
Dim start
Do While Timer < start + 2
DoEvents
Loop
Activeworkbook.refreshAll
end sub
Lần chỉnh sửa cuối: