VB Select Case
来源:互联网 发布:xml json弹幕 编辑:程序博客网 时间:2024/06/04 23:17
Sub gantest()
rr = 10
ir = 2
MsgBox ("OK")
i = Sheets("Sheet1").Cells(rr, 2).Value
Select Case Sheets("Sheet1").Cells(rr, 2).Value
Case Is < 50
'Print i
MsgBox ("こちらは設置1のデータ")
Case 50 To 60
'Print i ^ 2
MsgBox (i ^ 2)
'MsgBox (i)
MsgBox ("test2です")
Case Is > 60
'Print "wrong!"
MsgBox ("wrong!")
End Select
End Sub
rr = 10
ir = 2
MsgBox ("OK")
i = Sheets("Sheet1").Cells(rr, 2).Value
Select Case Sheets("Sheet1").Cells(rr, 2).Value
Case Is < 50
'Print i
MsgBox ("こちらは設置1のデータ")
Case 50 To 60
'Print i ^ 2
MsgBox (i ^ 2)
'MsgBox (i)
MsgBox ("test2です")
Case Is > 60
'Print "wrong!"
MsgBox ("wrong!")
End Select
End Sub
阅读全文
0 0
- VB Select Case
- select case
- select case
- Select CASE
- 【转载】理解VB中选择语句Select Case结构的最好例子
- SELECT CASE 写法
- select case 语句
- 标准sql select case
- sql case select
- Select Case 语句(VBA)
- case select 简单例子
- SQL:select case when
- select case 用法
- js switch select case
- SQL:Select Case When
- select case and swicvh
- Select case in LINQ
- select case语句
- Oracle 11g 移动数据文件路径
- linux修改python解释器的默认编码模式
- 加入CSDN
- oracle导入数据步骤
- 文章标题
- VB Select Case
- 内部类
- 《Spring + Cloud微服务实战》读书笔记(一)————基础知识
- Vue.js状态管理工具Vuex快速上手
- 二叉树的定义,性质及存储
- Ubuntu_DNS配置过程记录
- 先知创新大会:16位华人安全科学家分享前沿研究,中国密码专家王小云获先知奖
- 数据库优化
- 树链剖分