theo dõi hàng hóa theo từng công đoạn (1 người xem)

[lmtuyen]

Xin chào tất cả Anh/Chị
mình rất thích lập trình VBA,và file đính kèm là "tác phẩm" đầu tay của mình,nhưng code hiện tại chạy khá chậm,mong Anh/Chị tối ưu giúp.

- bộ phận mình quản lý có nhiều công đoạn,6 công đoạn. Mình đang theo dõi tiến độ của từng đơn hàng. xem đơn hàng đó đã làm được bao nhiêu cho từng công đoạn. Sheet "GeneralRW" sẽ hiện thị tổng quát tình hình cho từng công đoạn.

 

[phucbugis]

Xin chào tất cả Anh/Chị
mình rất thích lập trình VBA,và file đính kèm là "tác phẩm" đầu tay của mình,nhưng code hiện tại chạy khá chậm,mong Anh/Chị tối ưu giúp.

- bộ phận mình quản lý có nhiều công đoạn,6 công đoạn. Mình đang theo dõi tiến độ của từng đơn hàng. xem đơn hàng đó đã làm được bao nhiêu cho từng công đoạn. Sheet "GeneralRW" sẽ hiện thị tổng quát tình hình cho từng công đoạn.

chào bạn, bạn thử áp dụng đoạn code sau cho:

Sub [COLOR=#ff0000][B]cleardata[/B][/COLOR]()
Dim ws As Worksheet: Set WSArray = Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
Dim rng1 As Range, rng2 As Range '...
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual 'tuỳ trường hợp
        For Each ws In WSArray
            ws.Visible = True
        Next
        
        rng1 = Sheets("Sheet1").Range("a9:L1000")
        rng2 = Sheets("Sheet2").Range("a9:L1000")
        '...
        Application.Union(rng1, rng2).ClearContents
        For Each ws In WSArray
            ws.Visible = False
        Next
        
        Sheets("Home").Select
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

'- - - -
Lưu ý:
- 1 số thao tác Sheet("ji ji do").select có thể ko cần thiết.
- đoạn: Application.ScreenUpdating = False và Application.Calculation = xlCalculationManual (nếu ko liên quan đến tính toán ---> off) sẽ giúp code chạy nhanh hơn rất nhiều.