בחר VBA
במקום אם מספר הצהרות ב Excel VBA, אתה יכול להשתמש בחר מבנה מקרה.
מצב:
הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:
1. ראשית, להכריז על שני משתנים. משתנה אחד של מספר שלם בשם ציון ומשתנה אחד של מחרוזת סוג בשם התוצאה.
Dim score As Integer, result As String
2. אנחנו לאתחל את הציון משתנה עם הערך של תא A1.
score = Range("A1").Value
.3 הוסף את מבנה Select Case (בחר מקרה).
Select Case score
Case Is >= 80
result = "very good"
Case Is >= 70
result = "good"
Case Is >= 60
result = "sufficient"
Case Else
result = "insufficient"
End Select
Case Is >= 80
result = "very good"
Case Is >= 70
result = "good"
Case Is >= 60
result = "sufficient"
Case Else
result = "insufficient"
End Select
הסבר: Excel VBA משתמש בערך של ציון המשתנה כדי לבדוק כל משפט Case הבא כדי לראות אם הקוד תחת משפט מקרה צריך להתבצע.
4. לכתוב את הערך של התוצאה משתנה לתא B1.
Range("B1").Value = result
5. בדוק את התוכנית.
תוצאה בעת לחיצה על לחצן הפקודה בגיליון:
הערה: Excel VBA מבצע את הקוד תחת משפט ה- Case השני עבור כל הערכים הגדולים מ -70 או פחות מ -80.