If 1 > 2 Then MsgBox "1大于2"Else MsgBox "1不大于2"End If End Sub 这段程序中，sub与end sub 代表程序的开始与结束，中间过程就是一段IF语句，If开头，end if 结尾，固定搭配（VBA中程序会自动纠正大小写，这点还是非常友善的）；这里的判断条件是【1>2】 ，显示条件是错的，1小于2，所以Then后...
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”语句。假如遇到这样的条件:“...
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”语句。假如遇到这样的条件:“...
当程序运行到If语句块时,首先判断条件表达式condition,如果condition为True,则Then后面的语句将被执行;如果condition为False,则执行每个ElseIf语句部分;当找到某个ElseIf语句的condition为True时,则执行紧接在其Then之后的语句;如果所有的ElseIf条件表达式都为False,程序则执行Else后面的语句。只有在执行完Then或Else后面的...
使用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 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”语句。假如遇到这样的条件:“...
if……then……end if结构 该结构用于单选择判断语句执行，具体用法看下面实例。实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。程序：Sub 判断语句() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" ...
ThenRange(.Cells(1, IIf(.[m3] = "", 0, .[m3]) * 23 + 1), .[ga38]).ClearEnd IfE...
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...
VBA基础书籍 方法/步骤 1 '单行写法 (后面将省去首尾两句）Sub 条件语句()If a < 20 Then [b2] = "good"end sub 2 '多行写法If a < 20 Then[b2] = "shit"End If'if esleIf a < 20 Then[b2] = "yes"Else[b2] = "no"End If 3 '多条件判断If a < 20 Then[b2]...