Cara Menghitung Cells yang berisi Jam dengan VBA

Pada Tips VBA kai ini ExcelNoob akan membuat sebuah fungsi untuk menghitung isi Cell yang berisi format Jam. Dimisalkan ada data seperti dibawah ini

Dari Data diatas, kita ingin menghitung ada berapa Cell yang berisi data berupa JAM. Mungkin jika kita ingin mencari data yang berisi Text atau Number kita bisa dengan menggunakan Formula Excel. Tetapi bagaimana jika kita ingin menghitung data yang berisi JAM. Kita bisa membuatnya dengan VBA atau istilahnya UDF (User Define Function)

Function HitungygJam(ParamArray Ranges()) As Long
'==============================
'Apps : Fungsi Hitung Jam
'Auth : ExcelNoob.com
'==============================
Dim I As Long, nJam As Long
For I = LBound(Ranges) To UBound(Ranges)
    For Each C In Ranges(I)
        ApakahJam = (Left(C.NumberFormat, 4) = "h:mm" And VarType(C) = vbDouble)
        If ApakahJam Then
            nJam = nJam + 1
    End If
    Next C
Next I
HitungygJam = nJam
End Function

Cara penggunaan fungsi diatas

=HitungygJam(A2:E9)