¹Ïªí¤é´Á®y¼ÐÃþ§O¦¸§Ç¤ÏÂà°ÝÃD
- ©«¤l
- 38
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2011-7-6
- ³Ì«áµn¿ý
- 2022-3-29
|
¹Ïªí¤é´Á®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)
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-12
- ³Ì«áµn¿ý
- 2013-9-16
|
¦^´_ 1# ten999
°Ñ¦Ò¥H¤U§Ú¼gªº³oÓ½d¨Òªºµ{¦¡½X¤ù¬q¡C
ÃöÁä¦b©ó¹ï¨CӼƦCªº¥D¡B°Æ®y¼Ð X¶b ³]©w .ReversePlotOrder = True¡C- With ¥x«ü¤f®t¹Ï.Chart
- '³]©w¸ê®Æ¼Æ¦C
- Set ¥x«ü¤f®t_¼Æ¦C = .SeriesCollection.NewSeries
- Set ¥x«ü»ù_¼Æ¦C = .SeriesCollection.NewSeries
- With ¥x«ü»ù_¼Æ¦C '³]©w¥x«ü´Á»ù®æ¼Æ¦CÄÝ©Ê
- .ChartType = xlLine '§é½u¹Ï
- .AxisGroup = xlSecondary '¼Æ¦Cø»s©ó°Æ®y¶b¤W
- End With
-
- With ¥x«ü¤f®t_¼Æ¦C '³]©w¥x«ü¤f®t¼Æ¦CÄÝ©Ê
- .ChartType = xlColumnClustered '¸s²Õªø±ø¹Ï
- .AxisGroup = xlPrimary 'ø»s©ó¥D®y¼Ð¤W
- End With
-
- With .Axes(xlCategory) '³]©w®y¼ÐX¶b(®É¶¡¶b)ªºÄÝ©Ê
- .ReversePlotOrder = True '¤ÏÂà®y¼Ð¶b¶µ¥Ø
- .CategoryType = xlCategoryScale
- .TickLabels.NumberFormatLocal = "hh:mm" 'Åã¥Ü ®É:¤À
- .TickLabels.Orientation = 90 '¼ÐÅÒ¤å¦rÂà90«×
- .TickLabelPosition = xlTickLabelPositionLow '®y¼Ð¶b¸m©ó¤U¤è
- End With
-
- '³]©w°Æ®y¼ÐX¶bªºÄÝ©Ê (¥x«ü»ù¼Æ¦C -> ®É¶¡®y¼Ð)
- .HasAxis(xlCategory, xlSecondary) = True '¥²n³]©w¬° True¤~·|¦³°Æ®y¼ÐX¶bª«¥ó
- With .Axes(xlCategory, xlSecondary)
- .ReversePlotOrder = True '¤ÏÂà®y¼Ð¶b¶µ¥Ø
- .MajorTickMark = xlNone 'hides secondary axis
- .TickLabelPosition = xlNone
- End With
-
- '³]©w°Æ®y¼ÐY¶bªºÄÝ©Ê (¥x«ü¦¨¥æ»ù)
- With .Axes(xlValue, xlSecondary)
- .TickLabelPosition = xlTickLabelPositionLow
- .TickLabels.NumberFormatLocal = "####"
- '.MinimumScale = Round(Application.Min(rng_¥x«ü»ù) * 0.9975, 1) 'Y¶b¤U
- '.MaximumScale = Round(Application.Max(rng_¥x«ü»ù) * 1.0025, 1) 'Y¶b¤W
- End With
½Æ»s¥N½X |
|
|
|
|
|
|