高手请留步,该怎么处理

高手请留步
如下表：
折扣 产品  
月份 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盘，硬盘，有什么办法？

[解决办法]
你自己把这些数据填入Excel中再动动鼠标就可以生成了。。。。
[解决办法]
楼主先在EXCEL中录制宏,然后看看生成的代码就知道了
[解决办法]

VB code

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