MsgBox “单元格A1的值不能为0”
Else
If Range(“A1”).Value <= 10Then
Range(“B1”).Value = https://www.i8ku.com/2021/20 /Range(“A1”).Value
Else
Range(“B1”).Value = https://www.i8ku.com/2021/100 /Range(“A1”).Value
End If
End If
End Sub
实现的效果相同，但是应特别注意If与Else和End If的配对正确 。
下面举一个例子，说明If-Then结构的应用 。
如下表所示的规则，根据员工的工龄来确定员工的年休假天数：
工龄（年）年休假天数
10年及以下5
10～2010
20～2515
25年以上20
转换成VBA代码如下：
Sub NianXiuTian()
‘声明变量,用来表示年休天数和工龄
Dim lngDays As Long
Dim lngYears As Long
lngYears = Range(“A1”).Value
‘根据工龄确定相应的年休天数
If lngYears >= 0 And lngYears <= 10Then
lngDays = 5
ElseIf lngYears > 10 And lngYears <=20 Then
lngDays = 10
ElseIf lngYears > 20 And lngYears <=25 Then
lngDays = 15
Else
lngDays = 20
End If
MsgBox “工龄：” &lngYears & vbCrLf & “年休天数:” &lngDays
End Sub
此时，您可以在工作表单元格A1中输入代表工龄的数字，运行代码后，会显示相应的年休天数，如下图所示 。
文章插图
最后，将If-Then语句结构及其变形归纳如下：
【向左走，向右走——使用If语句选择】
文章插图
推荐阅读
- 一 神州风韵——中华茶文化
- 心如止水近义词
- 怎么工作表中的数据老是自已在变？——这是易失性函数在作怪
- 欠发达山区农业产业化经营的路径选择——来自安徽天方茶业集团公司的成功经验
- 健康饮品——红茶
- 奇门遁甲——如何快速学好奇门
- 必须加大对贫困国有林场的扶持力度——对山西黑茶山林区贫困林场经营现状的调查
- 一曲小人物的悲歌——老舍《茶馆》再解读
- 浅谈平面设计技巧在PPT设计中的应用——拟态
- 功能茶和水果茶——茶叶市场新秀