Nhờ tối ưu hóa dùm code lập báo cáo tài chính

[thanhtratt]

Mình lợm lặc các code từ diển đàn và kết nối chúng lại để lập Báo cáo tài chính nhưng nó rất dài dòng, nhiều code và chạy chậm nay mình muốn nhờ các cao thủ tối ưu hóa và chỉnh sửa lại cho khoa học giúp mình. Và mình không biết tại sao dung lượng File của mình ngày cứ phình to ra lúc đầu chỉ có 4Mb bây giờ thì 16Mb. Mình cám ơn rất nhiếu.

 

[ndu96081631]

Mình lợm lặc các code từ diển đàn và kết nối chúng lại để lập Báo cáo tài chính nhưng nó rất dài dòng, nhiều code và chạy chậm nay mình muốn nhờ các cao thủ tối ưu hóa và chỉnh sửa lại cho khoa học giúp mình. Và mình không biết tại sao dung lượng File của mình ngày cứ phình to ra lúc đầu chỉ có 4Mb bây giờ thì 16Mb. Mình cám ơn rất nhiếu.

Bạn phải nói bạn muốn tối ưu cụ thể 1 code nào đó thì mọi người mới giúp được. Chứ mà bảo tối ưu nguyên cả file thì ai mà đủ kiên nhẫn để làm hả bạn?

 

[hoahau2611]

uhm, nhiều code quá nên rất mất thời gian để xem

 

[thanhtratt]

Bạn phải nói bạn muốn tối ưu cụ thể 1 code nào đó thì mọi người mới giúp được. Chứ mà bảo tối ưu nguyên cả file thì ai mà đủ kiên nhẫn để làm hả bạn?

Dạ cháu muốn tối ưu code BCQT đó ạ, nhưng code đó nó gọi tất cả các code khác chạy luôn thì nó mới lên báo cáo được báo cáo. Cháu muốn tối ưu và gôm lại cho nó gọn. Bác giúp cháu nhé. Cám ơn Bác rất nhiều.

 

[SA_DQ]

Đầu tiên mình sẽ giúp bạn gom 2 con macro NO - JES vào 1 nha

Bạn chép macro sau vô module

Sub TrueFalse(JesNo As Boolean)
 With Application
    .EnableEvents = JesNo:              .DisplayAlerts = JesNo:        .ScreenUpdating = JesNo:
    If JesNo Then .Calculation = xlCalculationAutomatic Else .Calculation = xlCalculationManual
 End With
End Sub

Sau đó bạn tìm đến chổ nào có triệu gọi macro No() thì bạn triệu gọi macro này bằng dòng lệnh sau:

  TrueFalse False

& dĩ nhiên chỗ nào trước đây gọi JES, thì thay bằng dòng lệnh

  TrueFalse True

Có lẻ ai cũng ngán giúp bạn vì ai cũng sẽ fải tốn rất nhiều thời gian lần từng dòng lệnh trong cơ man macro của bạn.
Vậy bạn hãy tập tính kiên nhẫn đi là vừa!

Thân!

 

[thanhtratt]

Mình cám ơn bạn rất nhiều