Dim a, RowsCount As Integer
a = 1
RowsCount = 0
With Sheets(InsSheet)
Do Until a = 0
If .Cells(a, Col) <> “” Then
RowsCount = RowsCount + 1
a = a + 1
Else: a = 0
End If
Loop
RowCountSh = RowsCount
End With
- คลิ๊กขวาที่ ไฟล์ เลือก View Code
- เลือกออบเจ๊กต์ Workbook, Event “Open”
- พิมพ์ Msgbox “จำนวนแถวที่มีข้อมูลในชีต 1 คอลัมน์ 1 คือ ” & Module1.RowCountSh(1,1)
- Save and Close file
- เปิดไฟล์เดิมอีกครั้ง จะได้ Mesage Box ที่แสดงจำนวนแถวที่มีข้อมูลในชีต 1 คอลัมน์ 1
