ผู้เขียน หัวข้อ: การนับแถว และการนับคอลัมน์ที่มีข้อมูลใน excel ด้วย VBA  (อ่าน 45 ครั้ง)

administrator

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 1466
    • ดูรายละเอียด
การนับแถว และการนับคอลัมน์ที่มีข้อมูลใน excel ด้วย VBA

ตัวอย่างการนับแถว



อ้างถึง
Sub DataCount()

CountRows = Application.WorksheetFunction.CountA(Range("B:B")) ' นับที่คอลัมน์ B

MsgBox "มีข้อมูลจำนวน  " & CountRows & " แถว"

End Sub

บรรทัดแรก ในตัวแปร CountRows จะเก็บค่าเลข 8 คือผลจากการใช้ฟังก์ชั่น CountA ในคอลัมน์ B

ส่วนบรรทัด MsgBox จะมีข้อความแสดง “มีข้อมูลจำนวน  8 แถว”
นำไปประยุกต์เอานะครับ

ตัวอย่างการนับคอลัมน์



อ้างถึง
Sub Datacount2()

CountColmn = Application.WorksheetFunction.CountA(Rows(2))  'นับแถวที่ 2

MsgBox "มีข้อมูลจำนวน  " & CountColmn & " คอล้มน์"

End Sub

ส่วนนี้ เป็นการนับคอลัมน์ ซึ่งไม่ต่างจากการนับแถว
« แก้ไขครั้งสุดท้าย: 01/02/20 โดย administrator »