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
网友评论