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

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

VBA判断语句 1)If„Then„Else语句 IfconditionThen[statements][Elseelsestatements] 如1:IfA>B And C250Thenx=x-100 或者,可以使用块形式的语法: If condition Then [statements] [ElseIf condition-n Then [elseifstatements] ...

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

'1、Case Is > 0 And i = 100 And i = Int(100)-- 对于且逻辑 Case里没有这样的用法,你得用if..else 结构去做 '2、根据你的意思,如果用case的话,从0-100应该是 case 0 to 100 '3、另外你的 and Int(100) 是要表达什么意思

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

excel的vba中也有select case语句. 如果你说的"语句"是指公式的话,choose,vlookup,index+match也许可以解决你的问题.

For i = 2 To Cells(Range("A:A").Rows.Count, 3).End(xlUp).Row Select Case Cells(i, 3).Value Case 1111 Cells(i, 3).Interior.Color = vbRed Case 2222 Cells(i, 3).Interior.Color = vbBlue Case 3333 Cells(i, 3).Interior.Color = vbGree...

在变量名后面加上美元符号“$”,就是声明这个变量是字符串,跟语句声明"dim Str as string "的作用是一样的。 类似的用法: $ string % integer # double & long ! single

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