无法在refedit用户窗体上debugging对象所需的错误

我试图找出一个代码，从文本框的值复制信息，并使用ref编辑粘贴该信息。 不过，我正在Set rngCopy = TextBox2.Value上得到一个对象所需的错误。 因此，我需要一些帮助，为什么我得到这个错误。 我的rngcopy将是textbox2.value（名称）和rngpaste的位置将是编辑1.这是一个更好的想法 。

这是代码

 Private Sub PasteButton_Click() Dim rngCopy As Range, rngPaste As Range Dim wsPaste As Range Dim answer As Integer answer = TextBox1.Value If RefEdit1.Value <> "" Then TextBox2.Value = WorksheetFunction.VLookup(answer, Sheets("L12 - Data Sheet").Range("B:E"), 2, False) Set rngCopy = TextBox2.Value Set wsPaste = ThisWorkbook.Sheets(Replace(Split(TextBox2.Value, "!")(0), "'", "")) Set rngPaste = wsPaste.Range(Split(TextBox2.Value, "!")(1)) rngCopy.Copy rngPaste Else MsgBox "Please select an Output range" End If End Sub 

Answer 1

编辑粘贴链接返回的单元格地址

编辑以允许粘贴链接到不同的纸张

 Option Explicit Private Sub PasteButton_Click() Dim refRng As Range, fRng As Range With Me Set refRng = getRange(.RefEdit1.Value) If refRng Is Nothing Then MsgBox "Please select an Output range" .RefEdit1.SetFocus Else Set fRng = FindValue(Sheets("L12 - Data Sheet").Range("B:B"), CInt(.TextBox1.Value)) If fRng Is Nothing Then MsgBox "No match!" .TextBox1.SetFocus Else .TextBox2.Value = fRng.Offset(, 1).Value refRng.Formula = "='" & fRng.Parent.Name & "'!" & fRng.Offset(, 1).address End If End If End With End Sub Function FindValue(rngToSearchIn As Range, valueToFind As Variant) As Range On Error Resume Next Set FindValue = rngToSearchIn.Find(what:=valueToFind, LookIn:=xlValues, LookAt:=xlWhole) On Error GoTo 0 End Function Function getRange(address As String) As Range On Error Resume Next Set getRange = Range(address) On Error GoTo 0 End Function 

您首先确保RefEdit1控件中的用户inputRefEdit1处理有效的范围，奇怪的是， RefEdit控件允许任何input。