mwbr.net
当前位置:首页 >> vBA sEriEsCollECtion >>

vBA sEriEsCollECtion

Sub 画图() Dim FR As Integer Dim LR As Integer Dim ZB0 As Double Dim ZB1 As Double FR = InputBox("输入数据区域开始行号") LR = InputBox("输入数据区域结束行号") Sheets(2).Range("a1") = 0 Sheets(2).Range("b1") = 1 Sheets(2).Range(...

有个办法,把日期写在excel表格里,如写在第一列 ActiveChart.SeriesCollection(1).XValues = _ = "= sheet1!R1C1:RnC1" 'n是行数

你录的时候当然没有问题,但再次执行时肯定就有问题了。 原来的SeriesCollection(1)已经被删除了,SeriesCollection(2)变成了SeriesCollection(1) 再次执行的时候恐怕就找不到SeriesCollection(2)了。 如果你想把这段宏用于其他图表的处理,那个...

录制宏,查看宏

ActiveChart.SeriesCollection(1).XValues = Array("2001-01-03", "2001-03-09", "2001-04-09") ============================ 是将X轴的数据变成日期数据吧。你试试改成上面的。不知道是不是你想要的。 其上句的作用同下句。 ActiveChart.Serie...

不止12个。可能是“M”系列的值有问题

ActiveChart.SeriesCollection(1).Values = Array(1, 2, 3) ActiveChart.SeriesCollection(1).XValues = Array(4, 5, 6) =================================== 换成上面这个试试。

ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$A$" & m & ":$A$" & n 试试看吧!

试试看 ActiveChart.SeriesCollection(num).XValues = "=" & sheet & "!$R$" & rowstart & "$C$" & colstart & ":$R$" & rowlast & "$C$" & colstart ActiveChart.SeriesCollection(num).Values = "=" & sheet & "!$R$" & rowstart & "$C$" & i ...

SeriesCollection(1).XValues = "=Data!R2C1:R" & lngCount & "C2" '第一个系列的X值=Data工作表的第二行第一列到第lngCount行,第二列的值. SeriesCollection(1).ErrorBars.EndStyle = xlCap '第一个系列的误差线的尾端样式为xlCap. 第三句是设...

网站首页 | 网站地图
All rights reserved Powered by www.mwbr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com