层析填色散点图

sysuyang

各位大侠，小弟想用Excel画层析填色的散点图。比如，有A，B，C三列数据，以A，B列为x，y作散点图，同时对C进行分档，不同档位以不同颜色显示。数据量有点大的，每列有上万个数据。如何才能通过vba快捷实现？谢谢！

爱疯

不懂说的是什么意思。
不用vba是怎样的效果？用了是怎样？拿几十数据的excel文件说明下看看。

sysuyang

爱疯 发表于 2016-3-4 12:31
不懂说的是什么意思。
不用vba是怎样的效果？用了是怎样？拿几十数据的excel文件说明下看看。

这下清楚了吧

爱疯

同一种颜色，属于一个数据系列，占2列。
如果有10种颜色，则占 10*2 = 20列。


这是哪儿的图表，有没有对应的数据？
你的实际问题和这个图表，有怎样的关系？

爱疯

1.rar (11.61 KB, 下载次数: 4)

2016-3-4 19:52 上传

点击文件名下载附件


做了一个，只是循环的改变 每个系列的值。




Sub test()
    Dim A, j, s, x

    Application.ScreenUpdating = False
    Application.Calculate
    With Sheets(1)
        If .ChartObjects.Count Then .ChartObjects.Delete
        A = .Range("A2:L" & .Cells(Rows.Count, 1).End(xlUp).Row)
        .Cells(UBound(A) + 3, 1).Select
    End With

    With ActiveSheet.Shapes.AddChart
        .Chart.ChartType = xlXYScatter
        .Left = 200: .Top = 70: .Width = 480: .Height = 320
        For j = 1 To UBound(A, 2) - 1 Step 2
            s = s + 1
            .Chart.SeriesCollection.NewSeries
            .Chart.SeriesCollection(s).XValues = Application.Index(A, 0, j)
            .Chart.SeriesCollection(s).Values = Application.Index(A, 0, j + 1)
            .Chart.SeriesCollection(s).Name = Left(Cells(1, j), 3)
            .Chart.SeriesCollection(s).MarkerStyle = 8
            .Chart.SeriesCollection(s).Format.Fill.ForeColor.RGB = Cells(1, j).Interior.Color
        Next j
    End With
End Sub