אם אתה מכן הצהרה
להשתמש ב אם הצהרה אז in Excel VBA כדי להפעיל שורות קוד אם מתקיים תנאי מסוים.
אם הצהרת אז
הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:
Dim score As Integer, result As String
score = Range("A1").Value
If score >= 60 Then result = "pass"
Range("B1").Value = result
score = Range("A1").Value
If score >= 60 Then result = "pass"
Range("B1").Value = result
הסבר: אם הציון גדול או שווה ל -60, Excel VBA מחזירה את המעבר.
תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

הערה: אם הציון הוא פחות מ -60, Excel VBA מציב את הערך של התוצאה המשתנה הריקה לתא B1.
אחר
הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:
Dim score As Integer, result As String
score = Range("A1").Value
If score >= 60 Then
result = "pass"
Else
result = "fail"
End If
Range("B1").Value = result
score = Range("A1").Value
If score >= 60 Then
result = "pass"
Else
result = "fail"
End If
Range("B1").Value = result
הסבר: אם הציון גדול או שווה ל -60, Excel VBA מחזירה את המעבר, אחרת Excel VBA מחזירה נכשלת.
תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

הערה: רק אם יש לך קו קוד אחד לאחר מכן ולאחר מכן לא משפט אחר, מותר למקם שורת קוד ישירות לאחר מכן ואז להשמיט (לעזוב) סוף אם (למשל הראשון). אחרת, התחל שורה חדשה לאחר המילים ואז, ואז בסוף עם End אם (דוגמה שנייה).