Vba 我试图使用find函数来查找房间并为相邻的单元格指定一个名称，但是在调试器中我得到了一个代码91

我试图使用find函数来查找房间并为相邻的单元格指定一个名称，但是在调试器中我得到了一个代码91。我多次使用这个find函数，它工作得非常完美，但是当我将它设置为一个新变量并更改了sheet和userform引用时，它就停止了工作

布局在第3页，有一个所有房间号的列表a:a，我想要一个代码来查找用户表单中分配的房间号，并将此人的姓名添加到第二列B:B

'Update Occupancy List
Sheet3.Select
Dim FndRng As Range
Set FndRng = Sheet3.Columns("A:A").Find(What:=AddOccupant.txtRoom.Value,  LookIn:=xlFormulas, LookAt:=xlPart, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext,     MatchCase:=False, SearchFormat:=False)
FndRng.Offset(0,1).Value = txtName.Value

错误91为“未设置对象变量或带块变量”

我在这里看到的唯一未声明的变量是[AddOccount]，我假设它是带有[txtRoom]文本框的用户表单。如果我的假设是正确的，那么您需要先声明一个表单

Dim frmX作为用户窗体 设置frmX=[无论表单名称是什么]

并修改搜索行：…（What:=frmX.txtRoom.Value

顺便说一句，.Value是一个通用默认值，因此不必显式，即“frmX.txtRoom.Value”和“frmX.txtRoom”是相同的。

错误91是“对象变量或未设置块变量”

我在这里看到的唯一未声明的变量是[AddOccount]，我假设它是带有[txtRoom]文本框的UserForm。如果我的假设是正确的，那么您需要首先声明一个表单

Dim frmX作为用户窗体 设置frmX=[无论表单名称是什么]

并修改搜索行：…（What:=frmX.txtRoom.Value

---

顺便说一句，.Value是一个通用默认值，因此您不必显式，即“frmX.txtRoom.Value”和“frmX.txtRoom”都是一样的。

实际找到值了吗？是的。我在其他列表上也使用了完全相同的查找函数，效果很好。但我就是无法让这个函数工作。实际找到值了吗？是的。我在其他列表上也使用了完全相同的查找函数，效果很好。但我就是无法让这个函数工作。名称和causerform的选项是AddOccount。这不是一个正确的引用吗？或者我仍然应该声明它吗？谢谢你让我知道，我以后会忽略它。是的，这是引用表单的正确方式。我希望暴露可能的语法问题…如果这不是问题，那么“txtName”是下一个选择。它是什么？在哪里/如何声明？userform的名称和标题是AddOccounter。这不是一个正确的引用吗？或者我应该仍然声明它吗？谢谢你让我知道，我以后会省去它。是的，这是引用表单的正确方式。我希望暴露可能的语法问题…如果这样的话s不是问题，那么“txtName”是下一个选择。它是什么？在哪里/如何声明？