如果满足特定条件，请在Excel VBA中使用If Then语句执行代码行。
If Then声明
在您的工作表上放置一个命令按钮，并添加以下代码行：
Dim score As Integer，结果As String
score = Range（“ A1”）。Value
如果 score> = 60，则 result =“ pass”
Range（“ B1”）。Value = result
score = Range（“ A1”）。Value
如果 score> = 60，则 result =“ pass”
Range（“ B1”）。Value = result
说明：如果分数大于或等于60，则Excel VBA返回合格。
单击工作表上的命令按钮时的结果：
注意：如果分数小于60，Excel VBA会将空变量结果的值放入单元格B1中。
其他声明
在您的工作表上放置一个命令按钮，并添加以下代码行：
Dim score As Integer，结果为 String
分数= Range（“ A1”）。Value
如果 score> = 60，那么
result =“ pass”
否则
结果=“ fail”
结束 If
Range（“ B1”）。Value =结果
分数= Range（“ A1”）。Value
如果 score> = 60，那么
result =“ pass”
否则
结果=“ fail”
结束 If
Range（“ B1”）。Value =结果
说明：如果分数大于或等于60，则Excel VBA返回合格，否则Excel VBA返回失败。
单击工作表上的命令按钮时的结果：
注意：仅当在After之后有一个代码行且没有Else语句时，才允许在Then之后直接放置代码行，并省略（省略）End If（第一个示例）。否则，在“然后”和“其他”两个词之后开始新行，并以“结束如果”结束（第二个示例）。