Question

我有以下代码可以正常使用我的个人Excel工作表（总共有4张）。当我尝试将此代码放入模块中以便我不会在每张纸上都需要它时，它会停止工作。我有几个使用Find_Select的其他Subs，因此无法将它放入模块中迫使我有很多重复代码。任何帮助将非常感激。感谢。

Public Sub Find_Select()

Dim cl As Range
With ActiveSheet.Range("A2:X35")
    Set cl = .Find(rplc, LookIn:=xlValues)
    If cl Is Nothing Then
    Else
        cl.Select
    End If

End With

End Sub

Answer 1

以下代码可以解决问题：

Sub Find_Select(rplc)
    Dim ws As Worksheet, cl As Range

    Set ws = Application.ActiveSheet
    With ws.Range("A2:X35")
        Set cl = .Find(rplc, LookIn:=xlValues)
        If cl Is Nothing Then
        Else
            cl.Select
        End If
    End With
End Sub

如何在模块中使用ActiveSheet属性

1 个答案: