VBA 文本框值到范围

Question

我正在努力做我认为是一项简单的任务

我在用户表单上有一个文本框，其中包含一个我希望用作范围内行号引用的数值。

Sheets("Sheet1").Range("A" & TextBox1.Value).Select

这失败并出现错误“范围类的选择方法失败”

如何将这些值转换为一个范围？

Answer 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