excel替换图表SERIES公式中的字符串 _知识经验

有时，我们可能会批量修改SERIES公式，但是对于SERIES公式来说，没有内置的“查找和替换”功能。Jon Peltier大师编写了一段程序，可以实现这样的功能，代码如下：
Sub ChangeSeriesFormula_ActiveChart()
‘如果没有活动图表
If ActiveChart Is Nothing Then
MsgBox”请选择图表后重试.”,vbExclamation, _
“没有选择图表”
【excel替换图表SERIES公式中的字符串】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
代码的图片版如下：

文章插图

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

推荐阅读

怎样鉴别真假紫砂壶鉴别真假紫砂壶的技巧

广点心的做法大全集窍门 9种老广最爱的经典广式点心做法

花店起名大全

兔肉可以和南瓜一起吃吗兔肉和南瓜一起吃的营养

网上说的欧皇是什么意思欧皇是什么梗

烧煮菜的方法如何做烧煮菜

扫帚菜的吃法

天天酷跑狴犴如何获得

金田起义开过什么生肖

新鲜无花果的功效与作用无花果对人体的好处

拌饭料|配着这盘简易小寿司，米饭可以吃三大碗

Excel设置新建工作薄的工作表数量

翼组词_翼字组词_翼的组词有哪些

手机上网电磁波会增强上万倍吗？

＜＜河东狮吼＞＞里面那个经典的台词，张柏芝对古天乐说的话

乘坐高铁可以不用取票直接刷身份证吗（能不能直接刷身份证做高铁）

饺子|姑侄亲：不是饺子不好吃，是炖的肉特意不让吃

手机怎么连电脑

求妖尾同人小说女主人成品

陈皮可以嚼着吃吗陈皮可以直接吃吗