wdjh.net
当前位置:首页 >> vBA sEriEs >>

vBA sEriEs

可以这样试一下: 直接转成日期格式赋值就可以了: ActiveChart.SeriesCollection(1).Values= Array(CDate("2018-04-01"),CDate("2019-04-01"))

1.如下图B:C两列是一组数据,E:F两列是另一组数据,制作方法如下: 2.选择B:C两列数据,不要带标题部分,插入散点图: 3.修改一下坐标轴标签的位置,将XY轴的标签分别置于最低部和最左侧,此时的图表如下: 4.在绘图区域中右键选择:选择数据,...

如果您选择一个图表系列并查看 Excel 的公式行,则会看到系列是由使用 SERIES 函数的公式生成的。SERIES 是一种用于定义图表系列的特殊函数,它只能在此类环境中使用。您不能将它用于工作表,也不能在它的参数中包含工作表的函数或公式。

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

xlFillDefault是Range集合对象的AutoFill方法的参数Type的默认值。 如果使用Range集合对象的AutoFill方法时省略Type参数或将Type参数指定为 ,Microsoft Excel 将依据源区域选择最适当的填充方式。 以下摘自Excel VBA帮助文件 AutoFill 方法 对...

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(...

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

格式不对 Series.xvalues=range(cells(1,1).address & ":" cells(32,1).adress) '这里是绝对地址 Series.xvalues=range(cells(1,1).address(0,0) & ":" cells(32,1).adress(0,0)) '这里是相对地址

把这两句: ActiveChart.SetSourceData Source:=Range("'288、288A'!$B$30:$AT$32") ActiveChart.SeriesCollection(1).XValues = "='288、288A'!$C$1:$AT$1" 改成: ActiveChart.SetSourceData Source:=Range("$B$30:$AT$32") ActiveChart.Serie...

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

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