作者loveholic39 ( )
看板Visual_Basic
标题Re: [VBA ] excel以变数画图表的问题
时间Tue Mar 15 16:03:51 2011
※ 引述《loveholic39 ( )》之铭言：
: 我想以L2 , L3 两个储存格当图表范围的变数
: Dim aaa As String
: aaa = [L2] (L2储存格文字为"B10")
: Dim aab As String
: aab = [L3] (L3储存格文字为"B20")
: ActiveSheet.ChartObjects("图表 21").Activate
: ActiveChart.ChartArea.Select
: ActiveChart.SeriesCollection(1).Values = "=Sheet1!aaa:Sheet1!aab"
: ActiveChart.SeriesCollection(1).Name = "=Sheet1!R1C2"
: Windows("纪录表33.xls").SmallScroll Down:=12
: 侦测到错误要怎麽改才对呢?
自问自答
firrow = [L2] (*L2 = 10)
lasrow = [L3] (*L3 = 20)
ActiveSheet.ChartObjects("图表 21").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues =
ActiveSheet.Range(ActiveSheet.Cells(firrow, 2), ActiveSheet.Cells(lasrow, 2))
ActiveChart.SeriesCollection(1).Values =
ActiveSheet.Range(ActiveSheet.Cells(firrow, 4), ActiveSheet.Cells(lasrow, 4))
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.231.74.126