ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น สร้างลวดลาย .
สถานการณ์:
สถานที่ ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:
1. ขั้นแรก เราประกาศสองตัวแปรประเภท Integer คนนึงชื่อไอ อีกคนชื่อเจ
ไม่มีผมเนื่องจาก จำนวนเต็ม, NSเนื่องจาก จำนวนเต็ม
2. ประการที่สอง เราเพิ่มสอง For Next loops
สำหรับผม = 1ถึง5ขั้นตอน2สำหรับเจ = 1ถึง5ขั้นตอน2
3. ต่อไป เราเพิ่มบรรทัดที่เปลี่ยนสีพื้นหลังของเซลล์เป็นสีเทาอ่อน
แทรกตัวแบ่งบรรทัดใน excelเซลล์(i, j).Interior.ColorIndex = 15
หมายเหตุ: แทนที่จะใช้ ColorIndex หมายเลข 15 (สีเทาอ่อน) คุณสามารถใช้หมายเลข ColorIndex ใดก็ได้
4. ปิดลูป For Next สองอัน
ต่อไปNSต่อไปผม
5. ทดสอบโปรแกรม
ผลลัพธ์จนถึงตอนนี้
ตัวอย่างเช่น สำหรับ i = 1 และ j = 1 สี Excel VBA เซลล์ (1,1) สำหรับ i = 1 และ j = 3 ( ขั้นตอน 2), Excel VBA สี เซลล์ (1,3), สำหรับ i = 1 และ j = 5, สี Excel VBA เซลล์ (1,5), สำหรับ i = 3 (ขั้นตอนที่ 2) และ j = 1, สี Excel VBA เซลล์ ( 3,1) เป็นต้น
6. เราเกือบจะอยู่ที่นั่นแล้ว สิ่งเดียวที่เราต้องทำคือระบายสีเซลล์ซึ่งก็คือ offset โดย 1 แถวด้านล่างและ 1 คอลัมน์ทางด้านขวาของเซลล์ที่มีสีอยู่แล้ว เพิ่มบรรทัดรหัสต่อไปนี้ในลูป
เซลล์(i, j).Offset(1, 1).Interior.ColorIndex = 157. ทดสอบโปรแกรม
ผลลัพธ์:
ไปที่บทถัดไป: ข้อผิดพลาดมาโคร