Hàm đếm nhiều ô, nhiều vùng

[vandia]

Chào các bạn, mình có sưu tầm được trên diễn đàn hàm đếm ký tự như sau:
Function DemKT_6(Str As String, MinStr As String) As Integer
DemKT_6 = (Len(Str) - Len(Replace(Str, MinStr, ""))) / Len(MinStr)
End Function
Nhưng nhược điểm là chỉ chọn được 1 ô dữ liệu
Mình đã chỉnh sửa như bên dưới nhưng không được
Vậy kính mong các bạn chỉnh sửa giúp để cho hàm chọn được nhiều vùng dữ liệu.
Function DemKT_7(MinStr As String, ParamArray Str_()) As Integer

DemKT_7 = (Len(Str) - Len(Replace(Str, MinStr, ""))) / Len(MinStr)
End Function

 

[giaiphap]

Chào các bạn, mình có sưu tầm được trên diễn đàn hàm đếm ký tự như sau:
Function DemKT_6(Str As String, MinStr As String) As Integer
DemKT_6 = (Len(Str) - Len(Replace(Str, MinStr, ""))) / Len(MinStr)
End Function
Nhưng nhược điểm là chỉ chọn được 1 ô dữ liệu
Mình đã chỉnh sửa như bên dưới nhưng không được
Vậy kính mong các bạn chỉnh sửa giúp để cho hàm chọn được nhiều vùng dữ liệu.
Function DemKT_7(MinStr As String, ParamArray Str_()) As Integer

DemKT_7 = (Len(Str) - Len(Replace(Str, MinStr, ""))) / Len(MinStr)
End Function

Thử thế này.

Function DemKT_7(MinStr As String, ParamArray aArgumentsArray() As Variant) As Integer
    Dim dem As Integer
    Dim vArg As Variant, vStr As Variant
    dem = 0
    For Each vArg In aArgumentsArray
       For Each vStr In vArg
            dem = dem + (Len(vStr) - Len(Replace(vStr, MinStr, ""))) / Len(MinStr)
       Next vStr
    Next vArg
    DemKT_7 = dem
End Function

 

[vandia]

Thử thế này.

Function DemKT_7(MinStr As String, ParamArray aArgumentsArray() As Variant) As Integer
    Dim dem As Integer
    Dim vArg As Variant, vStr As Variant
    dem = 0
    For Each vArg In aArgumentsArray
       For Each vStr In vArg
            dem = dem + (Len(vStr) - Len(Replace(vStr, MinStr, ""))) / Len(MinStr)
       Next vStr
    Next vArg
    DemKT_7 = dem
End Function

Cảm ơn bạn giaiphap chuẩn rồi
chúc bạn cuối tuần vui vẻ