File excel của em chạy chậm. (1 người xem)

[1vuthanhcong]

e có 1 file excel sử dụng rất nhiều hàm sumifs và concatenateif( lập trong vba) file phải tính toán rất lâu. ac xem có phương pháp nào cải thiện giúp e được k a?

 

[Ba Tê]

e có 1 file excel sử dụng rất nhiều hàm sumifs và concatenateif( lập trong vba) file phải tính toán rất lâu. ac xem có phương pháp nào cải thiện giúp e được k a?

Bạn buộc sợi chỉ vào tay bệnh nhân rồi đưa 1 đầu sợi chỉ cho bác sĩ bắt mạch mới biết bệnh gì, dùng phương pháp gì để cải thiện.

 

[snow25]

e có 1 file excel sử dụng rất nhiều hàm sumifs và concatenateif( lập trong vba) file phải tính toán rất lâu. ac xem có phương pháp nào cải thiện giúp e được k a?

Thay toàn bộ công thức bằng Vba.

 

[SA_DQ]

Hay thay toàn bộ VBA & công thức bỡi VBA mới phiên bản Kỉ hợi 2019
Hoặc thiết kế lại các trang tính trong file!

 

[1vuthanhcong]

Function Concatenateif(CriteriaRange As Range, condition As Variant, CriteriaRange1 As Range, condition1 As Variant, CriteriaRange2 As Range, condition2 As Variant, CriteriaRange3 As Range, condition3 As Variant, CriteriaRange4 As Range, condition4 As Variant, CriteriaRange5 As Range, condition5 As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
Concatenateif = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = condition And CriteriaRange1.Cells(i).Value = condition1 And CriteriaRange2.Cells(i).Value = condition2 And CriteriaRange3.Cells(i).Value = condition3 And CriteriaRange4.Cells(i).Value = condition4 And CriteriaRange5.Cells(i).Value = condition5 Then
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
Next i
If xResult <> "" Then
xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
Concatenateif = xResult
Exit Function
End Function

Bài đã được tự động gộp: 13/2/19

trên đây là code e đang sử dụng