¹Ïªíªº¸ê®Æ½d³ò³]©w

hugh0620

¦U¦ì¤j¤j¡A½Ð±Ð¤@¤U¡G
       ©Ò»Ýªº¹Ïªí¬O¦³2­Ó¸ê®Æ½d³ò¡A¥B³o­Ó¸ê®Æªº½d³ò·|ÀHµÛ»Ý¨D¸ê®Æ·|¦³ÅÜ°Ê¡A
       ¦³°Ñ·Ó¹L®ÑÄy¤Î¯¸¤º©«¤l¡A
       ®ÑÄyªº¤¶²Ð¬O¨Ï¥ÎSetSourceDataªº»yªk¨Ó¼¶¼g
       Ex.
            ActiveChart.SetSourceData Source:=ActiveSheet.Range("A2:D6"), PlotBy:=xlColumns
           ¬Ý°_¨Ó¬O°w¹ï³æ¤@ªº¸ê®Æ½d³ò³]©w¡A¦pªG§Ú¦³2­Ó¸ê®Æ½d³òªº¸Ü¡A§Ú¸Ó¦p¦ó¼¶¼g¡C
       ¤]¦³§Q¥Î¿ý»s¥¨¶°ªº¤è¦¡
       .SeriesCollection.NewSeries
       .FullSeriesCollection(1).Name = "=""´`Àô®É¶¡"""
       .FullSeriesCollection(1).Values = "='LBF-B'!$L$22:$BJ$22"
       .SeriesCollection.NewSeries
       .FullSeriesCollection(2).Name = "=""¥­§¡®É¶¡"""
       .FullSeriesCollection(2).Values = "='LBF-B'!$L$98:$AW$98"
       ³o¼Ëªº¼gªk¬O¤@­Ó©T©w¸ê®Æ½d³òªº¤è¦¡¡A¤]¤£¬O«Ü¾A¦X»Ý¨D¡C

       ½Ð¤j¤j«üÂI¤@¤U¡C

hugh0620

·PÁ¦^ÂСA¤w¸g¦Û¦æ±Æ°£°ÝÃD¡C

¼gªk¦p¤U

     .SeriesCollection.NewSeries
     .FullSeriesCollection(1).Name = "=""´`Àô®É¶¡"""
     .FullSeriesCollection(1).Values = ¤u§@ªí5.Range(Cells(22, 12), Cells(22, A + 8)) '"='LBF-B'!$L$22:$BJ$22"
     .SeriesCollection.NewSeries
     .FullSeriesCollection(2).Name = "=""¥­§¡®É¶¡"""
     .FullSeriesCollection(2).Values = ¤u§@ªí5.Range(Cells(23, 12), Cells(23, A + 8)) '"='LBF-B'!$L$98:$AW$98"

hugh0620

Dear ¤j¤j
          ÁÙ¬O¦P¼Ëªº°ÝÃD¡A§Úªº¹q¸£¬OEXCEL 2013¡A°õ¦æ¤W¡A¨S¦³°ÝÃD¡C
          ¦b¦P¨Æªº¹q¸£EXCEL 2007¡A´N·|²£¥Í¤U¹Ï³o¼Ëªº°ÝÃD¡C
          ¨D±Ï¤j¤j¡A¸Ó¦p¦ó­×§ï¡C

¤U¸ü (100.62 KB)

2016-3-28 19:09

1.      '=====»s§@¹Ïªí¤¤¥­§¡­È=====
   
2. '     With ActiveChart
   
3. '     '========================================================
   
4. '     .SeriesCollection.NewSeries
   
5. '     .FullSeriesCollection(1).Name = "=""´`Àô®É¶¡"""
   
6. '     .FullSeriesCollection(1).Values = ¤u§@ªí5.Range(Cells(22, 12), Cells(22, A + 8)) '"='LBF-B'!$L$22:$BJ$22"
   
7. '     .SeriesCollection.NewSeries
   
8. '     .FullSeriesCollection(2).Name = "=""¥­§¡®É¶¡"""
   
9. '     .FullSeriesCollection(2).Values = ¤u§@ªí5.Range(Cells(23, 12), Cells(23, A + 8)) '"='LBF-B'!$L$98:$AW$98"
   
10. '     .FullSeriesCollection(1).ChartType = xlColumnClustered
    
11. '     .FullSeriesCollection(1).AxisGroup = 1
    
12. '     .FullSeriesCollection(2).ChartType = xlLine
    
13. '     .FullSeriesCollection(2).AxisGroup = 1
    
14. '      '==============================================================
    
15. '
    
16. '          '=====ø¹Ï°Ï³]©w====
    
17. '          .SeriesCollection(1).HasDataLabels = True 'ÁôÂîæ½u
    
18. '          .PlotArea.Height = 1000
    
19. '          .PlotArea.Left = 15
    
20. '          .PlotArea.Width = 15.5 + A * 16.5
    
21. '          .PlotArea.Top = 15  '16.102
    
22. '          '=====ø¹Ï°Ï³]©w====
    
23. '
    
24. '          .ChartWizard HasLegend:=False         'ÁôÂùϨÒ
    
25. '          .Axes(xlValue).MajorGridlines.Format.Line.Visible = msoFalse
    
26. '          .ChartGroups(1).GapWidth = 50
    
27. '          If ¤u§@ªí5.Range("AF1") <> "" Or ¤u§@ªí5.Range("AF1") > 10 Then
    
28. '          .Axes(xlValue).MaximumScale = ¤u§@ªí5.Range("AF1")   '¹Ïªí¨è«×³Ì¤j­È
    
29. '          End If
    
30. '          If ¤u§@ªí5.Range("AM1") <> "" Or ¤u§@ªí5.Range("AM1") > 10 Then
    
31. '          .Axes(xlValue).MajorUnit = ¤u§@ªí5.Range("AM1")       '¹Ïªí¶¡¶Zªº¨è«×
    
32. '          End If
    
33. '     End With

½Æ»s¥N½X

d

hugh0620

¦^´_ 4# hugh0620

¥Î2007ª©¥»¿ý»s¥¨¶°¡A­ì¨Ó¥u­n­×§ï»yªk´N¦n¤F

       FullSeriesCollection(1).Name = "=""´`Àô®É¶¡"""

'     .FullSeriesCollection(1).Values = ¤u§@ªí5.Range(Cells(22, 12), Cells(22, A + 8)) '"='LBF-B'!$L$22:$BJ$22"

'     .SeriesCollection.NewSeries

'     .FullSeriesCollection(2).Name = "=""¥­§¡®É¶¡"""

'     .FullSeriesCollection(2).Values = ¤u§@ªí5.Range(Cells(23, 12), Cells(23, A + 8)) '"='LBF-B'!$L$98:$AW$98"

'     .FullSeriesCollection(1).ChartType = xlColumnClustered

'     .FullSeriesCollection(1).AxisGroup = 1

'     .FullSeriesCollection(2).ChartType = xlLine

'     .FullSeriesCollection(2).AxisGroup = 1


      ­×§ï«á
     .SeriesCollection.NewSeries
     .SeriesCollection(1).Name = "=""´`Àô®É¶¡"""
     .SeriesCollection(1).Values = ¤u§@ªí5.Range(Cells(22, 12), Cells(22, A + 8)) '"='LBF-B'!$L$22:$BJ$22"
     .SeriesCollection.NewSeries
     .SeriesCollection(2).Name = "=""¥­§¡®É¶¡"""
     .SeriesCollection(2).Values = ¤u§@ªí5.Range(Cells(23, 12), Cells(23, A + 8)) '"='LBF-B'!$L$98:$AW$98"
     .SeriesCollection(1).ChartType = xlColumnClustered
     .SeriesCollection(1).AxisGroup = 1
     .SeriesCollection(2).ChartType = xlLine
     .SeriesCollection(2).AxisGroup = 1