我正在尝试使用find函数来查找空间并为相邻的单元格指定一个名称，但是我在调试器中得到了一个代码91
我正在尝试使用find函数来查找空间并为相邻的单元格指定一个名称，但是我在调试器中得到了一个代码91。 我多次使用这个查找函数，它已经完美地工作，但是当我把它设置为一个新的variables，并改变表单和用户表单参考，它只是停止工作。
布局是在表3中有一个所有的房间号码列表A：A，我想要一个代码来find在用户窗体中分配的房间号码，并将人员的名字添加到第二列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是“对象variables或块variables未设置”
唯一未申报的variables，我可以看到这里是[AddOccupant]，我认为是与[txtRoom]文本框的UserForm。 如果我的假设是正确的，那么你需要首先声明一个表单
Dim frmX as UserForm Set frmX = [无论表单名称是什么]
和mod的search行：…（What：= frmX.txtRoom.Value，…
顺便说一句，.Value是一个普遍的默认，所以你不必显式，即“frmX.txtRoom.Value”和“frmX.txtRoom”是相同的。