เนื้อหา
บางครั้งเราจำเป็นต้องทราบจำนวนแถวที่ใช้ในสเปรดชีต Excel เพื่อให้เราสามารถสร้างสูตรหรือแม้แต่แมโคร VBA โชคดีที่มีวิธีการที่ค่อนข้างง่ายในการทำเช่นนี้และ Excel VBA เป็นเพียงหนึ่งในนั้นวิธีที่ง่ายที่สุดในการค้นหาข้อมูลนี้คือไปที่ด้านล่างของแผ่นงานของคุณและดูหมายเลขทางด้านขวาของจุดข้อมูลล่าสุด อย่างไรก็ตามด้วย VBA การคำนวณนี้ง่ายมาก
คำสั่ง
-
เปิดแผ่นงาน Excel และเครื่องมือแก้ไข VBA โดยกด "Alt + F11"
-
เริ่มไฟล์โครงการ VBA ใหม่โดยคลิกขวาที่สมุดงานของคุณแสดงในเมนูด้านขวาแล้วเลือก "ใหม่"
-
เริ่มฟังก์ชั่นใหม่โดยพิมพ์ "Sub CountRows ()" สิ่งนี้บอกคอมไพเลอร์ VBA ว่ามีรูทีนย่อยใหม่สำหรับไฟล์โครงการ หากคุณต้องการเปลี่ยนชื่อรูทีนย่อยให้เปลี่ยนข้อความ "CountRows" เป็นชื่อที่ต้องการซึ่งจะต้องตามด้วยวงเล็บที่แสดงด้านบนเช่น "YourName ()"
-
สร้างตัวแปรรวมถึงข้อความ "Dim Count as Long" ในบรรทัดถัดไป
-
ใส่รหัสต่อไปนี้:
Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0) เลือก Loop จนกระทั่ง IsEmpty (ActiveCell.Offset (0, 1))
ซึ่งแจ้งให้โปรแกรมคอมไพเลอร์ทราบว่าจำเป็นต้องวิเคราะห์ตัวแปร Count แล้วนับแถวของแผ่นงานทั้งหมด รหัสจะเพิ่มตัวแปรให้กับจำนวนรวมจากนั้นย้ายไปยังเซลล์ถัดไปตราบเท่าที่ยังว่างอยู่ เมื่อถึงเซลล์ว่างการดำเนินการจะหยุด
-
เปิดใช้งานกล่องข้อความโดยเพิ่มบรรทัดใหม่ด้วยข้อความ "จำนวน MsgBox" สิ่งนี้จะแสดงกล่องป๊อปอัปที่บอกจำนวนแถวทั้งหมดให้คุณ เพื่อให้กล่องมีประโยชน์มากขึ้นคุณสามารถป้อนข้อความเพิ่มเติมได้ เปลี่ยนชื่อบรรทัดเป็น:
MsgBox "มี" [นับจำนวน] "บรรทัด"
คุณสามารถเปลี่ยนข้อความในเครื่องหมายคำพูดได้ตามต้องการ
-
สุดท้ายให้พิมพ์ "End Sub" ในบรรทัดใหม่เพื่อออกจากฟังก์ชั่นรูทีนย่อย
การกำหนดตารางมาโคร
-
กลับไปที่แผ่นงาน Excel ของคุณแล้วบันทึก
-
ไฮไลต์เซลล์คอลัมน์แรกที่มีจำนวนข้อมูลมากที่สุด คอลัมน์นี้ไม่ควรมีเซลล์ว่างจากบนลงล่าง
-
เปิดเมนู "เครื่องมือ" และเลือก "มาโคร" เพื่อแสดงกล่องโต้ตอบที่มีมาโครทั้งหมดที่ตั้งโปรแกรมไว้สำหรับแผ่นงาน
-
เลือกแมโครที่สร้างขึ้นในส่วนที่ 1 ด้วยชื่อ "CountRows" หรือชื่ออื่น ๆ ที่คุณให้ไว้แล้วคลิก "เรียกใช้" เมื่อเสร็จแล้วแมโครจะแสดงกล่องข้อความแบบผุดขึ้นที่บอกจำนวนแถวที่กรอก
เรียกใช้แมโคร
เคล็ดลับ
- หากคุณต้องการรับตัวเลขทางเลือกที่ง่ายกว่าและง่ายกว่าคือการนับแถวโดยใช้สูตร ในเซลล์ว่างให้พิมพ์ "= COUNT (A: A, IF (A> 0,1,0))" โดยที่ A คือคอลัมน์ที่มีการนับจำนวนแถว