Excel VBA Βοήθημα για Loops

VBA είναι γλώσσα προγραμματισμού Visual Basic της Microsoft . Είναι πιο συχνά συνδέεται με τις μακροεντολές που χρησιμοποιούνται σε υπολογιστικά φύλλα του Excel και μερικές φορές ακόμη και αναφέρουν γενιάς με έξοδο απευθύνονται σε Word ή PowerPoint έγγραφα . VBA παρέχει στους προγραμματιστές όλα τα κοινά επιλογές λογικής σε άλλες γλώσσες , όπως για βρόχους , ενώ οι βρόχοι και if /then /else δηλώσεις . Ωστόσο , όπως όλες οι γλώσσες , η σύνταξη της χρήσης αυτών των βρόχων είναι λίγο διαφορετική σε VBA . Μόλις χρησιμοποιήσετε αυτά , η διαδικασία είναι εύκολη και θα είναι απλή στην εφαρμογή της . Οδηγίες
Η 1

Δημιουργήστε μια δήλωση Εάν σε VBA , όπως αυτό το παράδειγμα που συγκρίνει δύο τιμές και γράφει "EQUAL" ή "NOT EQUAL" στο κελί A1 , ανάλογα με το αποτέλεσμα της σύγκρισης .

Sub My_If_Test ( )

Δημ. this_value

Δημ. that_value

this_value = 0

that_value = 2

Αν this_value = that_value Στη συνέχεια
Πίσω

Sheets ( " Φύλλο1 " ) . κύτταρα ( 1,1 ) . Value = " EQUAL "

Else

Sheets ( " Φύλλο1 " ) . Cells ( 1 , 1 ) . Value = "NOT EQUAL "

End If

End Sub

Αν χρειαστεί να ελέγξετε αν κάτι δεν είναι ίδιο, το σημάδι είναι <> . 2

Δημιουργήστε ένα για βρόχο σε VBA ακόλουθο παράδειγμα κώδικα που θα εισάγει την αξία ενός μετρητή αυξάνεται σε κάθε αντίστοιχη σειρά .

Sub My_For_Test ( )

Dim μετρητή

Δημ. end_value

end_value = 10

για μετρητή = 0 έως end_value Βήμα 1

Sheets ( " Φύλλο1 " ) . κύτταρα ( μετρητής , 1 ) . Value = μετρητής

Επόμενο

End Sub
εικόνων 3

Δημιουργία Do /Ενώ βρόχο VBA ακολουθήσουν αυτό το παράδειγμα κώδικα που, όπως και το για παράδειγμα βρόχου , εισάγει την αξία ενός μετρητή αυξάνεται σε κάθε αντίστοιχη σειρά .

Sub My_DoWhile_Test ( )

Dim δείκτη

Δημ. end_value

δείκτη = 0

end_value = 10

Do Ενώ index

Sheets ( " Φύλλο1 " ) . κύτταρα ( μετρητής , 1 ) . Value = δείκτης

= δείκτης index + 1

Loop

End Sub

η λογική του Do /Ενώ βρόχου είναι τέτοια ώστε , εάν η αρχική σύγκριση της κατάστασης Ενώ αποτύχει, η βρόχος δεν εκτελείται . Για παράδειγμα , εάν δείκτης είχε ισοδυναμούσε με 10 ή περισσότερο πριν από την εκτέλεση του κώδικα αυτού Do /Ενώ βρόχο , ο κώδικας μέσα στο βρόχο δεν θα τρέξει .
Η 4

Δημιουργία Do /Μέχρι βρόχο VBA ακολουθήσουν αυτό το παράδειγμα κώδικα που , όπως το παράδειγμα Do /Ενώ βρόχο , εισάγει την αξία ενός μετρητή αυξάνεται σε κάθε αντίστοιχη σειρά .

Sub My_DoUntil_Test ( )

δείκτη Dim

Dim end_value

δείκτης = 0

end_value = 10

Do

Sheets ( " Φύλλο1 " ) . κύτταρα ( μετρητής , 1 ) . Value = δείκτης

index = δείκτης + 1

Loop Μέχρι δείκτη = end_value

End Sub

η λογική του Do /Μέχρι βρόχου είναι ελαφρά διαφορετική από ό, τι ένα Do /Ενώ βρόχο . Ο κώδικας στο Do /Μέχρι εκτελείται τουλάχιστον μία φορά , ακόμη και αν η κατάσταση μέχρι αποτυγχάνει. Για παράδειγμα , εάν δείκτης είχε ισοδυναμούσε με 10 ή περισσότερα πριν ο κώδικας εκτελείται αυτή Do /Μέχρι το βρόχο , ο κωδικός στο εσωτερικό του βρόχου θα εκτελεστεί οπωσδήποτε μία φορά .
Η
εικόνων