excel替换图表SERIES公式中的字符串

有时，我们可能会批量修改SERIES公式，但SERIES公式没有内置的“查找和替换”功能。乔恩珀尔帖大师写了一个可以实现这个功能的程序。代码如下：

子变更系列公式_活动图表()

如果没有活动图表。

如果活动图表什么也不是，那么

MsgBox“请选择一个图表，然后重试。”，vb惊叹号，_。

"未选择图表"

出口接头

如果…就会结束

将旧字符串作为字符串变暗

旧字符串=输入框(“输入要替换的字符串：”、“输入旧字符串”)。

如果Len(旧字符串)1，则

将新闻字符串变暗为字符串

NewString=InputBox("输入新字符串以替换原始字符串" " " " _。

旧字符串“”“:”，“输入新字符串”)。

遍历所有系列。

Dim srs As系列

对于活动图表中的每个srs。SeriesCollection

将新公式设为字符串

替换SERIES公式中的字符串。

NewFormula=WorksheetFunction。替代(srs。公式，_

旧字符串，新字符串)

更新SERIES公式。

srs。公式=新公式

然后

其他

MsgBox“无替换操作。”，vbInformation，“无输入”。

如果…就会结束

末端接头

如下图1所示，需要将图表系列中的C替换为D，运行ChangeSeriesFormula _ ActiveChart流程，并根据提示输入原始字符串和新字符串，这样就可以完成替换，并相应更新图表。

图1

代码的图片版本如下：