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

¹Ïªí¤é´Á®y¼ÐÃþ§O¦¸§Ç¤ÏÂà°ÝÃD

¹Ïªí¤é´Á®y¼ÐÃþ§O¦¸§Ç¤ÏÂà°ÝÃD

½Ð±Ð¦U¦ì¥ý¶i:
°Ñ¦Òºô¸ô¸ê®Æ·Qø»sªÑ²¼¹Ï»P¦¨¥æ¶q¬ÛÃö¸ê®Æ,§Q¥Îvba¦Û°Ê°õ¦æ
°ÝÃDÂI:
¦¨¥æ¶q¤é´Á®y¼Ð»PªÑ²¼k½u¸ê®Æ¤é´Á®y¼Ð«o¬O¬Û¤Ï(µLªk¤é´Á»Pk½u ¦¨¥æ¶q¬Û¤¬°t¦X)
§Q¥Î¤é´Á®y¼ÐÃþ§O¦¸§Ç¤ÏÂà¸ê®Æ,¥u¯à¤ÏÂà¤@­Ó
½Ð°Ý¦U¦ì¥ý¶i¦p¦ó³B²z
ÁÂÁÂ!

K½u .rar (376.88 KB)

¦^´_ 1# ten999

°Ñ¦Ò¥H¤U§Ú¼gªº³o­Ó½d¨Òªºµ{¦¡½X¤ù¬q¡C
ÃöÁä¦b©ó¹ï¨C­Ó¼Æ¦Cªº¥D¡B°Æ®y¼Ð X¶b ³]©w  .ReversePlotOrder = True¡C
  1.     With ¥x«ü¤f®t¹Ï.Chart
  2.         '³]©w¸ê®Æ¼Æ¦C
  3.         Set ¥x«ü¤f®t_¼Æ¦C = .SeriesCollection.NewSeries
  4.         Set ¥x«ü»ù_¼Æ¦C = .SeriesCollection.NewSeries               
  5.         With ¥x«ü»ù_¼Æ¦C        '³]©w¥x«ü´Á»ù®æ¼Æ¦CÄÝ©Ê
  6.             .ChartType = xlLine         '§é½u¹Ï
  7.             .AxisGroup = xlSecondary    '¼Æ¦Cø»s©ó°Æ®y¶b¤W
  8.         End With
  9.         
  10.         With ¥x«ü¤f®t_¼Æ¦C      '³]©w¥x«ü¤f®t¼Æ¦CÄÝ©Ê
  11.             .ChartType = xlColumnClustered      '¸s²Õªø±ø¹Ï
  12.             .AxisGroup = xlPrimary              'ø»s©ó¥D®y¼Ð¤W
  13.         End With
  14.                               
  15.         With .Axes(xlCategory)     '³]©w®y¼ÐX¶b(®É¶¡¶b)ªºÄÝ©Ê
  16.             .ReversePlotOrder = True                    '¤ÏÂà®y¼Ð¶b¶µ¥Ø
  17.             .CategoryType = xlCategoryScale
  18.             .TickLabels.NumberFormatLocal = "hh:mm"     'Åã¥Ü ®É:¤À
  19.             .TickLabels.Orientation = 90                '¼ÐÅÒ¤å¦rÂà90«×
  20.             .TickLabelPosition = xlTickLabelPositionLow '®y¼Ð¶b¸m©ó¤U¤è
  21.         End With
  22.         
  23.         '³]©w°Æ®y¼ÐX¶bªºÄÝ©Ê (¥x«ü»ù¼Æ¦C -> ®É¶¡®y¼Ð)
  24.         .HasAxis(xlCategory, xlSecondary) = True        '¥²­n³]©w¬° True¤~·|¦³°Æ®y¼ÐX¶bª«¥ó
  25.         With .Axes(xlCategory, xlSecondary)
  26.             .ReversePlotOrder = True                    '¤ÏÂà®y¼Ð¶b¶µ¥Ø
  27.             .MajorTickMark = xlNone                     'hides secondary axis
  28.             .TickLabelPosition = xlNone
  29.         End With
  30.         
  31.         '³]©w°Æ®y¼ÐY¶bªºÄÝ©Ê (¥x«ü¦¨¥æ»ù)
  32.         With .Axes(xlValue, xlSecondary)
  33.            .TickLabelPosition = xlTickLabelPositionLow
  34.            .TickLabels.NumberFormatLocal = "####"
  35.             '.MinimumScale = Round(Application.Min(rng_¥x«ü»ù) * 0.9975, 1)      'Y¶b¤U­­
  36.             '.MaximumScale = Round(Application.Max(rng_¥x«ü»ù) * 1.0025, 1)      'Y¶b¤W­­
  37.         End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD