我正在努力做我认为是一项简单的任务
我在用户表单上有一个文本框,其中包含一个数字值,我希望将其用作范围内的行号引用。
Sheets("Sheet1").Range("A" & TextBox1.Value).Select
失败并显示错误“选择范围类失败的方法”
如何将这些值转换为范围?
答案 0 :(得分:1)
您应该尝试使用此
的错误处理Sub Recut()
Dim rng1 As Range
If IsNumeric(textbox1.Value) Then
On Error Resume Next
Set rng1 = Sheets("Sheet1").Range("A" & textbox1.Value)
On Error GoTo 0
If rng1 Is Nothing Then MsgBox "A" & textbox1.Value & " is invalid"
Else
MsgBox "Textbox does not contain a number"
End If
End Sub