Question

所以我有一个VBA函数，不断抛出错误'应用程序定义或对象定义错误'，我无法弄清楚原因。该功能用于将一个单元格块从一个工作表复制到另一个工作表。我在其他方面使用了这样的代码没有问题，所以不明白为什么这不起作用。

    'update on main screen
    Public Sub mainImageUpdate(roomstring)
        set yoffset = Worksheets("Source").Range("A:A").Find(roomstring, , xlValues, xlWhole).Row
        Worksheets("Source").Range("B1:AB10").Offset(yoffset - 1, 0).Copy _
            Destination:=Worksheets("Main").Range("O5")
    End Sub

Answer 1

Public Sub mainImageUpdate(roomstring)
Dim Y as range
set y  = Worksheets("Source").Range("A:A").Find(roomstring, , xlValues, xlWhole)  'look for it
if not y is nothing then  'did you find it?
    Worksheets("Source").Range("B10:AB10").Offset(y.row - 1, 0).Copy _
        Destination:=Worksheets("Main").Range("O5")
else
      'do something?
end if
End Sub

类成员函数抛出简单范围函数的错误

1 个答案: