VBA select case 练习

最新推荐文章于 2024-01-25 22:40:51 发布

weixin_30305735

最新推荐文章于 2024-01-25 22:40:51 发布

阅读量513

点赞数

原文链接：http://www.cnblogs.com/queqiaoshui/p/10259000.html

版权

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	四等奖

转载于:https://www.cnblogs.com/queqiaoshui/p/10259000.html