读书人

vb6有没有现成函数可以判断excel单元格

发布时间: 2012-02-16 21:30:36 作者: rapoo

vb6有没有现成函数可以判断excel单元格范围表示是否正确
如题,例:a1:a10这个范围表示是正确的,而aaa10:8是不对的,有没有现成的函数,自定义函数太麻烦

[解决办法]
用 on error 来做
Sub test()
On Error Resume Next
ads = "a1:f5f"
s = ""
s = Range(ads).Address
If s = "" Then
MsgBox ads & " 表达式错误"
Exit Sub
End If
On Error GoTo 0
MsgBox "继续执行后面的代码"
End Sub
[解决办法]

VB code
Sub Rg()    Dim rng As Range    On Error GoTo 1    Set rng = Range(InputBox("Please Input A Range:"))    MsgBox "Good!": Exit Sub1:     MsgBox "Is Error!"End Sub 

读书人网 >VB

热点推荐