高手请留步

Question

如下表：
折扣          产品       
月份          MP3     U盘    硬盘
2008-01       70      10      15
2008-02       60      10      20
2008-03       70      20      30
2008-04       80      25      25
excel生成饼图，我要生成3份，维分别维MP3,U盘，硬盘，有什么办法？

Answer 1

你自己把这些数据填入Excel中再动动鼠标就可以生成了。

Answer 2

楼主先在EXCEL中录制宏,然后看看生成的代码就知道了

Answer 3

Sub CreateChart()
'
    Dim objChart As Chart, objSheet As Worksheet
    Dim i&, strData$, strTitle$    ' 假设数据区在: 工作表Sheet1，单元格[B3:D6]
    strData = "A3:A6"
    strTitle = "MP3;U盘;硬盘"
    Set objSheet = Sheets(1)
    For i = 0 To 2
        Set objChart = Charts.Add
        With objChart
            .ChartType = xl3DPie
            .SetSourceData objSheet.Range(Replace(strData, "A", Chr$(66 + i))), xlColumns
            .HasTitle = True
            .ChartTitle.Characters.Text = Split(strTitle, ";")(i)
            .Location xlLocationAsObject, objSheet.Name
            objSheet.Shapes(i + 1).Top = i * 260 + 150
        End With
    NextEnd Sub

Answer 4

可以做成动态的图表！Excel动态图表