[已解决]VBA图表问题

namesky1

教，VBA怎么改成如图2显示两条曲线的效果？

最佳答案

月排行榜 / 总排行榜

JX_shangrila

2016-8-5 21:27

Sub 刷新图表()
    Dim i%, mychart As Chart, icount%, j%
    Set mychart = Sheets("Sheet1").ChartObjects(1).Chart
    For j = mychart.SeriesCollection.Count To 1 Step -1
        mychart.SeriesCollection(j).Delete
    Next j
    For i = 2 To Range("b65536").End(xlUp).Row
        If Cells(i, 2) = True Then
            For j = 1 To 2
                icount = icount + 1
                mychart.SeriesCollection.NewSeries
                With mychart.SeriesCollection(icount)
                     If j = 2 Then
                        .XValues = Sheets("Sheet1").Range("f" & 1, "i" & 1)
                        .Values = Sheets("Sheet1").Range("f" & i, "i" & i)
                        .Name = Sheets("Sheet1").Cells(i, 4)
                     Else
                        .XValues = Sheets("Sheet1").Range("f" & 1, "i" & 1)
                        .Values = Sheets("Sheet1").Range("j" & i, "m" & i)
                        .Name = Sheets("Sheet1").Cells(i, 4)
                     End If
                End With
            Next
        End If
    Next i
End Sub

跳转到最佳答案楼层

JX_shangrila

Sub 刷新图表()
    Dim i%, mychart As Chart, icount%, j%
    Set mychart = Sheets("Sheet1").ChartObjects(1).Chart
    For j = mychart.SeriesCollection.Count To 1 Step -1
        mychart.SeriesCollection(j).Delete
    Next j
    For i = 2 To Range("b65536").End(xlUp).Row
        If Cells(i, 2) = True Then
            For j = 1 To 2
                icount = icount + 1
                mychart.SeriesCollection.NewSeries
                With mychart.SeriesCollection(icount)
                     If j = 2 Then
                        .XValues = Sheets("Sheet1").Range("f" & 1, "i" & 1)
                        .Values = Sheets("Sheet1").Range("f" & i, "i" & i)
                        .Name = Sheets("Sheet1").Cells(i, 4)
                     Else
                        .XValues = Sheets("Sheet1").Range("f" & 1, "i" & 1)
                        .Values = Sheets("Sheet1").Range("j" & i, "m" & i)
                        .Name = Sheets("Sheet1").Cells(i, 4)
                     End If
                End With
            Next
        End If
    Next i
End Sub

namesky1

JX_shangrila 发表于 2016-8-5 21:27
Sub 刷新图表()
    Dim i%, mychart As Chart, icount%, j%
    Set mychart = Sheets("Sheet1").ChartO ...

谢谢  很好用