使用VLOOKUP将单元格引用传递给公共变量？

Question

我有一个用户窗体，该窗体在列中的单元格更改时打开。 该用户窗体包含复选框，所有复选框都触发带有文本框的第二个用户窗体，该文本框在隐藏的工作表上查找其内容的单元格。 （选中的复选框将确定文本框要查找的单元格）。 然后，用户编辑该框，单击一个按钮，然后将新文本写回到同一单元格。

选中复选框时的VBA。 效果很好。 万岁！

Dim vln As Variant
Dim reta As Worksheet

Set reta = ActiveWorkbook.Sheets("RetailerActivity")
Set vln = ActiveCell.Offset(-1, -3)

UserForm2.TextBox1.Text = Application.WorksheetFunction.VLookup(vln, reta.Range("A1:Z100"), 3, False)

UserForm2.TescoSave.Visible = True
UserForm2.Show

End Sub

编辑完文本框后，我想将其写回到原来的单元格中。 我认为最简单的方法是拥有一个公共变量（作为范围），并将vlookup的结果传递到该变量中，以便第二个用户窗体可以包含一行

Private Sub ASave_Click()

publicvariable.Value = TextBox1.Value
userform1.hide

End Sub

方便又好，而不是再次执行VLookup。 对？

无论哪种方式，我似乎都无法将公共变量设置为查找。

除了任何我有的子

Public bums As Range

在上面的代码中，在设置文本框的位置之后，我尝试添加该行

Set bums = Application.WorksheetFunction.VLookup(vln, reta.Range("A1:Z100"), 3, False)

但是代码错误带有“类型不匹配”。

如果我尝试

Set bums = Range(Application.WorksheetFunction.VLookup(vln, reta.Range("A1:Z100"), 3, False))

我得到对象“ _global”的方法“ Range”失败。

正如您可能会说的那样，我通过在互联网上乱码来进行编码，所以我毫不怀疑这是一个完全的错误。

任何建议将不胜感激。

Answer 1

VLookup返回一个值，而不是范围。 您可以使用Match查找行，然后使用Cells获取实际引用-例如：

Dim vMatch
vMatch = Application.Match(vln, reta.Range("A1:A100"),0)
If Not IsError(vMatch) then 
Set bums = reta.Cells(vMatch, "C")
else
msgbox "No match for " & vln
Exit Sub
End If

就个人而言，我也不会使用公共变量，而是为Userform2创建一个属性，您可以向其分配范围。