VBA笔记 | if、select判断函数

Sub 年龄()

For i = 3 To 8

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

Range("D" & i) = 60

Else

Range("D" & i) = 55

End If

Next i

End Sub

在下图中

注1：目的是指明要作用的范围，这里的Sheet1是对象的Sheet1，并非Sheet表的名。

注2：代码写在不同的位置具有不同的作用范围

1、写在独立的Sheet页，只对此Sheet页有效，

2、写在ThisWorkbook中，对当前激活Sheet页有效

3、

2、写在ThisWorkbook中，并且指明了作用对象，只对指明的对象有效

下图中注1

这里加上点，With、End With才有效，否则目标区域还是活动表

下图

注1：强制换行：空格+英文下划线+回车

注2：判断表格中最后一行的行号，来确定代码中I循环的次数[B65536].End(xlUp).Row

指定范围的表示方法，在这里也可以直接使用"Sheet2"

Sub 经适房()

With Sheets("申请经济适用房")

LASTROW = [B65536].End(xlUp).Row

For I = 3 To LASTROW

If Range("c" & I) >= 3 _

And Range("d" & I) < 15 _

And Range("e" & I) < 35000 Then

Range("F" & I) = "是"

Else

Range("F" & I) = "否"

End If

Next

End With

End Sub

代码中有多个函数时，用括号来表示先要运算的，

例子中是先判断AND，然后再判断or

Sub 年假()

For I = 3 To 19

If Range("C" & I) >= 10 Then

Range("d" & I) = 15

ElseIf Range("C" & I) >= 6 Then

Range("D" & I) = 10

ElseIf Range("C" & I) >= 1 Then

Range("D" & I) = 5

Else

Range("D" & I) = 0

End If

Next

End Sub

相关阅读

Excel技能 | 拆分工作表 （比你快10倍的神操作）

Excel技能 | 如何替换“*、？”等特殊符号

Excel问答 | 此工作簿包含到其他数据源的链接

利用excel制作进度条图示

EXCEL将精度设为所显示的精度（方法）

原文始发于微信公众号（聆听风雨 - lishengxi.cn）：VBA笔记 | if、select判断函数