giúp em tôi ưu lại đoạn code lọc giữ liệu với ạ

[diemhuyenanh]

chào các, chị GPE em mới tập tẹ học vba từ các anh chị trên GPE và áp dụng vào công việc của em để lọc giữ liệu nhưng em nghĩ code em viết chưa được tốt lên khi chạy có vẻ chậm vì thế em up lên đây nhờ các anh chi tối ưu lại đoạn code giúp em để khi giữ liệu nhiều hơn thị code sẽ chạy tốt hơn. nếu các anh chị viết bằng scripting dic thì càng tốt ạ

 

[viehoai]

chào các, chị GPE em mới tập tẹ học vba từ các anh chị trên GPE và áp dụng vào công việc của em để lọc giữ liệu nhưng em nghĩ code em viết chưa được tốt lên khi chạy có vẻ chậm vì thế em up lên đây nhờ các anh chi tối ưu lại đoạn code giúp em để khi giữ liệu nhiều hơn thị code sẽ chạy tốt hơn. nếu các anh chị viết bằng scripting dic thì càng tốt ạ

Bạn nên rút gọn code ke khung. Ta chỉ cần code kẻ khung dưới đây là được
[GPECODE=vb]
With .Range("A5:J" & .Range("F65536").End(xlUp).Row)
.Borders.LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlDash
End With
[/GPECODE]

 

[diemhuyenanh]

Bạn nên rút gọn code ke khung. Ta chỉ cần code kẻ khung dưới đây là được
[GPECODE=vb]
With .Range("A5:J" & .Range("F65536").End(xlUp).Row)
.Borders.LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlDash
End With
[/GPECODE]

cảm ơn viehoai
đoạn code đã ngắn gọn hơn. anh chị nào có thể áp dụng scripting.dictionary viết lại đoạn code đó cho em vơíêm