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

vBA sEriEsCollECtion

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

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

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

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

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

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

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

试编写代码示例如下: Private Sub CommandButton1_Click() Worksheets("Sheet1").ChartObjects(1).Activate For i = 1 To ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection(1).Delete Next ActiveChart.SeriesCollection.Add ...

录制宏,查看宏

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

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