Πίνακας περιεχομένων:
- Για - Επόμενο
- Για κάθε - Επόμενο
- Do - Loop Μέχρι
- Do While - Loop
- Κάνετε κάτι αν ισχύει μια προϋπόθεση. Μπορεί να χρησιμοποιήσει πολλαπλές δηλώσεις.
- Κάνετε κάτι αν ισχύει μια προϋπόθεση. διαφορετικά, κάνετε κάτι άλλο. Γραπτή ως μία δήλωση.
- Κάντε ένα από τα πολλά πράγματα, ανάλογα με μια συνθήκη.
- Μετάβαση σε μια ετικέτα. Αυτό χρησιμοποιείται κυρίως για χειρισμό σφαλμάτων.
Βίντεο: New bionics let us run, climb and dance | Hugh Herr 2025
Ακολουθεί μια λίστα με τις δέκα πιο χρησιμοποιούμενες δομές ελέγχου του προγραμματισμού VBA του Excel. Περιλαμβάνεται ένα απλό παράδειγμα κάθε δομής ελέγχου και μια σύντομη περιγραφή του πότε θα χρησιμοποιούσατε αυτή τη δομή.
Για - Επόμενο
Χρήσιμο για βρόχο μέσω ενός πίνακα.
ArraySum = 0 Για το i = 1 έως 10 ArraySum = ArraySum + MyArray (i) Επόμενο i
Για κάθε - Επόμενο
Χρήσιμο για την επαναφορά μέσω μιας συλλογής ή μιας σειράς κελιών.
SelectionSum = 0 Για κάθε κελί στην επιλογή SelectionSum = SelectionSum + cell. Τιμή επόμενο κελί
Do - Loop Μέχρι
Βρόχο μέχρι να επιτευχθεί μια συνθήκη.
Σειρά = 0 Κάντε σειρά = Σειρά + 1 βρόχος μέχρι τα κελιά (Σειρά, 1). Η τιμή "=" MsgBox "Το πρώτο κενό κελί είναι σε γραμμή" & Row
Do While - Loop
1 Loop MsgBox "Το πρώτο κενό κελί είναι σε σειρά" & Row
Αν - Στη συνέχεια
Εάν x = 1 Στη συνέχεια y = 1
Αν - Στη συνέχεια - Τέλος Αν
Κάνετε κάτι αν ισχύει μια προϋπόθεση. Μπορεί να χρησιμοποιήσει πολλαπλές δηλώσεις.
Εάν x = 1 Στη συνέχεια y = 1 z = 1 End Εάν
If - Then - Else
Κάνετε κάτι αν ισχύει μια προϋπόθεση. διαφορετικά, κάνετε κάτι άλλο. Γραπτή ως μία δήλωση.
Εάν x = 1 Στη συνέχεια y = 1 Else y = 0
Εάν - Στη συνέχεια - Else - Τέλος Αν
Εάν x = 1 Στη συνέχεια y = 1 Z = 1 Else y = 0 Z = 0 End Εάν
Επιλέξτε Case
Κάντε ένα από τα πολλά πράγματα, ανάλογα με μια συνθήκη.
Επιλογή θήκης x Υπόθεση 1 y = 1 Z = 1 Θήκη Is> 1 y = 2 Z = 2 Υπόθεση Else y = 0 Z = 0 End Επιλογή
Goto
Μετάβαση σε μια ετικέτα. Αυτό χρησιμοποιείται κυρίως για χειρισμό σφαλμάτων.
Στο σφάλμα GoTo Oops '[Ένας περισσότερος κωδικός πηγαίνει εδώ] Έξοδος Sub Υπόλοιπο: MsgBox "Παρουσιάστηκε σφάλμα"