Counter

                     Counter

Count  adalah  menghitung sebuah obyek
Obyek yang dimaksud disini adalah berupa baris , kolom ,kolom , sheets, atau rentan nilai dalam sebuah obyek

Misalnya kita akan menghitung jumlah baris yang terisi data tentukan kita akan menggunakan fasilitas VBA

Menghitung jumlah baris yang berisi data di pada sebuah worksheets tertentu Misalnya kita akan menghitung jumlah data lembar kerja aktif.
Ini kode nya :

Sub test()
    Dim myRange As Range
    Dim NumRows As Integer
    Set myRange = Range("A:A")
    NumRows = Application.WorksheetFunction.CountA(myRange)
    MsgBox NumRows
End Sub

Kita mencoba menghitung jumlah baris dalam rentang dalam lembar kerja yang berbeda dari lembar kerja aktif. Ini kode nya :

Sub data()
Dim jumlahdata As Long
With Sheets("data")
jumlahdata = .Range("A" & .Rows.Count).End(xlUp).Row
End With
MsgBox (jumlahdata)
End Sub

Menghitung jumlah sheet yang ada di workbook

Sub Count_sheet()
myCount = Application.Sheets.Count
    MsgBox myCount
    End Sub
   
Menghitung jumlah baris selection

Sub Count_Rows()
    myCount = Selection.Rows.Count
  MsgBox myCount
    End Sub

Menghitung jumlah kolom selection

Sub Count_Coulumn()
    myCount = Selection.Columns.Count
    MsgBox myCount
    End Sub

         
Sub Count_nilai()
  menambah nilai di cell A1 Setiap kali macro running
          mycount = Range("a1") + 1
            Range("a1") = mycount
            End Sub

Selesai
silahkan dikembangkan selanjutnya
Semoga bermanfaat