Excel2013中替换文本框内的文本
2018-08-21 本文已影响0人
wangjunmech
1. 在工作表名上右键view code进入VBA编辑器
2. 进入菜单 view------->project explorer或Ctrl+R打开项目视图，可以在左边窗口中查看到各个工作表名。
3. 在项目视图中双击相应表名，在右边的编辑窗口中添加如下函数：
4. 点击菜单上的三角运行图标执行函数，看看对应表中的内容是否已全部替换？。
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Sub文本框中的文本替换()
Dim tb As Object
For Each tb In ActiveSheet.Shapes
If tb.Type = msoTextBox Then
tb.DrawingObject.Caption = Replace(tb.DrawingObject.Caption, "查找内容", "替换内容")
End If
Next
End Sub
