Vba: วิธีนับจำนวนคอลัมน์ที่ใช้

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อนับจำนวนคอลัมน์ที่ใช้ในแผ่นงาน Excel โดยใช้ VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับชุดข้อมูลต่อไปนี้ใน Excel ที่มีข้อมูลเกี่ยวกับผู้เล่นบาสเกตบอลต่างๆ:

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

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

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

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

นี่บอกเราว่ามี 4 คอลัมน์ที่ใช้

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

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

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

กล่องข้อความบอกเราว่ามี 4 คอลัมน์ที่ใช้

หมายเหตุ : หากมีคอลัมน์ว่างตามด้วยคอลัมน์ที่มีข้อมูล VBA จะนับคอลัมน์ว่างเป็น “ใช้แล้ว” ในการคำนวณ

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

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

VBA: วิธีนับจำนวนแผ่นงานในสมุดงาน
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีนับเซลล์ด้วยข้อความเฉพาะ