Excel 在范围内搜索文本并在文本框中显示结果
此宏正在工作，但我希望在文本框中显示D2:D82范围内的结果，而不自动将用户重定向到所定位的文本 说到VBA，我是一个非常基本的用户Excel 在范围内搜索文本并在文本框中显示结果,excel,vba,Excel,Vba,此宏正在工作，但我希望在文本框中显示D2:D82范围内的结果，而不自动将用户重定向到所定位的文本 说到VBA，我是一个非常基本的用户 Sub Button 1_Click() Res = InputBox("Who are you looking for?") Set Rng = Worksheets("Level2").Range("B2:B82") '<< The Sheet Name and Range to Search With Rng S
Sub Button 1_Click()
Res = InputBox("Who are you looking for?")
Set Rng = Worksheets("Level2").Range("B2:B82") '<< The Sheet Name and Range to Search
With Rng
Set MyChoice = .Find(What:=Res)
If Not MyChoice Is Nothing Then
Application.Goto MyChoice
Else: GoTo ExitMyChoice
End If
End With
Exit Sub
ExitMyChoice:
MsgBox "Could Not Find " & Res
End Sub
子按钮1\u单击（）
Res=输入框（“你在找谁？”）
Set Rng=Worksheets（“Level2”）.Range（“B2:B82”）”我不太确定要显示什么结果，但是下面的代码可能会有所帮助。您不需要GoTo
语句。您还应该使用Option Explicit强制声明所有变量，并直接在VBA编辑器中捕获不匹配错误
选项显式
子按钮1\u单击（）
作为变体的Dim-res
res=输入框（“你在找谁？”）
变暗rng As范围
Set rng=Worksheets（“Level2”）.Range（“B2:B82”）“我正要发布一个类似的答案。我删除了带有
语句的，因为您只使用了一次。您好，谢谢您的评论。很抱歉，您的宏在文本框中检索结果