. فقط کافیه شما اسمهایی را که می خواید توی اون آرایه ذخیره کنید و بعد این تابعو فراخوانی کنید.



Private Function GetCountOfName(strNames() As String, strKeyName As String) As Long

Dim i As Integer

Dim iUpperIndex As Integer

Dim lCounter As Long


iUpperIndex = UBound(strNames)

For i = 0 To iUpperIndex

If Trim(strNames(i)) = Trim(strKeyName) Then

lCounter = lCounter + 1

End If

Next i

GetCountOfName = lCounter

End Function