在 Excel 的文本框中查找文本

Question

我意识到 Excel“查找和替换”对话框无法在文本框中找到文本。我想我需要一个宏来解决这个问题。

如何在文本框中找到文本：

1. 在活动工作表中
2. 在所有工作表中

谢谢。

下面是一个示例图像，显示了我所说的文本框的含义：

Answer 1

假设您只使用文本字段（而不使用其他对象），此代码应该适合您（但我没有在 Excel 2016 上尝试过）：

Sub Search()
    Dim shaShape As Shape
    For Each shaShape In ActiveSheet.Shapes
        If shaShape.DrawingObject.Text Like "*all*" Then  '<== specify you're search term
            shaShape.Select
            Exit For
        End If
    Next shaShape
End Sub

Answer 2

您可以查看其他解决方案这里。

它将所有形状（包括文本框）导出到新的 Word 文档。

在 Word 中，搜索功能在文本框中确实有效，问题已解决。

Answer 3

看看这个，我认为它有你想要的东西 https://excel.tips.net/T011281_Finding_Text_in_Text_Boxes.html