Bạn đã biết chút ít VBA, đã viết được những đoạn code đầu tiên, và tự động hoá được công việc của mình giúp tiêt kiệm được nhiều giờ làm việc. Cho đến 1 khi lượng công việc bạn giải quyết được nhiều hơn, bạn đã viết được những code VBA phức tạp hơn, tuy nhiên 1 ngày nọ, code của bạn có thể rất chậm, chậm đến mức bạn bực mình khó chịu. Để bớt bực mình khó chịu, hãy đọc bài này và áp dụng. Nếu bạn còn chưa biết VBA là gì, hãy đăng ký ngay khoá học VBA của Thanh và sau đó đảm bảo năng suất lao động của bạn sẽ tăng lên 200% khi xử lý những công việc lặp đi lặp lại từ làm báo cáo quản trị, tới cập nhật số liệu và rất nhiều công việc khác. Sau đây là một số lưu ý nhỏ để các bạn có thể tăng tốc cho code VBA của mình.
1. Dừng cập nhật, refresh màn hình
Hiện tượng màn hình Excel hoặc các phần mềm office khác chớp nháy khi code VBA chạy là do tính năng refresh màn hình được kích hoạt, để tắt tính năng refresh màn hình này cũng đồng thời làm code VBA chạy nhanh hơn, chúng ta code như sau:
Sub NoScreenRefresh()Application.ScreenUpdating = False' Viết các code VBA khác vào giữa ở đâyApplication.ScreenUpdating = TrueEnd Sub2. Dừng tính toán khi đang thực thi code
Sub NoCalculations()Application.Calculation = xlCalculationManual' Viết các code VBA khác vào giữa ở đâyApplication.Calculation = xlCalculationAutomaticEnd Sub3. Tạm thời bỏ qua sự kiện worksheet và workbook
Sub StopAllEvents()Application.EnableEvents = False' Viết các code VBA khác vào giữa ở đâyApplication.EnableEvents = TrueEnd Sub4. Sử dụng With khi làm việc với Object
Sub WithARange()With Range("A1").Value = 100.Font.Bold = True.Interior.ColorIndex = 6.Copy Destination:=Range("B1")End WithEnd Sub5. Xoá text bằng vbNullString thay vì “”
Sub EmptyText()Dim strWords As StringstrWords = "Cats"MsgBox strWordsstrWords = vbNullStringMsgBox strWordsEnd Sub6. Điền công thức trực tiếp vào 1 vùng thay vì việc sử dụng method copy hay Filldown
Sub NoAutoFillOrCopy()Range("A1:A200").FormulaR1C1 = "=SUM(RC[1]:RC[5])"End Sub7. Hạn chế copy, paste khi có thể
Thay vì:
Sheet1.Range("A1:A200").CopySheet2.Range("B1").pasteSpecialApplication.CutCopyMode=False 'xoá ClipboardHãy dùng:
Sheet1.Range("A1:A200").Copy Destination:=Sheet2.Range("B1")hoặc:
Sheet2.Range("B1:B200").Formula = Sheet1.Range("A1:A200").FormulaThay vì:
Sheet1.Range("A1:A200").CopySheet1.Range("A1:A200").PasteSpecial xlPasteValuesApplication.CutCopyMode=False'Clear ClipboardHãy dùng:
Sheet1.Range("A1:A200") = Sheet1.Range("A1:A200").Value8. Bỏ cập nhật ở StatusBar trên Excel:
Application.DisplayStatusBar = False' Code VBAApplication.DisplayStatusBar = TRUE9. Ẩn Page Breaks
Activesheet.DisplayPageBreaks = False' Code VBAActivesheet.DisplayPageBreaks = True10. Tạm dừng việc cập nhật bảng Pivot
ActiveSheet.PivotTables(“PivotTable1”).ManualUpdate=True' Code VBAActiveSheet.PivotTables(“PivotTable1”).ManualUpdate=False11. Không dùng method .Select
Code VBA được ghi lại bằng Macro Record cực kỳ hay có method .select sẽ làm code chậm đi rất nhiều, vì vậy hãy rút gọn .select để code VBA nhanh hơn
Thay vì:
Sheets(“Sheet1”).SelectRange(“A1”).SelectActiveCell.FormulaR1C1 = “1000”Sheets(“Sheet2”).SelectRange(“A1”).SelectActiveCell.FormulaR1C1 = “1000”Sheets(“Sheet3”).SelectRange(“A1”).SelectActiveCell.FormulaR1C1 = “1000”Hãy dùng:
Sheets(“Sheet1”).Range(“A1”).FormulaR1C1 = “1000”
Sheets(“Sheet2”).Range(“A1”).FormulaR1C1 = “1000”
Sheets(“Sheet3”).Range(“A1”).FormulaR1C1 = “1000”
Sheets(“Sheet2”).Range(“A1”).FormulaR1C1 = “1000”
Sheets(“Sheet3”).Range(“A1”).FormulaR1C1 = “1000”
VBA giúp ích rất nhiều trong công việc: giúp bạn tăng tốc trong quá trình xử lý trên Excel, giúp lập các báo cáo tự động, điều khiển các chương trình khác như Word, Power Point, Outlook… giúp biến file Excel của bạn trở thành 1 phần mềm chuyên nghiệp…
👍Các bạn tải App Quản Trị Excel cài trực tiếp trên điện thoại Iphone và Android mới nhất tại đây :
DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.Cám ơn.
