lpqs.net
相关文档
当前位置:首页 >> vBA CAsE ElsE >>

vBA CAsE ElsE

Select Case range("A1") Case Is = "" Case Is = "a" MsgBox "Y" End Select 以上代码表示如果A1为空时不进行任何操作,A1=a时,提示"Y"

对 运行时,从第一个判断开始,按顺序向下读,当条件匹配时,执行条件匹配后面的语句,直到下一个ELSE 或 CASE 之前,然后就跳到 end if 或 end select 两个使用的方法一样,但条件较多时,select更简便,例: Select Case x Case 1 To 4, 7 To ...

Private Sub CB1_Click() Select Case Sheet1.Range("A1") Case "A" Sheet1.Range("A3") = "联想" Case "B" Sheet1.Range("A3") = "华硕" Case "C" Sheet1.Range("A3") = "惠普" Case "D" Sheet1.Range("A3") = "IBM" Case "E" Sheet1.Range("A3...

不明白你说的, 但你可以仿照下面的语法自己写 Case语句的语法如下: Select Case 测试表达式 Case Is 条件1 如果条件1为真时执行的语句 Case Is 条件2 如果条件2为真时执行的语句 Case Is 条件N 如果条件N为真时执行的语句 End Select 例如,我...

先说下你第一段代码:Dim iCounter As IntegerDim weekNames As StringFor iCounter = 1 To 5If iCounter = 1 ThenweekNames = "Monday"ElseIf iCounter = 2 ThenweekNames = "Tuesday"ElseIf iCounter = 3 ThenweekNames = "Wednesday"ElseIf i...

那就把a=2的条件放到Else里就行了,如 Case 1 If a = 1 Then '... ElseIf a = 2 Then '... End If Case 2 '... 这样的话,当IF条件满足时就不会执行ElseIf块中的语句了.

Select 语句的基本语法结构是: Select Case [变量名] Case '情况1 '处理语句 Case '情况1 '处理语句 ........... Case '情况n '处理语句 Default '处理语句 End Select 其作用是根据给定的变量的不同的可能值做出相应的处理。当你的变量取值范...

Sub sdfa() myStr = InputBox("请输入代码的标题") Select Case VBA.LCase(myStr) Case "a" MsgBox "你" Case "b" MsgBox "我" Case "c" MsgBox "他" Case Else MsgBox "error" End Select End Sub

Function LineColor(ByVal xlBorder As Border) As Integer 改成 Function LineColor(ByVal xlBorder) 试试,就是把 函数的结果 和 参数 都定义为 Variant 类型,让程序自动选择合适的变量类型

你的代码有误,当然不会弹出方框了!我帮你修改好了! Sub 按钮2() Dim Age As String Age = InputBox("请出入你的年龄", "输入年龄窗口") Select Case Age Case 1 To 18 MsgBox "你丫太小了" Case 19 To 30 MsgBox "好好学习去吧" Case 31 To 4...

网站首页 | 网站地图
All rights reserved Powered by www.lpqs.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com