ด้านล่างเราจะดูโปรแกรมใน Excel VBA ที่แสดงตัวอย่างก่อนพิมพ์ของทั้งหมด การแข่งขันฟุตบอลที่เป็นไปได้ จากรายชื่อทีม
สถานการณ์:
1. ขั้นแรก เราประกาศออบเจ็กต์ Range หนึ่งตัวและตัวแปรสี่ตัว เราเรียกวัตถุช่วง rng ตัวแปร String หนึ่งตัวที่เราเรียกว่า matchname และตัวแปร Integer สามตัวที่เราเรียกว่าตัวนับ i และ j
ไม่มีrngเนื่องจากระยะ, ชื่อที่ตรงกันเนื่องจาก สตริง, เคาน์เตอร์เนื่องจาก จำนวนเต็ม, ผมเนื่องจาก จำนวนเต็ม, NSเนื่องจาก จำนวนเต็ม2. เราเริ่มต้น rng ด้วยชื่อทีม เราใช้ ภูมิภาคปัจจุบัน เพราะเราไม่ทราบขอบเขตที่แน่นอนของช่วงล่วงหน้า (เราต้องการให้โปรแกรมนี้ทำงานสำหรับ 3 ทีม แต่สำหรับ 12 ทีมด้วย) เราเริ่มต้นตัวนับด้วยค่า 0
คุณเชื่อมต่อใน excel ได้อย่างไรชุดrng = Range('A1').CurrentRegion
ตัวนับ = 0
3. เราเขียนการแข่งขันฟุตบอลที่เป็นไปได้ทั้งหมดลงในคอลัมน์ C. อันดับแรก เราเว้นคอลัมน์ C.
แผ่นงาน(1).คอลัมน์(3) = ''4. เราเริ่ม วงคู่ .
วิธีการจัดทำแผนภูมิข้อมูลใน excelสำหรับผม = 1ถึงrng.Count
สำหรับเจ = ผม + 1ถึงrng.Count
5. เราเขียนชื่อที่ตรงกันไปยังชื่อที่ตรงกันของตัวแปร
ชื่อที่ตรงกัน = rng.Cells(i).Value & ' vs ' & rng.Cells(j).Valueตัวอย่างเช่น สำหรับ i = 1 และ j = 2 Excel VBA จะเขียนชื่อการแข่งขันว่า Kickers vs Shooters สำหรับ i = 1 และ j = 3 Excel VBA จะเขียนชื่อการแข่งขันว่า Kickers vs Little Giants เป็นต้น
6. เราเขียนชื่อที่ตรงกันในคอลัมน์ C
เซลล์(ตัวนับ + 1, 3).Value = matchname7. ตัวนับจะติดตามจำนวนชื่อที่ตรงกันที่เขียนลงในคอลัมน์ C Excel VBA จะเพิ่มตัวนับทีละ 1 ทุกครั้งที่เขียนชื่อที่ตรงกันลงในคอลัมน์ C เพื่อให้บรรลุเป้าหมายนี้ ให้เพิ่มโค้ดบรรทัดต่อไปนี้:
เคาน์เตอร์ = เคาน์เตอร์ + 18. อย่าลืมปิดสองลูป
ต่อไปNSต่อไปผม
9. เราแสดงตัวอย่างก่อนพิมพ์ของการแข่งขันฟุตบอลที่เป็นไปได้ทั้งหมด
excel if และทำงานหลายเงื่อนไขActiveSheet.Columns(3).PrintPreview
10. ทดสอบโปรแกรม
ส่วนหนึ่งของผลลัพธ์:
หมายเหตุ: คอลัมน์ C จัดกึ่งกลางด้วยตนเองเพื่อให้ได้ผลลัพธ์นี้
ไปที่บทถัดไป: ตัวแปร