vba怎么条件判断输出内容？

今天是我记录vba学习的第一天。

第一个有点用的技能。

先上代码。

Sub 技巧1_001()

Dim myVersion As String

Select Case Range("A1")

Case "B"

myVersion = "2"

Case "BB"

myVersion = "22"

Case "BBB"

myVersion = "222"

Case "CCC"

myVersion = "2222"

Case Else

myVersion = "22222"

End Select

MsgBox myVersion

End Sub

运行效果如下图。

运行后我们看到显示的是2。

因为代码：

Case "B"

myVersion = "2"

这里面就牵扯到判断，这个语句格式如下：

Select Case 被判断的值

Case "B"

变量=某某

Case "BB"

变量=某某

......

Case Else

变量=某某

End Select

一个萝卜一个坑，对应好了的。

其他稍微复杂点的就是变量定义。

格式如下：

Dim 变量名 As 数据类型

比如：

Dim myVersion As String

然后就是这个函数

MsgBox myVersion

这个函数很简单，就是显示myVersion变量。