摘要： 有时，我们可能会批量修改SERIES公式，但是对于SERIES公式来说，没有内置的“查找和替换”功能。Jon Peltier大师编写了一段程序，可以实现这样的功能，代码如下： Sub...
有时，我们可能会批量修改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
excel图表如何改变复选框颜色？
Q：我如何才能改变复选框内部的颜色？ A：在Excel中有3种不同类型的复选框，包括：用户窗体中的复选框、表单控件中的复选框、ActiveX控件中的复选框。下面分别介绍如何修改它们内部颜色。 用户窗体中的复选框 对于用户窗体中的复选框，可以设置其BackColor属性来修改其内部颜色，如下图1所示，通过在属性窗口
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图表如何制作耐力轮图
如果想要比较实际效果与目标效果（或预算与实际）之间的差异，特别是差异大于100%时，则此类耐力轮图表效果很好，如下图1所示。 图1 示例数据 示例数据如下图2所示，通过实际与目标的比值，得到实际占目标的百分率。 图2 计算下图3所示单元格区域C9:E10中的6个值，其中： 单元格C9：=MIN(1,$C$6
