请问如何得到图表的数据引用区域的表达式

sparkdodo

假设图表是日期型坐标轴
如果我令 Range1 = ActiveChart.SeriesCollection(1).XValues
可以得到向量Range1，但是使用的是Range(A1:A.....).XValue属性，输出的是文本形式的 “2000-1-1"

看到高手说，使用 Range(A1:A.....).Value2属性，可以得到36526这样的日期数值，
但我不知道应该怎么得到日期引用区域的 Range("A1:A..."),   请帮助，谢谢！

lsdongjh

Sub test()
   
    Dim arr
    Dim myMax As Date
    myMax = CDate("1899/1/1")
   

    arr = ActiveChart.SeriesCollection(1).XValues

   
    Dim lngI As Long, lngJ As Long
   
    For lngI = 1 To UBound(arr, 1)
           If IsDate(arr(lngI)) Then
                If arr(lngI) > myMax Then myMax = arr(lngI)
           End If
    Next
   
    Debug.Print CDbl(myMax)
End Sub

[ 本帖最后由 lsdongjh 于 2011-6-15 21:22 编辑 ]

sparkdodo

非常感谢 sdongjh 兄，
使用CDATE，可以完成了

我还是想知道有没有可能引用现有图表的数据源区域？ 用 range(xxx) 来表示？
这个问题好像论坛从来没有讨论过，搜索不到答案
ActiveChart.SeriesCollection(1).XValues  里面是怎么记录数据源区域的呢
应该有办法再把它表达出来，对吗？

lsdongjh

我给你的第一个答案中就有，哈，不过是用短消息的，

   ChartObjects(1).Activate
    s = Split(ActiveChart.SeriesCollection(1).Formula, ",")(1)
    s = Replace(Split(s, "!")(1), "$", "")
    arr = Range(s)

[ 本帖最后由 lsdongjh 于 2011-6-16 16:22 编辑 ]

sparkdodo

啊，我刚刚把 Series 对像可以用的 方法 全看了一遍，刚好也看到
Series.Formula
Series.FormulaLocal
Series.FormulaR1C1
Series.FormulaR1C1Local

这下太好了，自由多了，可以任意引用与修改图表数据源了。。
网上好多这方面的贴子都没有解决
置顶的教程里面，也没有操作图表数据源的内容，等我弄完丰富一下

谢谢lsdongjh啊，我弄了一个标准化图表的宏，完全没有编程经验，等弄好你帮忙指点下

sparkdodo

总结，引用当前图表数据区域的办法:

1. Sub test()
   
2. '将取得图表系列1的引用地址，类似于： =SERIES(Sheet1!R1C3,Sheet1!R2C1:R11C1,Sheet1!R2C3:R11C3,1)
   
3. 
   
4.     SeriesFormula = Split(Split(ActiveChart.SeriesCollection(1).Formula, "(")(1), ")")(0)   '去掉括号外面的内容
   
5. 
   
6. '切分成三段
   
7.     SeriesNameAddress = Split(SeriesFormula, ",")(0)      '系列名称
   
8.     SeriesXvalueAddress = Split(SeriesFormula, ",")(1)    '系列坐标地址
   
9.     SeriesValueAddress = Split(SeriesFormula, ",")(2)     '系列数据地址
   
10. 
    
11.     Range(SeriesValueAddress).Select       '所得地址可以直接引用
    
12. End Sub

复制代码

ipkdbr

sparkdodo 发表于 2011-6-16 17:36
总结，引用当前图表数据区域的办法:

你好,想问下这个split函数外面的(0)这些是什么情况, 公式解释不是应该在split()里面填写要返回的序号吗