VBA笔记 | if、select判断函数

未分类 我是站长 0评论

由于工作原因,冠日平台基础课程停滞有一段时间了,工作安排好了,一定继续,在这里给感兴趣的朋友说声对不起。下面是我近期在进行的学习。在这里作个笔记。

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中,并且指明了作用对象,只对指明的对象有效

VBA笔记 | if、select判断函数

下图中注1

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

VBA笔记 | if、select判断函数

下图

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

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

VBA笔记 | if、select判断函数

指定范围的表示方法,在这里也可以直接使用”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

VBA笔记 | if、select判断函数

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

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

VBA笔记 | if、select判断函数

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

VBA笔记 | if、select判断函数

VBA笔记 | if、select判断函数

相关阅读

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

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

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

利用excel制作进度条图示

EXCEL将精度设为所显示的精度(方法)

原文始发于微信公众号(聆听风雨 – lishengxi.cn):VBA笔记 | if、select判断函数

喜欢 (0)
发表我的评论
取消评论
表情