ตัวอย่างนี้แสดงให้เห็นถึง การรวบรวมพื้นที่ ใน Excel VBA . ด้านล่างเรามีเส้นขอบ Range('B2:C3,C5:E5') ช่วงนี้มีสองพื้นที่ เครื่องหมายจุลภาคคั่นทั้งสองส่วน
สถานที่ ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:
1. ขั้นแรก เราประกาศออบเจกต์ Range สองอัน เราเรียกวัตถุ Range rangeToUse และ singleArea
ไม่มีrangeToUseเนื่องจากช่วง, singleAreaเนื่องจากพิสัย2. เราเริ่มต้นวัตถุ Range rangeToUse ด้วย Range('B2:C3,C5:E5')
ชุดrangeToUse = ช่วง ('B2: C3, C5: E5')
3. ในการนับจำนวนพื้นที่ของ rangeToUse ให้เพิ่มรหัสบรรทัดต่อไปนี้:
MsgBox rangeToUse.Areas.Countผลลัพธ์:
4. คุณสามารถอ้างถึงพื้นที่ต่างๆ ของ rangeToUse ได้โดยใช้ค่าดัชนี บรรทัดรหัสต่อไปนี้นับจำนวนเซลล์ของพื้นที่แรก
MsgBox rangeToUse.Areas(1).Countผลลัพธ์:
5. คุณสามารถวนซ้ำแต่ละพื้นที่ของ rangeToUse และนับจำนวนเซลล์ของแต่ละพื้นที่ได้ มาโครด้านล่างทำเคล็ดลับ
สำหรับ แต่ละsingleAreaในrangeToUse.AreasMsgBox singleArea.Count
ต่อไปsingleArea
ผลลัพธ์:
คำนวณอัตราผลตอบแทนภายใน excel
สำหรับตัวอย่างที่ใช้งานได้จริงของการรวบรวมพื้นที่ ให้ดูที่โปรแกรมตัวอย่างของเรา เปรียบเทียบช่วง .
ไปที่บทถัดไป: ตัวแปร