Sửa code update Formulas

[DungMD]

Mình có đoạn key update Formulas, tuy nhiên nó dài và làm file mình nặng quá chạy không được. Bác nào giúp mình bổ sung chạy nhanh được ko ạ

Sub chaybangkeg()
'
' chaybangkeg Macro
'
' Keyboard Shortcut: Ctrl+g
'
Call Focus(True)

Sheets("Bankemuavao").Select
Application.Run "DoUpdateAllFormulas"

Sheets("BK ban r").Select
Application.Run "DoUpdateAllFormulas"
Sheets("LCTTTT").Select
Application.Run "DoUpdateAllFormulas"
Sheets("BCKQHDKD").Select
Application.Run "DoUpdateAllFormulas"
Sheets("TH331").Select
Application.Run "DoUpdateAllFormulas"

Sheets("TH131").Select
Application.Run "DoUpdateAllFormulas"

Sheets("CDTK").Select
Application.Run "DoUpdateAllFormulas"

Sheets("NKC").Select
Application.Run "DoUpdateAllFormulas"

Sheets("NKC22").Select
Application.Run "DoUpdateAllFormulas"
Sheets("TH NXT-VTC").Select
Application.Run "DoUpdateAllFormulas"

Sheets("Luu y").Select
Range("G3").Select

Call Focus(False)
End Sub

Trong đó Focus là

Sub Focus(ByVal Flag As Boolean)
With Application
.EnableEvents = Not Flag
.ScreenUpdating = Not Flag
.Calculation = IIf(Flag, xlCalculationManual, xlCalculationAutomatic)
End With
End Sub

 

[ptm0412]

Nặng là do công thức nhiều. Với lại bạn nên đưa code "DoUpdateAllFormulas" lên xem sao

 

[DungMD]

Nặng là do công thức nhiều. Với lại bạn nên đưa code "DoUpdateAllFormulas" lên xem sao

DoUpdateAllFormulas nó là code rồiạ

 

[giaiphap]

DoUpdateAllFormulas nó là code rồiạ

Bởi vậy mới cần biết nó là cái gì? Tốt nhất up file lên sẽ thuận tiện hơn. Theo tôi thấy code của bạn vậy chậm là đúng, còn lý do thì có file mới tính tiếp.

 

[ptm0412]

DoUpdateAllFormulas nó là code rồiạ

thế "nó là code rồi" nên không đưa lên được?

 

[befaint]

thế "nó là code rồi" nên không đưa lên được?

Không anh nhé. Bí mật thương mại.

 

[ptm0412]

Không anh nhé. Bí mật thương mại.

Dịch giã tầm này bí mật gì nữa

 

[minhtungph]

Dịch giã tầm này bí mật gì nữa

Em thấy nhiều người lên diễn đàn hỏi mà cũng lười, có thể có 1 quy định nào đó nếu hỏi không có file rõ ràng thì xoá bài ko a.

 

[ptm0412]

Em thấy nhiều người lên diễn đàn hỏi mà cũng lười, có thể có 1 quy định nào đó nếu hỏi không có file rõ ràng thì xoá bài ko a.

Không được, ai lại vậy. Hỏi không rõ ràng, không phản hòi khi được hỏi thì bị chậm trễ ráng chịu thôi.

 

[Maika8008]

Em thấy nhiều người lên diễn đàn hỏi mà cũng lười, có thể có 1 quy định nào đó nếu hỏi không có file rõ ràng thì xoá bài ko a.

Người trả lời thì chỉn chu, trong khi nhiều người hỏi thì lười không chịu nổi. Trường hợp này thì không lười mà sợ lộ code

 

[DungMD]

thế "nó là code rồi" nên không đưa lên được?

Bác hiểu nhầm ý mình rồi, ý là nó kiểu như hàm Sum ấy, mình ko viết thêm ( nó là phím ctr+shif +a ) của Add in atool bác Duy Tuân nên ko biết ghi kiểu gì

Bài đã được tự động gộp: 6/8/21

Người trả lời thì chỉn chu, trong khi nhiều người hỏi thì lười không chịu nổi. Trường hợp này thì không lười mà sợ lộ code

Bác hiểu nhầm ý m rồi

Bài đã được tự động gộp: 6/8/21

Không anh nhé. Bí mật thương mại.

Xin lỗi vì diễn đạt không rõ làm bác hiểu nhầm

Bài đã được tự động gộp: 6/8/21

Bác hiểu nhầm ý mình rồi, ý là nó kiểu như hàm Sum ấy, mình ko viết thêm ( nó là phím ctr+shif +a ) của Add in atool bác Duy Tuân nên ko biết ghi kiểu gì

Bài đã được tự động gộp: 6/8/21

Bác hiểu nhầm ý m rồi

Bài đã được tự động gộp: 6/8/21

Xin lỗi vì diễn đạt không rõ làm bác hiểu nhầm

Vì nó tích hợp Add in Atool nên gửi bác nào ko có cũng chạy được file này

 

[minhtungph]

vậy khả năng do file bạn có quá nhiều công thức dò tìm nên gây nặng file, nếu có thể bạn bắt đầu chuyển nó thành code vba thì có thể giải quyết vấn đề

 

[DungMD]

vậy khả năng do file bạn có quá nhiều công thức dò tìm nên gây nặng file, nếu có thể bạn bắt đầu chuyển nó thành code vba thì có thể giải quyết vấn đề

Thanks bạn nhé !