www.zbgf.net > 请高手帮帮忙!这个vBA用 SElECt CAsE 怎么写啊?

请高手帮帮忙!这个vBA用 SElECt CAsE 怎么写啊?

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" & ...

123456789Sub test() bianliang = "fdbbdf" Select Case True Case bianliang Like "*bb*" Call BB Case Else Call CC End SelectEnd Sub

select case [a1] case 接你的条件 msgbox "" case 条件 msgbox"" case 条件 msgbox … select case next 手机打的,代码不完整,就是这意思

Select Case case [A1]+[A2]>0 msgbox "aa" case [C1]+[C2]?0 msgbox "bb"end select

还不如直接用 if 语句啊, 分支又不多。 如下:--没有测试,你自己试下 sub 示例()Dim ii = Val(TextBox1)if i > 0 And i

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

Case Is > 0.7, Is

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

Select instr(Case Selection.Cells(1).Value,"圆形“) Case is 0

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

网站地图

All rights reserved Powered by www.zbgf.net

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