cải thiện tốc độ của macro

[tongquangtuyen]

Mình có làm một macro gán cho nút button GL check on để lấy công thức sumif(file đính kèm).Nhờ các Anh/Chị trên GPEX xem dùm và hướng dẫn để cải thiện macro.Xin chân thành cảm ơn!

 

[Mr Okebab]

Mình có làm một macro gán cho nút button GL check on để lấy công thức sumif(file đính kèm).Nhờ các Anh/Chị trên GPEX xem dùm và hướng dẫn để cải thiện macro.Xin chân thành cảm ơn!

Code của bạn :

Sub Macro5()

    Application.ScreenUpdating = False
    Sheets("Kiemtra").Select
    Range("K6:CE228").Select
    Selection.copy
    Sheets("GeneralLedger").Select
    Range("K6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

Đây chỉ là vấn đề Copy giá trị giữa 2 vùng trên 2 Sheet. Vì vậy chỉ cần :

Sub Macro5()
        Sheets("GeneralLedger").Range("K6:CE288").Value = _
        Sheets("KiemTra").Range("K6:CE288").Value
End Sub

Thân!

 

[ndu96081631]

Mình có làm một macro gán cho nút button GL check on để lấy công thức sumif(file đính kèm).Nhờ các Anh/Chị trên GPEX xem dùm và hướng dẫn để cải thiện macro.Xin chân thành cảm ơn!

Tôi biết ý bạn muốn copy công thức sang... Yêu cầu này bạn đã từng đăng lên diển đàn và đã có trả lời y như Mr.Okebab vừa đưa lên
Nếu bạn vẩn muốn giữ nguyên yêu cầu copy công thức thì tôi nghĩ việc tăng tốc độ là KHÔNG CÓ GIẢI PHÁP ---> Lý do: Việc làm chậm quá trình tính toán không phải nguyên nhân do code mà là do công thức gây ra ---> Nhiều công thức, tính toán chậm là điều đương nhiên rồi ---> Bạn suy luận đơn giản cũng hiểu được điều này mà

 

[tongquangtuyen]

mình muốn lấy công thức luôn chứ ko lấy giá trị.Bạn xem có cách nào lấy hàm sumif trong VBA ko? mìmình ko biết làm

 

[ThuNghi]

mình muốn lấy công thức luôn chứ ko lấy giá trị.Bạn xem có cách nào lấy hàm sumif trong VBA ko? mìmình ko biết làm

Worksheetfunction.Sumif(...) nhưng mà nó cũng ra kq là giá trị. Trừ trường hợp dùng Formular.
Mà viết lấy kết quả từ G/L thì cần gí phải ct nữa. Sợ sai hay sao!

 

[Lệnh Hồ Đại Hiệp]

mình muốn lấy công thức luôn chứ ko lấy giá trị.Bạn xem có cách nào lấy hàm sumif trong VBA ko? mìmình ko biết làm

Bạn hãy quan tâm đến lời khuyên của bác NDU nhé.
Xin mạn phép sửa lại của MrOkebab (Copy Công thức):

Sub ABC()
    Application.Calculation = xlCalculationManual
    With Sheets("GeneralLedger").Range("K6:CE288")
        .Formula = Sheets("KiemTra").Range("K6:CE288").Formula
        .Calculate
    End With
End Sub

--CV--