สร้างรูปแบบใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่ สร้างรูปแบบ.

สถานการณ์:

วางปุ่มคำสั่งในแผ่นงานของคุณและเพิ่มบรรทัดรหัสต่อไปนี้:

1. ขั้นแรกเราจะประกาศตัวแปรสองประเภท Integer หนึ่งชื่อฉันและหนึ่งชื่อ j

Dim i As Integer, j As Integer

2. ประการที่สองเราเพิ่ม 2 แถวสำหรับ Next

For i = 1 To 5 Step 2
For j = 1 To 5 Step 2

3. ต่อไปเราจะเพิ่มบรรทัดที่เปลี่ยนสีพื้นหลังของเซลล์เป็นสีเทาอ่อน

Cells(i, j).Interior.ColorIndex = 15

หมายเหตุ: แทนที่จะเป็นหมายเลข ColorIndex 15 (สีเทาอ่อน) คุณสามารถใช้หมายเลข ColorIndex ได้

4. ปิดสอง For Next loops

Next j
Next i

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

ผลจนถึงขณะนี้

ตัวอย่างเช่นสำหรับ i = 1 และ j = 1, Excel VBA(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. เราเกือบจะอยู่ที่นั่น สิ่งเดียวที่เราต้องทำคือสีเซลล์ที่ถูกชดเชยโดยแถวที่ 1 ด้านล่างและ 1 คอลัมน์ทางด้านขวาของเซลล์มีสีอยู่แล้ว เพิ่มบรรทัดรหัสต่อไปนี้ลงในลูป

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

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

ผล: