VBA COUNTA | วิธีใช้ฟังก์ชัน COUNTA Worksheet ใน Excel VBA

ฟังก์ชัน COUNTA Worksheet ใน Excel VBA

ในบทความก่อนหน้าของเรา "Excel COUNTA" เราได้เห็นวิธีใช้ฟังก์ชัน COUNT เพื่อนับค่าตัวเลขจากช่วงของค่า แล้วการนับค่าทั้งหมดในช่วงของเซลล์ล่ะ? ใช่เราสามารถนับได้เช่นกัน ในการนับค่าเซลล์ทั้งหมดในช่วงของเซลล์เราจำเป็นต้องใช้สูตร“ COUNTA” ใน excel VBA ในบทความนี้เราจะแสดงวิธีใช้ฟังก์ชัน COUNTA ใน VBA เพื่อนับค่าเซลล์ทั้งหมดในช่วงที่ให้มา

ตัวอย่างฟังก์ชัน COUNTA ใน VBA

ความจริงประการหนึ่งคือฟังก์ชัน“ COUNTA” ไม่ใช่ฟังก์ชัน VBA ฉันรู้ว่าคำถามของคุณคือถ้าไม่ใช่ฟังก์ชัน VBA แล้วเราจะใช้มันอย่างไร? ไม่มีอะไรต้องกังวลแม้ว่าจะไม่ใช่ฟังก์ชัน VBA แต่เรายังสามารถใช้ฟังก์ชันนี้ได้ภายใต้คลาสฟังก์ชันแผ่นงานในการเข้ารหัส VBA

คุณสามารถดาวน์โหลดเทมเพลต VBA COUNTA Excel ได้ที่นี่ - เทมเพลต VBA COUNTA Excel

โอเคมาเขียนโค้ดเพื่อใช้ excel VBA COUNTA

ขั้นตอนที่ 1:สร้างชื่อกระบวนการย่อย

ขั้นตอนที่ 2:ก่อนอื่นให้ตัดสินใจว่าเราจะจัดเก็บผลลัพธ์ของฟังก์ชัน VBA COUNTA ไว้ที่ใด ในตัวอย่างนี้ฉันต้องการเก็บผลลัพธ์ไว้ในเซลล์ C2 ดังนั้นรหัสของฉันจะเป็น Range (“ C2”) ค่า

รหัส:

 Sub Counta_Example1 () ช่วง ("C2") ค่า = End Sub 

ขั้นตอนที่ 3:ในเซลล์ C2 เราต้องการค่าของฟังก์ชัน VBA COUNTA ดังนั้นในการใช้ฟังก์ชัน excel VBA COUNTA ให้ใช้คลาสฟังก์ชันแผ่นงานก่อน

รหัส:

 Sub Counta_Example1 () ช่วง ("C2") ค่า = Work End Sub 

ขั้นตอนที่ 4:หลังจากใช้คลาสฟังก์ชันเวิร์กชีตแล้วให้เลือก COUNTA สูตรโดยใส่จุด

รหัส:

 Sub Counta_Example1 () ช่วง ("C2") ค่า = WorksheetFunction.Count End Sub 

ขั้นตอนที่ 5:ตอนนี้เราจำเป็นต้องจัดหาช่วงของเซลล์ที่จะนับ ในตัวอย่างนี้เราต้องนับช่วงของเซลล์ตั้งแต่ A1 ถึง A11 ดังนั้นจัดหาเซลล์โดยใช้วัตถุ VBA RANGE

รหัส:

 Sub Counta_Example1 () ช่วง ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

โอเคมารันโค้ดเพื่อรับผลลัพธ์ในเซลล์ C2

ดังนั้นผลลัพธ์เดียวกันที่ส่งคืนโดย VBA COUNTA เช่นกัน

ด้วยวิธีนี้เราสามารถใช้ COUNTA เพื่อนับเซลล์ที่ไม่ว่างเปล่าหรือไม่ว่างเปล่าจากช่วงที่ให้มา

การเข้ารหัสด้วยตัวแปร

ตัวแปร VBA เป็นกุญแจสำคัญในการสร้างโครงการ สำหรับข้อมูลเดียวกันเราสามารถประกาศตัวแปร VBA และมาถึงผลลัพธ์ได้

สำหรับตัวอย่างดูโค้ดด้านล่าง

รหัส:

 Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub 

มาอธิบายโค้ดด้านบนตอนนี้

ก่อนอื่นฉันได้ประกาศตัวแปร“ CountaRange” เป็นช่วงเพื่ออ้างอิงช่วงของค่า

 Dim CountaRange เป็นช่วง

ต่อไปฉันได้ตั้งค่าการอ้างอิงเป็นช่วง A1 ถึง A11

 ตั้งค่า CountaRange = ช่วง ("A1: A11")

ตัวแปรที่สองคือการอ้างอิงเซลล์ผลลัพธ์ COUNTA

 Dim CountaResultCell As Range

สำหรับตัวแปรนี้ฉันได้ตั้งค่าเซลล์เป็น C2

 ตั้งค่า CountaResultCell = ช่วง ("C2")

ตามปกติฉันได้ใช้ฟังก์ชัน COUNTA โดยใช้ตัวแปรแทนช่วงที่เข้ารหัส ตอนนี้ดูรหัสเก่าและรหัส VBA นี้

รหัส 1:

รหัส 2:

In code 1 we have Range C2, in Code 2 we have the variable name “CountaResultCell”. Here the variable “CountaResultCell” set reference as C2 cell. So this variable is C2 cell now.

In code 1 COUNTA function range is A1 to A11, in code 2 it is variable called “CountaRange”. This variable holds a reference to the range A1 to A11.

This is what is the difference between old code and code with variables.

So, the COUNTA function helps us to count all the non-empty cells from the supplied range irrespective of the data it has.