Vba: วิธีนับจำนวนแถวในช่วง
คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อนับจำนวนแถวในช่วงใน Excel โดยใช้ VBA:
SubCountRows ()
Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub
ตัวอย่างนี้จะนับจำนวนแถวในคอลัมน์ A จากนั้นกำหนดผลลัพธ์ให้กับเซลล์ E2
ถ้าคุณต้องการแสดงจำนวนบรรทัดในกล่องข้อความแทน คุณสามารถใช้ไวยากรณ์ต่อไปนี้:
SubCountRows ()
'Create variable to store number of rows
Dim row_count As Integer
'Calculate number of rows in range
row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
'Display the result
MsgBox " Rows in Column A: " & row_count
End Sub
ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับชุดข้อมูลต่อไปนี้ใน Excel ที่มีชื่อของผู้เล่นบาสเก็ตบอลจากสามทีมที่แตกต่างกัน:
ตัวอย่างที่ 1: นับแถวในช่วงโดยใช้ VBA และแสดงผลลัพธ์ในเซลล์
สมมติว่าเราต้องการคำนวณจำนวนแถวในคอลัมน์ A และแสดงผลลัพธ์ในเซลล์ใดเซลล์หนึ่ง
เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:
SubCountRows ()
Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub
เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:
โปรดสังเกตว่าเซลล์ E2 มีค่า 9
สิ่งนี้บอกเราว่ามี 9 แถวในคอลัมน์ A ที่มีค่า
ตัวอย่างที่ 2: นับแถวในช่วงโดยใช้ VBA และ แสดงผลลัพธ์ในกล่องข้อความ
สมมติว่าเราต้องการ นับจำนวนแถวในคอลัมน์ A และแสดงผลลัพธ์ในกล่องข้อความแทน
เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:
SubCountRows ()
'Create variable to store number of rows
Dim row_count As Integer
'Calculate number of rows in range
row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
'Display the result
MsgBox " Rows in Column A: " & row_count
End Sub
เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:
กล่องข้อความบอกเราว่ามี 9 แถวในคอลัมน์ A ที่มีค่า
โปรดทราบว่าในตัวอย่างนี้ เราคำนวณจำนวนแถวในคอลัมน์ A ทั้งหมดโดยใช้ A:A เป็นช่วง
อย่างไรก็ตาม หากคุณต้องการคำนวณจำนวนแถวที่มีค่าในช่วงที่ต้องการแทน คุณสามารถพิมพ์ A2:A9 (หรือช่วงอื่นๆ ที่คุณสนใจ)
แหล่งข้อมูลเพิ่มเติม
บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:
VBA: วิธีเขียนฟังก์ชัน AVERAGEIF และ AVERAGEIFS
VBA: วิธีเขียนฟังก์ชัน SUMIF และ SUMIFS
VBA: วิธีเขียนฟังก์ชัน COUNTIF และ COUNTIFS