Tối ưu khi sử dụng file hơn 100 sheet?

Liên hệ QC

hoangtrong_vbnd

Thành viên hoạt động
Tham gia
14/1/11
Bài viết
156
Được thích
7
Giới tính
Nam
E xin đưa ra vấn đề của mình nhờ các pro giúp đỡ:
File làm việc được e thiết kế ( thực ra là gộp các giấy tờ cũ lại làm 1 file) có tới 120 sheet
sheet đầu tiên em để làm bảng điều khiển
sheet 2 là khách hàng
sheet 3 là bảng phân công nhiệm vụ
còn lại là các sheet làm việc
em có dùng 1 module thực hiện việc phân nhóm sheet nghĩa là từ bảng điều khiển có các nút ấn liên kết assign macro đến module để mỗi lần mình click vào sẽ chỉ hiện ra 1 phần hành làm việc giống như file cũ chưa gộp vào
Nhưng sau khi thực hiện xong việc phân nhóm sheet và các công thức link trong nhóm sheet e thấy file làm việc của mình khá chậm đồng thời mỗi khi ấn nút hiện nhóm sheet làm việc thường thấy hiện tượng chập chờn trong file
Vậy có cách gì để cải thiện tình hình trên ko, để file hoạt động mượt hơn.
Mong các bác giúp đỡ, e cảm ơn !!!
 
E xin đưa ra vấn đề của mình nhờ các pro giúp đỡ:
File làm việc được e thiết kế ( thực ra là gộp các giấy tờ cũ lại làm 1 file) có tới 120 sheet
....
Mong các bác giúp đỡ, e cảm ơn !!!

Bạn share file lên diễn đàn để mọi người có thể dễ hình dung hơn được ko? --=0
 
file của em khá nặng đồng thời là tài liệu nội bộ nên ko dám share
 
...
Nhưng sau khi thực hiện xong việc phân nhóm sheet và các công thức link trong nhóm sheet e thấy file làm việc của mình khá chậm đồng thời mỗi khi ấn nút hiện nhóm sheet làm việc thường thấy hiện tượng chập chờn trong file
Vậy có cách gì để cải thiện tình hình trên ko, để file hoạt động mượt hơn.
...

Chập chờn cái gì, chập chờn như thế nào. Mượt tức là ra sao?

Câu diễn tả của bạn rất chập chờn. Bạn cần diễn tả mượt hơn.

Nếu do thấy sheet chớp chơp một hồi ròi mới chịu đứng yên thì đoán là do tình trạng screen update và event handling. Chỉ cần đè cái trạng thái này lại thôi.

Đầu sub nhét cái code này vào
Application.ScreenUpdating = False
Application.EnableEvents = False

Cuối sub, nhét cáo code này vào
Application.ScreenUpdating = True
Application.EnableEvents = True

Nếu trong sub có câu Exit Sub thì phải chịu khó dùng lệnh GoTo


 
Chập chờn cái gì, chập chờn như thế nào. Mượt tức là ra sao?

Câu diễn tả của bạn rất chập chờn. Bạn cần diễn tả mượt hơn.

Nếu do thấy sheet chớp chơp một hồi ròi mới chịu đứng yên thì đoán là do tình trạng screen update và event handling. Chỉ cần đè cái trạng thái này lại thôi.

Đầu sub nhét cái code này vào
Application.ScreenUpdating = False
Application.EnableEvents = False

Cuối sub, nhét cáo code này vào
Application.ScreenUpdating = True
Application.EnableEvents = True

Nếu trong sub có câu Exit Sub thì phải chịu khó dùng lệnh GoTo


Đúng là ở đâu cũng gặp bác và chỉ bác hiểu ý em, nó cứ chớp chớp giống bác nói đó ... thanks bác quan tâm về vấn đề e đang gặp phải. E còn gà về excel nên có gì ko phải mong bác bỏ qua nhé !!!
 
Web KT

Bài viết mới nhất

Back
Top Bottom