½Ð°Ý¦³¤H¦³¥Îvba°µ¹L¤j½Lªºªe¬y¹Ï¶Ü

wufonna

½Ð°Ý¦³¤H¦³¥Îvba°µ¹L¤j½Lªºªe¬y¹Ï¶Ü
¦p¦ó°µ
ÁÂÁÂ:P

wufonna

¥Î¿ý»s¥¨¶°¡A§Ú¥u¥i¦U§O¿ýªÑ»ù¹Ï¡B§é½u¹Ï
½Ð°Ý¦p¦ó°µ¦b¤@°_¡AÁÂÁÂ

wufonna

¨Ò¦pªþ¥ó¤¤ªºÀÉ®×

GBKEE

¦^´_ 3# wufonna
¨Ì§AªþÀÉ©Ò¼gªº,¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim E As Variant
   
3.     Dim Rng(1 To 2) As Range
   
4.     With ¤u§@ªí1                                                                                 '¤u§@ªí (Sheet ª«¥ó)
   
5.         Set Rng(1) = .Range(.[B1], .[B1].End(xlDown)).Resize(, 4)                                '²Ä¤@¹Ïªí¨Ó·½¸ê®Æ½d³ò
   
6.         Set Rng(2) = .Range(.[I1], .[I1].End(xlDown)).Resize(, 4)                                '²Ä¤G¹Ïªí¨Ó·½¸ê®Æ½d³ò
   
7.         .ChartObjects.Delete                                                                     '§R°£©Ò¦³¹Ïªí
   
8.         For Each E In Rng
   
9.           'ChartObjects ¤èªk¡A¸Óª«¥ó¬J¥i¥Nªí³æ¤@¤º´O¹Ïªí (ChartObject ª«¥ó)¡B¤]¥i¥Nªí¤u§@ªí¤W©Ò¦³¤º´O¹Ïªíªº¶°¦X (ChartObjects ª«¥ó)¡C
   
10.           With .ChartObjects.Add(E.Left, E.Top, E.Resize(, 11).Width, E.Resize(15).Height).Chart  'Chart(ª«¥ó)
    
11.                    '·s¼W¹Ïªí Add( ¥ªÃä¦ì¸m , ¤W¤è¦ì¸m , ¹Ïªí¼e«× ,¹Ïªí°ª«× )
    
12.                 .ChartType = xlLine                                                               '«ü©w¹ÏªíÃþ«¬
    
13.                 .SetSourceData E                                                                  '¬°«ü©w¹Ïªí³]©w¨Ó·½¸ê®Æ½d³ò¡C
    
14.                 .SeriesCollection(1).XValues = E.Parent.Range("A2:A" & E.Rows.Count - 1)          'X¶bªº¼ÐÅÒ¦ì¸m
    
15.                 .Axes(xlCategory).TickLabels.NumberFormatLocal = "yyyy/m/d;@"                     'X¶bªº¼ÐÅҼƭȮ榡
    
16.           End With
    
17.         Next
    
18.     End With
    
19. End Sub

½Æ»s¥N½X

wufonna

ÁÂÁÂ GBKEE  ¤j
°õ¦æ«áÁÙ¬O¨â­Ó¹Ïªí
§Æ±æ°õ¦æ«á¹³ img.JPG ³o¼Ë
ÁÂÁÂ

GBKEE

¦^´_ 5# wufonna
¨Ì§AªþÀɪº¸ê®Æ©Ò¼g,¦p¦³¶·¦A­×§ï½Ð¦Û¦æ,¥Î¿ý»s¥¨¶°ªºµ{¦¡½X­×§ï¸Õ¸Õ¬Ý.

1. Sub Ex()
   
2.     Dim E As Variant, I As Integer
   
3.     Dim Rng(1 To 2) As Range
   
4.     With ¤u§@ªí1                                                                                 '¤u§@ªí (Sheet ª«¥ó)
   
5.         Set Rng(1) = .Range(.[B2], .[B2].End(xlDown)).Resize(, 4)                                '²Ä¤@¹Ïªí¨Ó·½¸ê®Æ½d³ò
   
6.         Set Rng(2) = .Range(.[I2], .[I2].End(xlDown)).Resize(, 4)                                '²Ä¤G¹Ïªí¨Ó·½¸ê®Æ½d³ò
   
7.         .ChartObjects.Delete                                                                     '§R°£©Ò¦³¹Ïªí
   
8.           'ChartObjects ¤èªk¡A¸Óª«¥ó¬J¥i¥Nªí³æ¤@¤º´O¹Ïªí (ChartObject ª«¥ó)¡B¤]¥i¥Nªí¤u§@ªí¤W©Ò¦³¤º´O¹Ïªíªº¶°¦X (ChartObjects ª«¥ó)¡C
   
9.         With .ChartObjects.Add(Rng(1).Left, Rng(1).Top, Rng(1).Resize(, 11).Width, Rng(1).Resize(15).Height).Chart  'Chart(ª«¥ó)
   
10.                    '·s¼W¹Ïªí Add( ¥ªÃä¦ì¸m , ¤W¤è¦ì¸m , ¹Ïªí¼e«× ,¹Ïªí°ª«× )
    
11.                 .ChartType = xlLine                                                               '«ü©w¹ÏªíÃþ«¬
    
12.                 '.SetSourceData Union(Rng(1), Rng(2))                                             '¬°«ü©w¹Ïªí³]©w¨Ó·½¸ê®Æ½d³ò¡C
    
13.                 For Each E In Rng(1).Columns                                                      '
    
14.                     .SeriesCollection.NewSeries                                                   '·s¼W¼Æ¦C
    
15.                     I = .SeriesCollection.Count
    
16.                     .SeriesCollection(I).Values = E
    
17.                     .SeriesCollection(I).Name = E.Cells(0).Text
    
18.                 Next
    
19.                 For Each E In Rng(2).Columns
    
20.                     .SeriesCollection.NewSeries
    
21.                     I = .SeriesCollection.Count
    
22.                     .SeriesCollection(I).Values = E
    
23.                     .SeriesCollection(I).Name = E.Cells(0).Text
    
24.                     .SeriesCollection(I).AxisGroup = xlSecondary
    
25.                 Next
    
26.                 .SeriesCollection(1).XValues = Parent.Parent.Range("A2:A" & Rng(1).Rows.Count - 1)          'X¶bªº¼ÐÅÒ¦ì¸m
    
27.                 .Axes(xlCategory).TickLabels.NumberFormatLocal = "yyyy/m/d;@"                     'X¶bªº¼ÐÅҼƭȮ榡
    
28.                   With .Axes(xlValue)             'Y(¥D)®y¼Ð¶b
    
29.                     .MinimumScale = Application.Min(Rng(1))                        '³Ì¤p­È
    
30.                     .MaximumScale = Application.Max(Rng(1))                        '³Ì¤j­È
    
31.                     .MajorUnitIsAuto = True      '¥D­n¨è«×¶¡¶Z=¦Û°Ê³]©w
    
32.                     .MinorUnitIsAuto = True      '¦¸­n¨è«×¶¡¶Z=¦Û°Ê³]©w
    
33.                     .Crosses = xlAutomatic       '®y¼Ð¶b»P¨ä¥L®y¼Ð¶b¥æ¤eªºÂI=¦Û°Ê³]©w
    
34.                     .ScaleType = xlLinear        '¼Æ­È®y¼Ð¶bªº¨è«×Ãþ«¬=xlLinear
    
35.                 End With
    
36.                 With .Axes(xlValue, xlSecondary) 'Y(°Æ)®y¼Ð¶b
    
37.                     .MinimumScale = Application.Min(Rng(2))                        '³Ì¤p­È
    
38.                     .MaximumScale = Application.Max(Rng(2))                        '³Ì¤j­È
    
39.                     .MaximumScaleIsAuto = True
    
40.                     .MajorUnitIsAuto = True
    
41.                     .MinorUnitIsAuto = True
    
42.                     .Crosses = xlAutomatic
    
43.                     .ScaleType = xlLinear
    
44.                 End With
    
45.         End With
    
46.     End With
    
47. End Sub

½Æ»s¥N½X

wufonna

ÁÂÁÂ GBKEE  ¤j
§Ú¦A¬ã¨sµ{¦¡½X¬Ý¬Ý
¤£·|¦A½Ð±Ð¤j¤j
¯uªº«D±`ÁÂÁÂ^0^

wufonna

¦^´_ 1# wufonna


    http://forum.twbts.com/viewthrea ... ra=pageD1#pid118377