譬如上例,如果改为: 过程 判断语句▪️IF判断If表达式1Then语句块1ElseIF表达式2Then语句块2...Else语句nEnd If▪️ Select判断Select Case判断区间()Case表达式1语句块1Case表达式2语句块2Case Else语句块nEnd select 循环语句▪️For-to/each-next在一个集合里选择对象去循环For循环变量=初值to终值st...
Select Case Application.Version*1'设置连接字符串,根据版本创建连接 Case Is<=11strConn="Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source="&PathStr Case Is>=12strConn="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&PathStr&";Extended Properties=""Excel 12.0;HDR=YES"";...
Select Case xR.Column Case 1 sArr(xR.Column) = "=row()-1"Case Else sArr(xR.Column) = Range(CellAddrArr(xR.Column)).Value End Select Next xR GetxArr = sArr Erase sArr Set R = Nothing Set xR = Nothing End Function 总体来说,制作这个应用还是有其比较实用的功能。最终结果是将报价这个...
使用Select Case 语句 使用加载项管理器 使用With 语句 VarType 常量 Visual Basic 命名规则 跨应用程序进行处理 编写Function 过程 编写Property 过程 编写Sub 过程 编写赋值语句 将数据写入文件 编写声明语句 编写可执行语句 编写Visual Basic 语句 Microsoft Forms ...
3)在校验用户录入的密码时用了一个Select Case….End Select 的语句,这个语句中会列举到用户录入的各种情况。① 没有录入,直接取消时 Case Is = False 'do nothing Exit Sub 直接退出程序Exit Sub。宏使用Application对象的InputBox方法。如果用户单击取消(Cancel),这个方法返回False,并且什么也不发生(Input...
Sub AutoFitRows() Cells.Select Cells.EntireRow.AutoFit End Sub 您可以使用此代码自动调整工作表中的所有行。当您运行此代码时,它将选择工作表中的所有单元格,并立即自动调整所有行。 6. 删除文字绕排 Sub RemoveTextWrap() Range("A1").WrapText = False End Sub 此代码将帮助您只需单击一下即可从整...
select判断 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Sub 判断1() Select Case Range("A1").value Case 0 To 1000 Range("B1") = "正数" Case Is = 0 Range("B1") = "0" Case Else Range("B1") = "负数" End Select End Sub 公式与函数 在单元格输入公式 输入普通公式 代码语言:...
Case"PP"Set rPP=d End Select End If Next d IfNot(rPP Is Nothing Or rSS Is Nothing)Then rPP.Resize(1,2).Interior.Color=vbRed rSS.Resize(1,2).Interior.Color=vbRed End If Next i End Sub 代码很简单,对于初学者来说是一个很好的练手示例,有兴趣的朋友可以试试。
If Intersect([a1:d10], Selection) Is Nothing Then '注释:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等 MsgBox "没有交集" Else MsgBox Intersect([a1:d10], Selection).Address Intersect([a1:d10], Selection).Select End If End Sub Sub 隔行插入() For i = 0 To Appl...
rngResult1IsNothingAndrngResult2IsNothing:ExitSubCaseNotrngResult1IsNothingAndrngResult2IsNothing:SetrngResult = rngResult1CaserngResult1IsNothingAndNotrngResult2IsNothing:SetrngResult = rngResult2CaseNotrngResult1IsNothingAndNotrngResult2IsNothing:SetrngResu...