如何用VBA判断Error 2015

ning84

判断Error 2015的方法是
Application.WorksheetFunction.IsError(Rng)
请问，还有什么解决方法？

1. Sub ddel()
   
2.    Dim Rng As Range
   
3.       Set Rng = Selection
   
4.       Debug.Print Rng
   
5.       Debug.Print Application.WorksheetFunction.IsError(Rng)
   
6. End Sub
   

复制代码

phsu

用Error.Type判定，若A1顯示#VALUE，則單元格公式Error.Type(A1)會傳回3。

ning84

phsu 发表于 2017-10-3 08:14
用Error.Type判定，若A1顯示#VALUE，則單元格公式Error.Type(A1)會傳回3。

谢谢回复，excel2003好像不能用？

phsu

2003版本也是可以﹐請參閱附件。

ning84

phsu 发表于 2017-10-3 15:09
2003版本也是可以﹐請參閱附件。

谢谢，=ISERROR(A37)的应用=ERROR.TYPE(A38)的应用

ning84

If Not IsError(Sht.Cells(ii, 1))

1. Sub TraverserDate()
   
2.     Dim Sht As Worksheet
   
3.     Dim Rng As Range
   
4.     Dim oDate As Date
   
5.        For Each Sht In ThisWorkbook.Sheets
   
6.          
   
7.            Nn = Sht.Range("A65536").End(xlUp).Row
   
8.            For ii = 1 To Nn
   
9.                If Not IsError(Sht.Cells(ii, 1)) Then
   
10.                   oStr = DateExp(Sht.Cells(ii, 1))
    
11.                   If IsDate(oStr) Then
    
12.                         oDate = oStr
    
13.                         Debug.Print ii, oDate
    
14.                         Sht.Cells(ii, 1) = oDate
    
15.                   End If
    
16.                End If
    
17.            Next ii
    
18.        Next Sht
    
19. End Sub
    
20. ''
    
21. Function DateExp(Str)
    
22.     Dim oRegExp As RegExp
    
23.     Dim oMatColl As MatchCollection
    
24.     Dim oMatch As Match
    
25.     Dim oSubMat As SubMatches
    
26.     Dim RegStr, oStr, oDate
    
27.         Set oRegExp = New RegExp
    
28.         RegStr = "\d{2,4}(年|-|/|.)\d{1,2}(月|-|/|.)\d{1,2}(日|/||)"
    
29.         oRegExp.Pattern = RegStr
    
30.         Set oMatColl = oRegExp.Execute(Str)
    
31.         If oMatColl.Count > 0 Then
    
32.             oDate = oMatColl.Item(0)
    
33.             DateExp = oDate
    
34.         Else
    
35.             DateExp = Str
    
36.         End If
    
37. End Function

复制代码