假设以A1为例，Sub test()With Range("A1")If IsNumeric(.Value) ThenIf Int(.Value) <> .Value Then MsgBox "不是整数"If .Value < 0 Then MsgBox "不是正整数"ElseMsgBox "不是数字"End IfEnd WithEnd SubWith Selection.Validation.Delete.Add Type:=xlValidateWholeNumber, AlertStyle:=...
i=i+1lNum=Mid(sText,iCount,1)&lNum IfIsNumeric(lNum)Then IfCDbl(lNum)<0Then Exit For Else lNum=Replace(lNum,Left(lNum,1),"",,1)End If End If If i=1And lNum<>vbNullString Then lNum=CDbl(Mid(lNum,1,1))Next iCount If NotIsNumeric(lNum)Then lNum=0ExtractNumber=Extract...
If IsNumeric(ltr) Then retVal = retVal & ltr ElseIf ltr = "." And (Not european) And Len(retVal) > 0 Then retVal = retVal & ltr ElseIf ltr = "," And european And Len(retVal) > 0 Then retVal = retVal & "."End If Next i getNumber = CDbl(retVal)last:End Function 在提取过...
Private Sub nested_if_demo_Click() Dim a As Integer a = 23 If a > 0 Then MsgBox 'The Number is a POSITIVE Number' If a = 1 Then MsgBox 'The Number is Neither Prime NOR Composite' ElseIf a = 2 Then MsgBox 'The Number is the Only Even Prime Number' ElseIf a = 3 Then MsgBox...
If Not VBA.IsNumeric(xNumber) Then Exit Sub If xNumber <= 0 Then Exit Sub Dim s As Worksheet, ir As Long, er As Long Set s = ThisWorkbook.Worksheets("提取成绩")s.UsedRange.ClearContents s.UsedRange.ClearFormats s.Range("A1").Value = Me.TextBox1.Value s.Range("B1:K1").Value =...
IfIsDate(txt_Date)And(a Like"###"Or a Like"##")Then If a Like"##"Then a="20"&a On Error Resume NextTD=DateSerial(a,b,c)If Err.Number=0Then IfYear(TD)=Val(a)AndMonth(TD)=Val(b)AndDay(TD)=Val(c)Then Correct_Date=True Output...
If Err.Number = 0 Then ' Err.Number 为 0 时表示无错误,其他整数(正数、负数)均表示出错 Debug.Print "出错啦" Err.Clear ' 清除错误 End If 另外一种则是指定跳转位置,并通过此段内容对错误代码进行分析,并给出提示: On Error GoTo errLine '遇到错误时,跳转到 errLine 行 errLine: Debug.Print Er...
If isopen Then Close #fnum If err Then Debug.Print err.Number, err.Description End Function 十三 Replace用法: http://wenku.baidu.com/view/e2298003eff9aef8941e0626.html 十四 可以用right 和 lift来实现对注释等特殊字符串的剔除 十五 VBA读写文件: ...
If err Then Debug.Print err.Number, err.Description End Function 12、Print # 语句 语法:Print #filenumber, [outputlist] outputlist 参数的设置如下: [{Spc(n) | Tab[(n)]}] [expression] [charpos] Spc(n) 用来在输出数据中插入空白字符,而 n 指的是要插入的空白字符数。 Tab(n) 用来将插入...
If R Is Nothing Then Exit Sub If sR Is Nothing Then Exit Sub If VBA.Err.Number <> 0 Then Exit Sub GetList R, sR, ci Set R = Nothing Set sR = Nothing End Sub 函数：Public Function GetList(R As Range, sR As Range, xci As Long)'R 为要查询单元区域 'sR 查询结果开始单元格 'x...