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

vBA CAsE

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

Case Is > 0.7, Is

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

Select Case ture 是什么意思? 难道你写了一个 Select Case true ? 永远成立的意思?

新可以的, 我给你发下这个的具体用法你看下就明白了 本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值,故只有此区块内的语句会被完成到。 Dim Number Number = 8 ' 设置变量初值。 Select Case Number ' 判断 N...

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

先说下你第一段代码: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...

你对select case 语句理解有问题 吧, 给你上excel 助里面的例子你看下你就懂了 Select Case 语句示例 本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值,故只有此区块内的语句会被完成到。 Dim Number Number =...

switch和choose都是做选择用的函数,不同点在switch的参数更灵活一些 例如 现在需要填一份付款单,其中美元用$,人民币用 ¥ ,欧元用€封闭小写 单元格A1,填大写,A2单元格填小写.其中A2单元格货币符号根据A1单元格自动填写 switch用VBA表达式...

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