找到＆amp;替换文本框和宏

Question

有没有办法在文本框中查找和替换嵌入的宏？

实施例。我创建了很多文本框，我分配它们的宏说RunBox.1 WalkBox.1 SleepBox.1现在让我说我复制那些文本框。它将在我之前的框中分配宏，并且我想将.1更改为.2

Dim tb As TextBox
Dim actionName As String 

Sub AAA()    
    For Each tb In ActiveSheet.TextBoxes
        actionName = tb.OnAction
        actionName = Replace(actionName, "CGSF", "KBTUGSF")
        tb.OnAction = actionName Next 
End Sub

这不能确定我需要做什么。

Answer 1

更改文本框的OnAction属性。

Dim tb as TextBox
Dim actionName as String

For Each tb In ActiveSheet.TextBoxes
    actionName = tb.OnAction
    actionName = Replace(actionName, ".1", ".2")
    tb.OnAction = actionName
Next