Excel 如何在宏中使用与宏一起找到的变量

我有一个子程序，可以找到包含特定字符串的单元格的地址。我将此单元格的地址捕获为变量

x

，然后我要选择该单元格。到目前为止，我得到的是：

Call FindCell("n")
Sheets("Lagrange").Range(X).Select

---

变量

X

是

FindCell

子例程返回的

“$D$2”

我认为使用

SUB

来设置变量值会使您出错。

功能

是解决问题的正确方法

Sub yourMacro()
Const someText = "something to find"

findMyCell(someText).Select   

End Sub


Private Function findMyCell(textToFind As String) As Range


    Set findMyCell = ws.UsedRange.Find(textToFind, LookIn:=xlFormulas)


End Function

下面是一个带有变量的示例：

Sub yourMacrowithVariable()
Const someText = "something to find"

Dim aRange As Range
    Set aRange = findMyCell(someText)

aRange.Select
'or Range(aRange.Address).Select


End Sub

---

我认为您使用

SUB

设置变量值时出错了。

功能

是解决问题的正确方法

Sub yourMacro()
Const someText = "something to find"

findMyCell(someText).Select   

End Sub


Private Function findMyCell(textToFind As String) As Range


    Set findMyCell = ws.UsedRange.Find(textToFind, LookIn:=xlFormulas)


End Function

下面是一个带有变量的示例：

Sub yourMacrowithVariable()
Const someText = "something to find"

Dim aRange As Range
    Set aRange = findMyCell(someText)

aRange.Select
'or Range(aRange.Address).Select


End Sub

---

X=FindCell（“n”）

FindCell应该返回一个

范围，而不是
字符串。不需要X:
Sheets（“Lagrange”）.Range（FindCell（“n”）。选择
@vbasic208，因为他使用的是子函数，所以它不起作用。我认为这就是断开连接的地方….
X=FindCell（“n”）
FindCell
应该返回一个
范围，而不是
字符串
。不需要X:
Sheets（“Lagrange”）.Range（FindCell（“n”）。选择
@vbasic208，因为他使用的是Sub，而不是函数。我想这就是断开连接的地方…谢谢你，先生！非常感谢！谢谢你，先生！非常感谢！