If Then结构基本语法如下，其中 End If是选择结构的结束标志。If 条件表达式 Then'表达式为真时，执行的代码End If 现在我们看实际的例子，判断学生是否及格，及格条件是成绩 ≥60。如果及格，在C列对应单元格填写“及格”。具体代码如下：Sub MyCode()Dim i As IntegerFor i = 2 To 10If Cells(i, "B").V...
语法：If判断语句 Then 条件成立结果 ELSE 条件不成立结果 END IF（其中ELSE及其后面的语句可以省略，只考虑条件成立的情况）示例：Sub IF语句()If 1 > 2 Then MsgBox "1大于2"Else MsgBox "1不大于2"End If End Sub 这段程序中，sub与end sub 代表程序的开始与结束，中间过程就是一段IF语句，If开头，e...
到目前为止所学习过的宏都是从“Sub…”的下一行开始顺序执行,并以“End Sub…”作为结束的单向处理。对此,如果能根据不同的条件来改变流程,宏的可应用的范围就会大大扩展。在此就来学学“If…Then…Else”语句吧。该语句的语法结构是: If条件表达式Then 条件满足时所执行的处理 Else 条件不满足时所执行的处理 ...
到目前为止所学习过的宏都是从“Sub…”的下一行开始顺序执行,并以“End Sub…”作为结束的单向处理。对此,如果能根据不同的条件来改变流程,宏的可应用的范围就会大大扩展。在此就来学学“If…Then…Else”语句吧。该语句的语法结构是: If 条件表达式 Then 条件满足时所执行的处理 Else 条件不满足时所执行的处...
End Sub Sub 循环隔行选中单元格()Dim rng As Range, x As Integer For x = 2 To 10 Step 2 If x = 2 Then Set rng = Cells(x, 1)Else Set rng = Union(rng, Cells(x, 1))End If Next x rng.Select End Sub Sub 选择行区域()'下面代码选择第一行 Rows(1).Select '下面代码选择2到6...
Else If IsNumeric(mycell.Value) Then If mycell = 0 Then mycell.Offset(0, 1) = "零" ElseIf mycell.Value > 0 Then mycell.Offset(0, 1) = "正数" Else mycell.Offset(0, 1) = "负数" End If Else mycell.Offset(0, 1) = "文本" End If End If End Sub 以上代码能不能用...
使用VBA的If Then判断实现的代码如下：Sub jige()For i = 2 To 10 '判断成绩小于60则为不及格 If Cells(i, 4) < 60 Then Cells(i, 5) = "不及格"End If '判断成绩大于等于60则为及格 If Cells(i, 4) >= 60 Then Cells(i, 5) = "及格"End If Next End Sub 这里的For循环为了循环表中...
if……then……结构 该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解 实例：如果第一个单元格不为空，那么就弹出一个提示框”单元格不为空“ 程序： Sub 判断语句() If Cells(1, 1) "" Then MsgBox "单元格不为空" End Sub if……then……end if...
Row>=2AndTarget.Column=3ThenTarget=300ElseIfTarget.Row>=2AndTarget.Column=2ThenTarget=400ElseTarget=500EndIfEndSub这是个完整的If逻辑判断式，意思是说，假如If后的判断式条件成立的话，就执行第二条程序，否则假如ElseIf后的判断式条件成立的话，就执行第四条程序，否则假如另一个ElseIf后的判断式条件...
If Cells(1, i) = "" Then Cells(2, i) = "无数据" Else Cells(2, i) = "有数据" End If Next End Sub 二、Select…Case语句 1、概念介绍 在武侠世界中,有北乔峰和南慕容势均力敌、旗鼓相当。在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。假如遇到这样的条件:“...