ReDim Xdata(1 To 8, 1 To 7) As Variant
Xdata(1, 2) = "第一外贸"
Xdata(1, 3) = "航空"
Xdata(1, 4) = "Test 3"
Xdata(1, 5) = "Test 4"
Xdata(1, 6) = "Test 5"
Xdata(1, 7) = "合适软件"
'以上是图例的标示,你可动态添加Xdata(2, 1) = "1 月"
Xdata(2, 2) = 50
Xdata(2, 3) = 20
Xdata(2, 4) = 30
Xdata(2, 5) = 150
Xdata(2, 6) = 100
Xdata(2, 7) = 40Xdata(3, 1) = "2 月"
Xdata(3, 2) = 60
Xdata(3, 3) = 50
Xdata(3, 4) = 40
Xdata(3, 5) = 30
Xdata(3, 6) = 20
Xdata(3, 7) = 1.25PsBar1.Value = PsBar1.Value + 10
Xdata(4, 1) = "3 月"
Xdata(4, 2) = 160.5
Xdata(4, 3) = 160.2
Xdata(4, 4) = 160.3
Xdata(4, 5) = 160
Xdata(4, 6) = 160
Xdata(4, 7) = 160
Xdata(5, 1) = "4 月"
Xdata(5, 2) = 60
Xdata(5, 3) = 260
Xdata(5, 4) = 160
Xdata(5, 5) = 180
Xdata(5, 6) = 190
Xdata(5, 7) = 10.2
Xdata(6, 1) = "5 月"
Xdata(6, 2) = 60
Xdata(6, 3) = 26
Xdata(6, 4) = 16
Xdata(6, 5) = 18
Xdata(6, 6) = 19
Xdata(6, 7) = 102
Xdata(7, 1) = "6 月"
Xdata(7, 2) = 600
Xdata(7, 3) = 60
Xdata(7, 4) = 260
Xdata(7, 5) = 380
Xdata(7, 6) = 90
Xdata(7, 7) = 108
Xdata(8, 1) = "7 月"
Xdata(8, 2) = 60
Xdata(8, 3) = 260
Xdata(8, 4) = 160
Xdata(8, 5) = 180
Xdata(8, 6) = 190
Xdata(8, 7) = 10.2
MSChart1(0).ChartData = Xdata