Ακολουθεί μια λίστα με τις δέκα πιο συχνά χρησιμοποιούμενες δομές ελέγχου προγραμματισμού Excel VBA. Περιλαμβάνεται ένα απλό παράδειγμα κάθε δομής ελέγχου και μια σύντομη περιγραφή του πότε θα χρησιμοποιούσατε αυτήν τη δομή.
Για – Επόμενο
Χρήσιμο για επαναφορά σε έναν πίνακα.
ArraySum = 0
Για i = 1 έως 10
ArraySum = ArraySum + MyArray(i)
Επόμενο i
Για Κάθε – Επόμενο
Χρήσιμο για επαναφορά σε μια συλλογή ή μια σειρά κελιών.
Επιλογή Άθροισμα = 0
Για κάθε κελί στην επιλογή
SelectionSum = SelectionSum + κελί.Τιμή
Επόμενο κελί
Do – Loop μέχρι
Κάντε βρόχο μέχρι να εκπληρωθεί μια προϋπόθεση.
Σειρά = 0
Κάνω
Σειρά = Σειρά + 1
Βρόχος μέχρι τα κελιά (Σειρά, 1).Τιμή = "
MsgBox "Το πρώτο κενό κελί είναι στη σειρά " & στη σειρά
Do while – Loop
Κάντε βρόχο ενώ μια συνθήκη είναι αληθής.
Σειρά = 1
Do while Cells (Σειρά, 1) <> "
Σειρά = Σειρά + 1
Βρόχος
MsgBox "Το πρώτο κενό κελί είναι στη σειρά " & στη σειρά
Αν τότε
Κάντε κάτι εάν μια συνθήκη είναι αληθής. Γράφτηκε ως ενιαία δήλωση.
Αν x = 1, τότε y = 1
Αν – Τότε – Τέλος Αν
Κάντε κάτι εάν μια συνθήκη είναι αληθής. Μπορεί να χρησιμοποιήσει πολλαπλές δηλώσεις.
Αν x = 1 Τότε
y = 1
z = 1
Τέλος εαν
Αν – Τότε – Αλλιώς
Κάντε κάτι εάν μια συνθήκη είναι αληθής. αλλιώς κάνε κάτι άλλο. Γράφτηκε ως ενιαία δήλωση.
Αν x = 1 Τότε y = 1 Αλλιώς y = 0
Αν – Τότε – Άλλο – Τέλος Αν
Κάντε κάτι εάν μια συνθήκη είναι αληθής. αλλιώς κάνε κάτι άλλο. Μπορεί να χρησιμοποιήσει πολλαπλές δηλώσεις.
Αν x = 1 Τότε
y = 1
Z = 1
Αλλού
y = 0
Z = 0
Τέλος εαν
Επιλέξτε Περίπτωση
Κάντε ένα από τα πολλά πράγματα, ανάλογα με μια κατάσταση.
Επιλέξτε Περίπτωση x
Περίπτωση 1
y = 1
Z = 1
Περίπτωση είναι > 1
y = 2
Z = 2
Άλλη περίπτωση
y = 0
Z = 0
Τέλος Επιλογή
Παω σε
Μετάβαση σε μια δήλωση με ετικέτα. Αυτό χρησιμοποιείται κυρίως για τον χειρισμό σφαλμάτων.
Σε σφάλμα GoTo Ωχ
«[περισσότερος κωδικός πηγαίνει εδώ]
Έξοδος υπο
Ωχ:
MsgBox "Παρουσιάστηκε σφάλμα"