/ / Excel VBA'da Olası Futbol Maçları

Excel VBA'da Muhtemel Futbol Maçları

Aşağıda bir programa bakacağız Excel VBA Bu, tüm olası futbol maçları takım listesinden.

Durum:

Excel VBA'da Muhtemel Futbol Maçları

1. İlk olarak, bir Range nesnesini ve dört değişkeni beyan ederiz. Range nesnesini çağırıyoruz. Eşleşme adı olarak adlandırdığımız bir String değişkeni ve sayacı, i ve j olarak adlandırdığımız üç Tamsayı değişken.

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

2. Takım isimlerini rng ile başlatıyoruz. CurrentRegion'u kullanıyoruz çünkü şimdiye kadarki aralığın kesin sınırlarını bilmiyoruz (bu programın 3 takım için çalışmasını istiyoruz ama 12 takım için de çalışıyoruz).

Set rng = Range("A1").CurrentRegion
counter = 0

3. Tüm olası futbol maçlarını C sütununa yazıyoruz. İlk olarak, C sütununu boşaltıyoruz.

Worksheets(1).Columns(3) = ""

4. Çift Döngü başlatırız.

For i = 1 To rng.Count
    For j = i + 1 To rng.Count

5. Değişken eşleşme adına bir eşleşme ismi yazıyoruz.

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

Örneğin, i = 1 ve j = 2 için, Excel VBA Kickers vs Shooters eşleşme adını yazar. İ = 1 ve j = 3 için, Excel VBA Kickers vs Little Giants, vs matchname yazıyor.

6. Eşleşme adını C sütununa yazarız.

Cells(counter + 1, 3).Value = matchname

7. Sayaç, C sütununa yazılan eşleşme adlarının sayısını tutar. Excel VBA, bir eşleşme adını C sütununa her yazdığında 1 sayacı artırır. Bunu başarmak için, aşağıdaki kod satırını ekleyin:

counter = counter + 1

8. İki döngüyü kapatmayı unutmayın.

    Next j
Next i

9. Tüm olası futbol maçlarının bir önizlemesini gösteririz.

ActiveSheet.Columns(3).PrintPreview

10. Programı test edin.

Sonuç kısmı:

Muhtemel Futbol Maçları Sonuç

Not: Bu sonucu elde etmek için C sütunu manuel olarak ortalanır.

Ayrıca oku: