由于工作原因,冠日平台基础课程停滞有一段时间了,工作安排好了,一定继续,在这里给感兴趣的朋友说声对不起。下面是我近期在进行的学习。在这里作个笔记。
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
相关阅读
原文始发于微信公众号(聆听风雨 - lishengxi.cn):VBA笔记 | if、select判断函数
部分文章来源于网络 如有侵权请告知本人立即删除!
站长邮箱447800330@qq.com