Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που εμφανίζει μια προεπισκόπηση εκτύπωσης όλων των πιθανούς αγώνες ποδοσφαίρου από μια λίστα ομάδων.
Κατάσταση:
1. Αρχικά, δηλώνουμε ένα αντικείμενο εύρους και τέσσερις μεταβλητές. Ονομάζουμε το αντικείμενο Range rng. Μια μεταβλητή συμβολοσειράς ονομάζουμε matchname και τρεις ακέραιες μεταβλητές ονομάζουμε μετρητή, i και j.
Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer
2. Αρχικοποιούμε το rng με τα ονόματα των ομάδων. Χρησιμοποιούμε το CurrentRegion επειδή δεν γνωρίζουμε τα ακριβή όρια του εύρους εκ των προτέρων (θέλουμε αυτό το πρόγραμμα να λειτουργεί για 3 ομάδες αλλά και για 12 ομάδες). Αρχικοποιούμε τον μετρητή με τιμή 0.
Ρύθμιση rng = Εύρος ("A1"). CurrentRegion
μετρητής = 0
3. Γράφουμε όλους τους πιθανούς αγώνες ποδοσφαίρου στη στήλη Γ. Αρχικά, αδειάζουμε τη στήλη Γ.
Φύλλα εργασίας (1). Στήλες (3) = ""
4. Ξεκινάμε ένα Double Loop.
Για i = 1 Προς rng.Count
Για j = i + 1 έως rng.Count
5. Γράφουμε ένα όνομα μητρώου στη μεταβλητή όνομα μητρώου.
matchname = 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. Γράφουμε το όνομα μητρών στη στήλη Γ.
Κελιά (μετρητής + 1, 3). Αξία = όνομα μητρ
7. Ο μετρητής παρακολουθεί τον αριθμό των μητρικών ονομάτων που γράφονται στη στήλη C. Το Excel VBA αυξάνει τον μετρητή κατά 1 κάθε φορά που γράφει ένα όνομα μητρών στη στήλη C. Για να επιτευχθεί αυτό, προσθέστε την ακόλουθη γραμμή κώδικα:
μετρητής = μετρητής + 1
8. Μην ξεχάσετε να κλείσετε τους δύο βρόχους.
Επόμενο j
Επόμενο i
9. Δείχνουμε μια προεπισκόπηση εκτύπωσης όλων των πιθανών αγώνων ποδοσφαίρου.
ActiveSheet.Colunns (3) .PrintPreview
10. Δοκιμάστε το πρόγραμμα.
Μέρος του αποτελέσματος:
Σημείωση: Η στήλη C είναι κεντρικά χειροκίνητη για να λάβετε αυτό το αποτέλεσμα.
