ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

TOP

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

data.rar (724.13 KB)

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

data2.rar (695.53 KB)

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD