Excel VBA 笔记 使用IF进行逻辑判断

使用IF进行逻辑判断

   Range单元格对象

   IF函数过程控制

   使用IF退出For循环

小提示：

   新建模块：右键Sheet、插入模块

   运行：上面的三角形

   注释：'  单引号

使用Range 控制单元格

   直接写单元格：Range("a1") = 2

   变量i和Range结合，控制单元格：Range（"a"&i）

   Dim i As Integer

   For i = 1 To 100

       Range("a" & i) = i

   Next

step 设置步长，默认为1

if 语法：

   If Range("e" & i) = "男" Then

       Range("f" & i) = "先生"

   Else

       Range("f" & i) = "女士"

   End If

if else：

   If Range("b" & i) = "理工" Then

           Range("c" & i) = "lg"

       ElseIf Range("b" & i) = "文科" Then

           Range("c" & i) = "wk"

       Else

           Range("c" & i) = "cj"

       End If

注意if、elseif 后面有then

if的最后有end if

使用Tab缩进可以增加可读性

删除行时下一行会往上跑一行。从下往上删就不会这样。

Sub panduan()

Dim i As Integer

For i = 10 To 1 Step -1

'处理性别

   If Range("e" & i) = "男" Then

       Range("f" & i) = "先生"

   Else

       Range("f" & i) = "女士"

   End If

 

   '处理专业

   If Range("b" & i) = "理工" Then

       Range("c" & i) = "lg"

   ElseIf Range("b" & i) = "文科" Then

       Range("c" & i) = "wk"

   Else

       Range("c" & i) = "cj"

   End If

   '删除空白行

   If Range("b" & i) = "" Then

       Range("b" & i).Select

       Selection.EntireRow.Delete

   End If

     

Next

End Sub

if控制for

If Range("a" & i) = "" Then

       Exit For

And 并且 用于if 条件1 and 条件2 Then

Or  或者  用法类似And