Cara menggunakan fungsi counta di vba (dengan contoh)

Anda dapat menggunakan metode CountA di VBA untuk menghitung jumlah sel yang tidak kosong dalam rentang tertentu.

Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

Contoh khusus ini menghitung jumlah sel yang tidak kosong dalam rentang A1:A10 dan menampilkan hasilnya di sel C1 .

Jika Anda ingin menampilkan jumlah sel yang tidak kosong di kotak pesan, Anda bisa menggunakan sintaks berikut:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan kolom nilai berikut di Excel:

Contoh 1: Hitung sel yang tidak kosong dalam rentang tersebut dan tampilkan hasilnya di sel tersebut

Misalkan kita ingin menghitung jumlah sel yang tidak kosong di rentang A1:A10 dan menampilkan hasilnya di sel tertentu.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel C1 berisi nilai 7 .

Ini memberitahu kita bahwa ada 7 sel yang tidak kosong dalam rentang A1:A10 .

Contoh 2: Hitung sel yang tidak kosong dalam rentang tersebut dan tampilkan hasilnya di kotak pesan

Misalkan kita ingin menghitung jumlah sel yang tidak kosong dalam rentang A1:A10 dan menampilkan hasilnya dalam kotak pesan.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa ada 7 sel yang tidak kosong dalam rentang A1:A10 .

Perhatikan bahwa jika Anda ingin menghitung jumlah sel yang tidak kosong di seluruh kolom, Anda bisa mengetikkan A:A .

Ini akan menghitung jumlah sel yang tidak kosong di seluruh kolom A.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA CountA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menulis fungsi AVERAGEIF dan AVERAGEIFS
VBA: Cara menulis fungsi SUMIF dan SUMIFS
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS