300 ตัวอย่าง

การแข่งขันฟุตบอลที่เป็นไปได้

Possible Football Matches

ด้านล่างเราจะดูโปรแกรมใน Excel VBA ที่แสดงตัวอย่างก่อนพิมพ์ของทั้งหมด การแข่งขันฟุตบอลที่เป็นไปได้ จากรายชื่อทีม





สถานการณ์:

การแข่งขันฟุตบอลที่เป็นไปได้ใน 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 = matchname

7. ตัวนับจะติดตามจำนวนชื่อที่ตรงกันที่เขียนลงในคอลัมน์ C Excel VBA จะเพิ่มตัวนับทีละ 1 ทุกครั้งที่เขียนชื่อที่ตรงกันลงในคอลัมน์ C เพื่อให้บรรลุเป้าหมายนี้ ให้เพิ่มโค้ดบรรทัดต่อไปนี้:

เคาน์เตอร์ = เคาน์เตอร์ + 1

8. อย่าลืมปิดสองลูป

ต่อไปNS
ต่อไปผม

9. เราแสดงตัวอย่างก่อนพิมพ์ของการแข่งขันฟุตบอลที่เป็นไปได้ทั้งหมด

excel if และทำงานหลายเงื่อนไข
ActiveSheet.Columns(3).PrintPreview

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

ส่วนหนึ่งของผลลัพธ์:

ผลการแข่งขันฟุตบอลที่เป็นไปได้

หมายเหตุ: คอลัมน์ C จัดกึ่งกลางด้วยตนเองเพื่อให้ได้ผลลัพธ์นี้

10/14 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับวัตถุช่วง >
ไปที่บทถัดไป: ตัวแปร



^