首页 > 编程语言 > 详细

VBA select case 练习

时间:2019-01-12 11:53:30      阅读:163      评论:0      收藏:0      [点我收藏+]
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 练习

原文:https://www.cnblogs.com/queqiaoshui/p/10259000.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!