วิธีใช้ฟังก์ชัน counta ใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้เมธอด CountA ใน VBA เพื่อนับจำนวนเซลล์ที่ไม่ว่างในช่วงที่ระบุได้

นี่เป็นวิธีทั่วไปในการใช้วิธีนี้ในทางปฏิบัติ:

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

ตัวอย่างนี้จะนับจำนวนเซลล์ที่ไม่ว่างในช่วง A1:A10 และแสดงผลลัพธ์ในเซลล์ C1

ถ้าคุณต้องการแสดงจำนวนเซลล์ที่ไม่ว่างในกล่องข้อความแทน คุณสามารถใช้ไวยากรณ์ต่อไปนี้:

 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

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับคอลัมน์ค่าต่อไปนี้ใน Excel:

ตัวอย่างที่ 1: นับเซลล์ที่ไม่ว่างในช่วงและแสดงผลลัพธ์ในเซลล์

สมมติว่าเราต้องการคำนวณจำนวนเซลล์ที่ไม่ว่างในช่วง A1:A10 และแสดงผลลัพธ์ในเซลล์เฉพาะ

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

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

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดสังเกตว่าเซลล์ C1 มีค่า 7

สิ่งนี้บอกเราว่ามีเซลล์ที่ไม่ว่าง 7 เซลล์ในช่วง A1:A10

ตัวอย่างที่ 2: นับเซลล์ที่ไม่ว่างในช่วงและแสดงผลลัพธ์ใน กล่องข้อความ

สมมติว่าเราต้องการนับจำนวนเซลล์ที่ไม่ว่างในช่วง A1:A10 และแสดงผลลัพธ์ในกล่องข้อความ

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 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

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

กล่องข้อความบอกเราว่ามีเซลล์ที่ไม่ว่าง 7 เซลล์ในช่วง A1:A10

โปรดทราบว่าถ้าคุณต้องการนับจำนวนเซลล์ที่ไม่ว่างในทั้งคอลัมน์ คุณสามารถพิมพ์ A:A แทนได้

วิธีนี้จะคำนวณจำนวนเซลล์ที่ไม่ว่างในคอลัมน์ A ทั้งหมด

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับวิธี VBA CountA ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีเขียนฟังก์ชัน AVERAGEIF และ AVERAGEIFS
VBA: วิธีเขียนฟังก์ชัน SUMIF และ SUMIFS
VBA: วิธีเขียนฟังก์ชัน COUNTIF และ COUNTIFS