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

[µo°Ý] ¦p¦ó¼gvba§ïÅܹϪí¨è«×

[µo°Ý] ¦p¦ó¼gvba§ïÅܹϪí¨è«×

¤p§Ì¦³¤@¹Ïªí·Q¼gvbaªº¤è¦¡¨Ó«ü©w¦ì¸m¨Ó§ïÅÜ¹Ïªíªº³Ì¤j­È»P³Ì¤p­È
§Ú¸Ó¦p¦ó¼g©O?

°Ý.rar (9.95 KB)

80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¤@¯ë¨Ó»¡Ãþ¦ü§A³o¼Ëªº»Ý¨D.
¨ä¹êExcel¦³´£¨Ñ¤@­Ó¤u¨ã¥i¥HÅý§Ú­Ì«Ü§Öªº±o¨ìÅܧó¬ÛÃö¼Æ¾Úªº«ü¥O,
¨º´N¬O : "¿ý»s·s¥¨¶°", ¥H¤U¬O¿ý»s¥X¨Óªºµ{¦¡¤º®e:
Sub Macro1()
'
' Macro1 Macro
' user ¦b 2011/5/11 ¿ý»sªº¥¨¶°
'
'
    ActiveSheet.ChartObjects("¹Ïªí 9").Activate
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = -1400  '<----- ¹Ïªí¨è«×³Ì¤p­È
        .MaximumScale = -600   '<----- ¹Ïªí¨è«×³Ì¤j­È
        .MinorUnit = 1.8
        .MajorUnit = 100
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

¹Ïªí¤¤ªº¦UºØ¤¸¯À·Q­n«ç»òÅܧ󳣥i¥H¸g¥Ñ¿ý»s§ä¨ìÃöÁäµ{¦¡½X.

TOP

¦]¬°§Úªº¦³³\¦h¦U³W®æ¡A·|¦]¬°§Ú©Ò¿z¿ïªº«~¦WÅܧó³W®æ¡A¨Ï¥Î¥¨¶°¿ý»sªº¤ÆµLªk¹F¨ì§ÚÅܧó³W®æ«á¹Ïªíªº¤W¤U¬É½u¤]¤@¨ÃÅܧó~~¤£ª¾¹D¸Ó¦p¦ó¤~¥iÅý¦o¨Ì·Ó§Ú©Ò«ü©wÄæ¦ì¨ÓÅܧó¤W­­&¤U­­©O?
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-5-16 23:22 ½s¿è

¦^´_ 3# dragonbx

·í§Ú­Ì»Ý­n°w¹ï¦h­Ó¦PÃþ«¬ª«¥ó½á¤©¤£¦Pªº¤¸¯À¤º®e®É,
´N§Ú©Òª¾¦³­Ó¤èªkºâ¬O¤ñ¸û®e©ö¨Ï¥Îªº : ¨Ï¥Î Dictionary ª«¥ó -

¥ý¤À§O¥H "ªí®æ¦WºÙ" ¬°Áä­È¨Ó«Ø¥ß dMin »P dMax ¨â­Ó Dictionary
dMin(ªí®æ¦WºÙ)=¸Ó¹Ïªí¨è«×³Ì¤p­È
dMax(ªí®æ¦WºÙ)=¸Ó¹Ïªí¨è«×³Ì¤j­È
¦p¦¹«h¥i¥Î
.
.
.
  .MinimumScale = dMin(ªí®æ¦WºÙ) »P
  .MaximumScale = dMax(ªí®æ¦WºÙ)
.
.
.
¨Ó¹F¦¨¨Ìªí®æ¦WºÙµ¹­Èªº¥Ø¼Ð
Dictionary¥Îªk¥i°Ñ¦Ò ´M§ä¥¢¸¨ªº®y¼Ð

¥t¥~¥Î°}¦C¤]¥i¥H°µ¨ì, ¥u¬O¦bµ¹­Èªº¹Lµ{¤¤¥i¯à»Ý­n¬ÛÀ³¦h¦¸ Redim ÂX¥R¨ä¤j¤p¤ñ¸ûÁcº¾¤@¨Ç.

TOP

­ì¨Ó¦p¦¹³]©w
ÁÂÁ±zªº¤À¨É

TOP

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD