VBA TextBox值到范围

时间:2016-04-21 14:01:49

标签: excel vba excel-vba

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

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

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

失败并显示错误“选择范围类失败的方法”

如何将这些值转换为范围?

1 个答案:

答案 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