折线图~~~~求助各位大神

haoliyounana

麻烦各位大神这个折线图怎么做  实在是做不出来了.........

LWJ1991

超级菜鸟一枚，不知道是不是要做成这样

erpan

看看是不是这个模式

bymei

各位商手，请教一下，
Sub aa()
    Dim i%, mychart As Chart, icount%, j%
    Set mychart = ActiveSheet.ChartObjects(1).Chart
    For j = mychart.SeriesCollection.Count To 1 Step -1
        mychart.SeriesCollection(j).Delete
    Next j
    For i = 1 To Range("b65536").End(xlUp).Row
        If Cells(i, 2) = True Then
            icount = icount + 1
            mychart.SeriesCollection.NewSeries
            With mychart.SeriesCollection(icount)
                .XValues = ActiveSheet.Range("e" & i, "ah" & i)
                .Values = ActiveSheet.Range("e" & i + 1  "ah" & i + 1 )
                .Name = ActiveSheet.Cells(i + 1, 3)
            End With
        End If
    Next i
End Sub

bymei

上面这个宏我现在想再增加取数的值见附件

bymei

现在想在图表上面增加每个产品增加一行数据，请问各位高手应该编制宏