300 ตัวอย่าง

สร้างรูปแบบ

Create Pattern

ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น สร้างลวดลาย .





สถานการณ์:

สร้างรูปแบบใน 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 = 15

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

ผลลัพธ์:

สร้างผลลัพธ์รูปแบบ

6/11 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับลูป >
ไปที่บทถัดไป: ข้อผิดพลาดมาโคร



^