300 ตัวอย่าง

ทดสอบการเลือก

Test Selection

โปรแกรมนี้ใน Excel VBA ใช้คุณสมบัติ Count, ฟังก์ชัน IsNumeric, ฟังก์ชัน IsEmpty และเมธอด Intersect to ทดสอบการเลือก .





สถานการณ์:

วิธีลบแถวเฉพาะใน excel

ทดสอบการเลือกใน Excel VBA





สถานที่ ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:

1. ขั้นแรก เราประกาศออบเจกต์ Range สองอัน เราเรียกวัตถุช่วง rng และเซลล์



ไม่มีrngเนื่องจากช่วงเซลล์เนื่องจากพิสัย

2. เราเริ่มต้นวัตถุ Range rng ด้วย Range('C4:D10') และเซลล์วัตถุ Range ด้วยช่วงที่เลือก

ชุดrng = ช่วง ('C4:D10')
ชุดเซลล์ = การเลือก

3. เพิ่มบรรทัดรหัสต่อไปนี้:

ถ้าcell.Count = 1และIsNumeric(เซลล์)และ ไม่IsEmpty(เซลล์)และ ไม่อินเตอร์เซก(rng, เซลล์)เป็น ไม่มีอะไร แล้ว
MsgBox 'คุณชนะ'
อื่น
MsgBox 'คุณแพ้'
จบ ถ้า

คำอธิบาย: Intersect(rng, cell) ส่งคืนวัตถุ Range ที่แสดงถึง จุดตัด ของทั้งสองช่วง ถ้าวัตถุช่วงนี้ไม่ใช่ Nothing ตัวเลขเดี่ยว (สามเงื่อนไขแรก) จะอยู่ในช่วงที่มีเส้นขอบ

4. ทดสอบโปรแกรม

เมื่อคุณเลือกหมายเลขเดียวในช่วงที่มีเส้นขอบ ผลลัพธ์จะเป็น:

ทดสอบผลการคัดเลือก

ในกรณีอื่นๆ ผลลัพธ์จะเป็นดังนี้:

ทดสอบผลการคัดเลือก

9/14 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับวัตถุช่วง >
ไปที่บทถัดไป: ตัวแปร



^