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

VBA TextBox值到范围

1 个答案: