20160127:开始学VBA:(三)、判断语句
2016-01-27 22:58
344 查看
IIF函数判断
Sub 判断4()
Range("a3") = IIf(Range("a1") <= 0, "负数或零", "负数")
End Sub
Sub 判断4()
Range("a3") = IIf(Range("a1") <= 0, "负数或零", "负数")
End Sub
Sub 判断1() '单条件判断 If Range("a1").Value > 0 Then Range("b1") = "正数" Else Range("b1") = "负数或0" End If End Sub Sub 判断2() '多条件判断 If Range("a1").Value > 0 Then Range("b1") = "正数" ElseIf Range("a1") = 0 Then Range("b1") = "等于0" ElseIf Range("B1") <= 0 Then Range("b1") = "负数" End If End Sub Sub 多条件判断2() If Range("a1") <> "" And Range("a2") <> "" Then Range("a3") = Range("a1") * Range("a2") End If End Sub | select判断 Sub 判断1() '单条件判断 Select Case Range("a1").Value Case Is > 0 Range("b1") = "正数" Case Else Range("b1") = "负数或0" End Select End Sub Sub 判断2() '多条件判断 Select Case Range("a1").Value Case Is > 0 Range("b1") = "正数" Case Is = 0 Range("b1") = "0" Case Else Range("b1") = "负数" End Select End Sub Sub 判断3() If Range("a3") < "G" Then MsgBox "A-G" End If End Sub |
Sub if区间判断() If Range("a2") <= 1000 Then Range("b2") = 0.01 ElseIf Range("a2") <= 3000 Then Range("b2") = 0.03 ElseIf Range("a2") > 3000 Then Range("b2") = 0.05 End If End Sub | Sub select区间判断() Select Case Range("a2").Value Case 0 To 1000 Range("b2") = 0.01 Case 1001 To 3000 Range("b2") = 0.03 Case Is > 3000 Range("b2") = 0.05 End Select End Sub |
相关文章推荐
- SecureCRT根据文件中IP执行命令VBS
- VBA找不到progress bar的处理办法。
- 问题描述:打开VB工程时提示不能加载MSCOMCTL.OCX
- VB.Net 保存和读取设置文件(XML格式)
- 反汇编去除vb可执行文件的打开网页链接行为
- 国安广视或将成为DVB+OTT重磅玩家
- Virtualbox The character device /dev/vboxdrv does not exist.
- VB把excel数据导入ACCESS
- Import Access data into Excel in Excel vba
- 启动vb6时显示 “找不到dao350.dll” 的解决方法
- 【VB语法备忘】常用字符转换函数
- VB.NET&C#&VB较量
- Visual Basic 程序设计
- VB 6.0 精确到毫秒的计时器 demo
- 三层登录——VB.NET版
- vb.net知识小汇总
- VBS下载者助以一臂之力
- VBS下载者助以一臂之力
- VBA怎样统计同一类型的数据的总和
- virtualbox vb 虚拟机网卡工作模式