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行的连续行...
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 num >= 60 Then MsgBox "及格" Else MsgBox "不及格" End If End Sub 二、条件判断语句--if多条件 If ... Then '如果满足条件1 ... '然后执行 ElseIf ... Then ' 如果不满足条件1 ... '然后执行条件2 ElseIf ... Then '如果不满足条件2 ... '然后执行条件3 ElseIf ... Then '如果不...
6、if语句嵌套使用 if语句可以灵活的嵌套使用的，如下面这套程序Sub 判断语句() Sub 判断语句() If Cells(1, 1) <> "" Then If Cells(1, 1) = "VBA教研室" Then MsgBox "OK！" Else MsgBox "NO！" 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 Range("A" & i) >= 60 Then Range("B" & i).Value = "及格" Else Range("B" & i).Value = "不及格" End If i = i + 1 Loop End Sub操作过程:把文件“另存为”EXCEL启用宏的工作簿(*.xlsm):【原文链接:EXCEL中VBA基础语句(1)】编辑...
问Excel VBA -如何在If中添加多个语句- If (条件1)然后(关闭窗口)和(End Sub)EN在Excel中，数据...
If myNum < 5 Then '如果myNum值小于5时退出循环 Exit For End If Next MsgBox "The total is " & Total '显示累加的Total变量的数值 End Sub For Each…Next语句 For Each…Next语句作用于集合中的每个对象或是数组中的每个元素。当循环执行一次VBA会自动设置一个变量，例如：Sub ForEachSheet()Dim ...
Set ws = ThisWorkbook.Sheets("表3") With ws lastRow = .UsedRange.Rows.Count For i = lastRow To 1 Step -1 If .Cells(i, 1) = "" Then Rows(i).Delete End If Next End WithEnd Sub 4、循环数组 Sub 循环数组() Dim ws As Worksheet Dim lastRow As Inte...
这次使用If Then Else判断语句实现的代码如下：Sub jige()For i = 2 To 10 If Cells(i, 4) < 60 Then '判断成绩小于60则为不及格 Cells(i, 5) = "不及格"Else '判断成绩大于等于60则为及格 Cells(i, 5) = "及格"End If Next End Sub 这次的代码，我们只是把上次的第二个If Cells(i, 4) >...