Πώς να χρησιμοποιήσετε ένα διακόπτη υπόθεση σε VBA Excel

Μια καλογραμμένη πρόγραμμα υπολογιστή μπορεί να εξοικονομήσει χρόνο στον κύριο του έργου και τους προγραμματιστές που διατηρούν στο μέλλον . Στην VBA μπορείτε να χρησιμοποιήσετε την πρόταση Select Case ως εναλλακτική λύση στη χρήση " ElseIf " σε " If ... Then ... Else" δηλώσεις . Ένα πρόγραμμα γίνεται δύσκολο να διαβάσει, όταν έχετε πολλές « If ... Then ... Else " δηλώσεις και μπορεί επίσης να τρέχει πιο αργά από ό, τι αν χρησιμοποιείτε Select Case . Μια πρόταση Select Case αξιολογεί την έκφραση μόνο μία φορά , ενώ το " If ... Else ... Τότε " δηλώσεις πρέπει να αξιολογήσει κάθε βήμα πριν από την εκτέλεση κώδικα . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . Κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Ξεκινήστε με τη δημιουργία μιας διαδικασίας υπο χρησιμοποιώντας τον ακόλουθο κώδικα : .

Private Sub CaseSwitch ( )
Η
3

Δημιουργήστε τρεις μεταβλητές , πληκτρολογώντας τις παρακάτω γραμμές κώδικα :

Dim employeePerf As Integer

Dim μισθό As Currency

Dim Bonus As Currency
Φτηνές 4

Ορίστε τιμές για τον μισθό και τις μεταβλητές employeePerf :

μισθός = 75000

employeePerf = 3
5

Χρησιμοποιήστε τη δήλωση select υπόθεση καθορίσει το ποσό του μπόνους με βάση την απόδοση του υπαλλήλου και βασικό μισθό τους .

Select Case employeePerf

Περίπτωση 1

bonus = μισθός * 0,1

περίπτωση 2 , 3

Bonus = μισθός * 0,09

υπόθεση 4 έως 6

Bonus = μισθός * 0,07

υπόθεση είναι > 8

bonus = 100

Case Else

bonus = 0

End Select
Η 6

Εμφανίστε το ποσό του μπόνους χρησιμοποιώντας το παράθυρο άμεσης παρακολούθησης .

Debug.Print Bonus
Η

7 Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub ". Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κώδικα .
Η
εικόνων