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

网友投稿 793 2022-10-19

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

有时,我们可能会批量修改SERIES公式,但是对于SERIES公式来说,没有内置的“查找和替换”功能。Jon Peltier大师编写了一段程序,可以实现这样的功能,代码如下:

Sub ChangeSeriesFormula_ActiveChart()

‘如果没有活动图表

If ActiveChart Is Nothing Then

MsgBox”请选择图表后重试.”,vbExclamation, _

“没有选择图表”

Exit Sub

End If

Dim OldString As String

OldString = InputBox(“输入要被替换的字符串:”,”输入旧字符串”)

If Len(OldString) > 1 Then

Dim NewString As String

NewString= InputBox(“输入新字符串来替换掉原字符串 “& “””” _

&OldString & “””:”, “输入新字符串”)

‘ 遍历所有系列

Dim srs As Series

For Each srs In ActiveChart.SeriesCollection

Dim NewFormula As String

‘替换SERIES公式中的字符串

NewFormula = WorksheetFunction.Substitute(srs.Formula, _

OldString, NewString)

‘更新SERIES公式

srs.Formula = NewFormula

Next

Else

MsgBox”没有进行替换操作.”,vbInformation, “没有输入”

End If

End Sub

如下图1所示,需要将图表系列中的C替换成D,运行ChangeSeriesFormula_ActiveChart过程,按照提示输入原字符串和新字符串,即可完成替换,并且图表相应更新。

图1

代码的图片版如下:

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:wps在公式中怎么插入任意的阵列?
下一篇:wps怎么生成二维码? wps文档生成链接或者二维码的教程
相关文章