Συγγραφέας:
Florence Bailey
Ημερομηνία Δημιουργίας:
20 Μάρτιος 2021
Ημερομηνία Ενημέρωσης:
7 Ενδέχεται 2024
Περιεχόμενο
Άλλες ενότητεςΘα μάθετε πώς να γράφετε και εάν ... Στη συνέχεια..Διαφήμιση και μια δήλωση Select..Case στο Excel Visual Basic, για χρήση στη μακροεντολή κωδικοποίησης.
Βήματα
- Μπορείτε να χρησιμοποιήσετε δύο δηλώσεις στη Microsoft Visual Basic για εφαρμογές για να εκτελέσετε μια δοκιμή υπό όρους: an Εάν ... Τότε ... Διαφορετική δήλωση ή δήλωση Select Case.
-
Σημειώστε ότι το If... Στη συνέχεια ... Η δήλωση Else εκτελεί μια ομάδα δηλώσεων με βάση την τιμή μιας έκφρασης και η δήλωση Select Case εκτελεί μία από πολλές από τις δηλώσεις που βασίζονται στην τιμή μιας έκφρασης.- Δείγμα μακροεντολής χρησιμοποιώντας εάν ... Τότε ... Διαφορετική δήλωση
- Υπο Χρήση_IF ()
- Διαστάσεις της μεταβλητής.
- Dim x As ακέραιος
- «Τοποθετήστε μια τιμή σε x.
- x = Int (Rnd * 2000)
- «Ελέγξτε για να δείτε αν x μικρότερο ή ίσο με 10.
- Εάν x <= 10 τότε
- Εμφάνιση ενός πλαισίου μηνυμάτων.
- MsgBox "Το X είναι <= 10"
- «Ελέγξτε για να δείτε αν x μικρότερο ή ίσο με 100 και μεγαλύτερο από 10.
- ElseIf x <= 100 Και x> 10 Τότε
- MsgBox "Το X είναι <= 100 και> 10"
- «Ελέγξτε αν x μικρότερο ή ίσο με 1000 και μεγαλύτερο από 100.
- ElseIf x <= 1000 Και x> 100 Τότε
- MsgBox "Το X είναι <= 1000 και> 100"
- «Ελέγξτε για να δείτε εάν x μικρότερο ή ίσο με 2000 και μεγαλύτερο από 1000.
- ElseIf x <= 2000 Και x> 1000 Τότε
- MsgBox "Το X είναι <= 2000 και> 1000"
- Εάν καμία από τις παραπάνω δοκιμές δεν επέστρεψε.
- Αλλού
- MsgBox "Το X δεν εμπίπτει στο εύρος"
- Τέλος εαν
- Τέλος Υποτ
- Δείγμα μακροεντολής με χρήση επιλογής δήλωσης περίπτωσης
- Sub Using_Case ()
- «Διάσταση της μεταβλητής.
- Dim x As ακέραιος
- «Τοποθετήστε μια τιμή σε x.
- x = Int (Rnd * 2000)
- Ξεκινήστε τη δομή Select Case.
- Επιλέξτε Περίπτωση x
- «Δοκιμάστε να δείτε αν x μικρότερο ή ίσο με 10.
- Η υπόθεση είναι <= 10
- Εμφάνιση ενός πλαισίου μηνυμάτων.
- MsgBox "Το X είναι <= 10"
- «Ελέγξτε για να δείτε αν x μικρότερο ή ίσο με 100 και μεγαλύτερο από 10.
- Υπόθεση 11 έως 100
- MsgBox "Το X είναι <= 100 και> 10"
- «Ελέγξτε αν x μικρότερο ή ίσο με 1000 και μεγαλύτερο από 100.
- Υπόθεση 101 έως 1000
- MsgBox "Το X είναι <= 1000 και> 100"
- «Δοκιμάστε να δείτε αν x μικρότερο ή ίσο με 2000 και μεγαλύτερο από 1000.
- Υπόθεση 1001 έως 2000
- MsgBox "Το X είναι <= 2000 και> 1000"
- «Εάν καμία από τις παραπάνω δοκιμές δεν επέστρεψε αληθινή.
- Υπόθεση άλλο
- MsgBox "Το X δεν εμπίπτει στο εύρος"
- Τέλος Επιλογή
- Τέλος Υποτ
- Δείγμα μακροεντολής χρησιμοποιώντας εάν ... Τότε ... Διαφορετική δήλωση
- Αντιγράψτε τον παραπάνω κώδικα στο Word ή σε μια παρόμοια εφαρμογή και αντικαταστήστε ΟΛΑ το "# * *" με τίποτα. Μπορείτε να χρησιμοποιήσετε το Excel για να το επιτύχετε αν θέλετε.
-
Ανοίξτε το Excel και ελέγξτε τον Προγραμματιστή στην ενότητα Προτιμήσεις στην επιλογή Κορδέλα, για να σας επιτρέψει να εργαστείτε με μακροεντολές. - Κάντε κλικ στην καρτέλα Προγραμματιστής στην Κορδέλα και επιλέξτε το εικονίδιο VB Editor. Επικολλήστε τον κώδικα REPLACE (d) ALL στη νέα ενότητα που εμφανίζεται και διαχωρίστε τις δύο μακροεντολές με μία μόνο γραμμή επιστροφής.
- Χρησιμοποιήστε το πλήκτρο F5 ή F8 για να εκτελέσετε τον κωδικό ή το μενού RUN.