โปรแกรมนี้ใน Excel VBA ใช้คุณสมบัติ Count, ฟังก์ชัน IsNumeric, ฟังก์ชัน IsEmpty และเมธอด Intersect to ทดสอบการเลือก .
สถานการณ์:
วิธีลบแถวเฉพาะใน excel
สถานที่ ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:
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. ทดสอบโปรแกรม
เมื่อคุณเลือกหมายเลขเดียวในช่วงที่มีเส้นขอบ ผลลัพธ์จะเป็น:
ในกรณีอื่นๆ ผลลัพธ์จะเป็นดังนี้:
ไปที่บทถัดไป: ตัวแปร