VBA select case 练习
Posted queqiaoshui
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了VBA select case 练习相关的知识，希望对你有一定的参考价值。
Sub demo()
‘ select case 练习
Dim card As String
Dim i As Integer
For i = 1 To 14
card = Range("a" & i)
Select Case card
Case "j"
Range("b" & i) = "一等奖"
Case "q"
Range("b" & i) = "二等奖"
Case "k"
Range("b" & i) = "三等奖"
Case "a"
Range("b" & i) = "四等奖"
Case Else
Range("b" & i) = "谢谢参与"
End Select
Next
End Sub
‘效果
1 谢谢参与
2 谢谢参与
3 谢谢参与
4 谢谢参与
5 谢谢参与
6 谢谢参与
7 谢谢参与
8 谢谢参与
9 谢谢参与
10 谢谢参与
j 一等奖
q 二等奖
k 三等奖
a 四等奖
以上是关于VBA select case 练习的主要内容，如果未能解决你的问题，请参考以下文章
Select Case 语句 - IF 语句 - 定义数组 - VBA