美文网首页
Excel2013中替换文本框内的文本

Excel2013中替换文本框内的文本

作者: wangjunmech | 来源:发表于2018-08-21 08:43 被阅读0次

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

相关文章

网友评论

      本文标题:Excel2013中替换文本框内的文本

      本文链接:https://www.haomeiwen.com/subject/bvqdiftx.html