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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。