我在工作簿中有两张纸 . 第一张纸名称是“摘要”,另一张是“目标” . 我在摘要标签中有图表 . 我想将该图表的源数据设置为包含日期的目标选项卡 . Ex(11/01/2013 - 11/30/2013) . 每天我想更改相应日期的图表日期 . 所以我在excel vba中试过如下:
sheets("Summary ").Select
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.PlotArea.Select
Sheets("Target").Select
a = InputBox("enter the date - format(mm/dd/yyyy)")
Set findrow = Range("a:a").Find(what:=a, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Rows
findrownumber = findrow.Row
ActiveChart.SeriesCollection(2).Values = "='Target Chart'!R4C78:R" & findrownumber & "C78"
End sub
当我试图在公式中输入源数据值时,它显示错误 .
请帮我 .
1 回答
这是我尝试的代码,它的工作原理 . 我可能在创建此示例时切换了工作表的名称,但您可以在代码中更改:)
假设“摘要”选项卡如下所示
而
Target
Sheet中的图表目前看起来像这样 . 源数据设置为=Summary!$A$1:$A$6
现在试试这段代码
运行代码时,在输入框中,将日期设置为“01/11/2013”
这是源数据设置为
=Summary!$A$4:$A$11
的输出IMPORTANT :我不建议使用Inputbox来捕获日期 . 您可能想要使用THIS