查找和replace文本框和macros

有没有办法在文本框中查找和replaceembedded的macros？

例。 我创build了很多的文本框，我把它们分配给macros的说RunBox.1 WalkBox.1 SleepBox.1现在让我说复制这些文本框。 它将有我在前面的框中分配的macros，我想改变.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