/ / / Πιθανά αγώνες ποδοσφαίρου στο Excel VBA

Πιθανές αντιστοιχίες ποδοσφαίρου στο Excel VBA

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που εμφανίζει μια προεπισκόπηση εκτύπωσης όλων των πιθανών ποδοσφαιρικών αγώνων από μια λίστα των ομάδων.

Κατάσταση:

Πιθανές αντιστοιχίες ποδοσφαίρου στο Excel VBA

1. Πρώτα, δηλώνουμε ένα αντικείμενο Range και τέσσερις μεταβλητές. Ονομάζουμε το αντικείμενο Range rng. Μία μεταβλητή String που ονομάζουμε matchname και τρεις μεταβλητές ακεραίων που ονομάζουμε counter, i και j.

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

2. Αρχίζουμε το rng με τα ονόματα των ομάδων. Χρησιμοποιούμε CurrentRegion επειδή δεν γνωρίζουμε τα ακριβή όρια του εύρους εκ των προτέρων (θέλουμε αυτό το πρόγραμμα να λειτουργήσει για 3 ομάδες αλλά και για 12 ομάδες). Αρχικοποιούμε τον μετρητή με την τιμή 0.

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

3. Γράφουμε όλους τους πιθανούς ποδοσφαιρικούς αγώνες στη στήλη C. Πρώτα, αδειάζουμε τη στήλη C.

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

4. Ξεκινάμε ένα διπλό βρόχο.

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

5. Γράφουμε ένα matchname στη μεταβλητή matchname.

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

Για παράδειγμα, για i = 1 και j = 2, το Excel VBA γράφει τα matchname Kickers vs Shooters. Για το i = 1 και το j = 3, το Excel VBA γράφει τα Matchname Kickers vs Little Giants, κλπ.

6. Γράφουμε το matchname στη στήλη C.

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

7. Ο μετρητής παρακολουθεί τον αριθμό των αντίστοιχων ονομάτων που έχουν γραφτεί στη στήλη C. Το Excel VBA αυξάνει τον αριθμό κατά 1 κάθε φορά που γράφει ένα matchname στη στήλη C. Για να το επιτύχετε αυτό, προσθέστε την ακόλουθη γραμμή κώδικα:

counter = counter + 1

8. Μην ξεχάσετε να κλείσετε τους δύο βρόχους.

    Next j
Next i

9. Εμφανίζουμε προεπισκόπηση όλων των πιθανών ποδοσφαιρικών αγώνων.

ActiveSheet.Columns(3).PrintPreview

10. Ελέγξτε το πρόγραμμα.

Μέρος του αποτελέσματος:

Πιθανά αποτελέσματα αγώνα ποδοσφαίρου

Σημείωση: Η στήλη C είναι κεντραρισμένη με το χέρι για να αποκτήσετε αυτό το αποτέλεσμα.

Επίσης διαβάστε: