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

vBA sEriEsCollECtion

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

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

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

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

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

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

录制宏,查看宏

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

本宏适合A列名称,B列x,C列y,行1为标题,数据从行2开始 Sub 插入XY坐标图() Dim s As String, c As Integer, r As Integer, i As Integer s = ActiveSheet.Name r = 2: c = 1: i = 1 If Len(Cells(r, c).Value) = 0 Then MsgBox "活动表格没有...

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

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