www.zbgf.net > 怎么用VBA中sElECt.CAsE完成这个条件

怎么用VBA中sElECt.CAsE完成这个条件

'如果一定要使用SELECT CASE,建议这样写 Select Case Range("a1") Case Is < 0: MsgBox "z" Case 0 To 10: MsgBox "a" Case 11 To 15: MsgBox "b" Case 16 To 20: MsgBox "c" Case 21 To 30: MsgBox "b" Case 31 To 40: MsgBox "c" Case Is > 4...

Select Case语句也是条件语句之一,而且是功能最强大的条件语句。它主要用于多条件判断,而且其条件设置灵活、方便,在工作中使用频率极高。本节介绍Select Case语句的语法及应用案例. Select Case语句的语法如下: Select Case testexpression...

Case Is > 0.7, Is

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 例如,我...

推荐你使用“like”函数,比如 if rng1 like “*你好*”。这就是表示rng1里面包含你好两个字。不过是连续的!祝您愉快!

如果是与的关系 嵌套判断,优先级高的放外层! Select Case 变量1 Case xxx Select Case 变量2 Case xxx Func End SelectEnd Select如果是或的关系 放Else里 Select Case 变量1 Case xxx Func Case Else Select Case 变量2 Case xxx Func End Sel...

1,用子查询,把LIKE放到子查询里,给个例子: select Type=CASE TType when 'A ' Then '单 ' when 'B ' Then '多 ' when (select Type from store where TType like 'C_ ') Then '其它 ' Else '没有类型 ' end from Store 2,你可以写成多条语...

Sub lll() Dim I, G For I = 2 To 10 G = CStr(Range("A" & I)) Select Case Mid(G, Len(G) - 1, 1) Case 1 Case 2 Range("C2") = Range("A" & I) Case 3 Case 4 Range("C3") = Range("A" & I) Case 5 Case 6 Case 7 Range("C4") = Range("A" & ...

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

网站地图

All rights reserved Powered by www.zbgf.net

copyright ©right 2010-2021。
www.zbgf.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com