语句1（条件为真时执行）Else 语句2（条件为假时执行）End If 条件表达式可以是单个逻辑判断，也可以是多个逻辑判断，多个逻辑判断时可以使用 “And” 或“Or” 关键字进行拼接 当只有为真时才执行，为假时不执行，可将Else语句块省略掉，end if 不可省略 多层 if 表达式 If 条件表达式1 Then 语句1 ElseIf ...
语法：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...
根据条件的值，可使用If…Then…Else…End If语句运行指定的语句或一个语句块。语句可根据需要嵌套多级，然而，为了程序可读性有时使用Select Case语句。1．如果条件为True则运行语句 当条件为True时，若只要执行一个语句，则可以使用单行的If…Then…End If语法。下列的示例显示了单行语法，省略了Else关键字：Sub F...
1 其次就是将修改代码，可以使用为刚刚建立的格式中，以便达到自己预期的效果，如下图所示：2 代码可以编写为： If Sheet1.Range("A2") < 89 Then Sheet1.Range("D2") = "小于数值89" End If If Sheet1.Range("A2") > 89 Then Sheet1.Range("D2") = "大于数值89" End If If...
VBA中常用到的判断就是使用if...end if,掌握了For循环和IF结构就能完成很多事情。 1.[ if...end if ] 结构 if 条件1...条件2... then '写if结构时,写完if就写end if,这样不会漏 代码 end if 练习1:实现数据筛选。按班级筛选所有数据(高级筛选) 筛选...
$A$1" FileName = "C:\FSOTest\" & FileName & ".txt" GoTo Check_FileExist '再次检查文件是否存在 Else '如果是,则先删除原文件 fso.DeleteFile (FileName) End If End If Set sFile = fso.CreateTextFile(FileName) sFile.WriteLine ("[" & Sheet1.Range("A1").Value & "]") '写入第一行...
If Target.Count > 1 Then If Target(1).Resize(Target.Count).Address = Target.Address Then MsgBox "可以执行你的以下代码"Else Exit Sub End If End If End Sub 代码窗口：代码解析： Target(1).Resize(Target.Count).Address 为以Target(1)扩展后的区域；如果和 Target.Address 一样就可以说明是一列...
End If 只要判断“条件”,如果结果为True,就执行Then和Else之间的代码,如果条件为False,就执行Else和End If之间的语句,我们将刚才的代码修改一下,如下图: 一次判断可以决定2种执行方案,代码也简化了。 我们想要在BMI超标时能准确提示用户,是体重过轻还是体重过重,有同学说:这个好办,只要给If语句种嵌套另一个If...
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next End Sub 代码解析：MyDelBlankRow过程删除工作表中已使用的区域的所有空行。a) 第5行代码获得工作表中已使用区域的首行行号，其中使用UsedRange属性返回工作表中已使用的区域。b) 第6行代码获得工作表中已使用区域的最后...