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

[µo°Ý] ¬f©Ô¹Ïø»s®É¤§Y¶bÅÜ°Ê°ÝÃD

[µo°Ý] ¬f©Ô¹Ïø»s®É¤§Y¶bÅÜ°Ê°ÝÃD

©óø»s¬f©Ô¹Ï®É¡A
­Y¥H¼Æ¾Ú¦Û°Ê±a¤J§¡»Ý­Ó§O½Õ¾ãY¶b¼Æ­È(³Ì¤j­È)¡A
¬O§_¥i¥Hª½±µ±a¤J¡iC17Àx¦s®æ¡j
©Î¬O¥i¥H±Ä¡iC5:C16¥[Á`¡j¨Ó±a¤J
¥HÅܧó¸Ó¬f©Ô¹Ï¤§Y¶b³Ì¤j­È

¦^´_ 3# f3202


½å«ô¤j¤j¡A
§Ú¸ÕµÛ®M¬Ý¬Ý¡A
¦ý½Õ¾ã¦¬¶°¼Æ­ÈÅÜ°Ê«áÁÙ¬O¨S¦³ÅܤơA
¥i¥H³Â·Ð§A¥Î§Úªºexcel®Mª©¡A
§@(±H)¤@¥÷µ¹§Ú¶Ü??
·P®¦...
¡° SORRY~§Ú¨SÅv­­¶}¤W¶Ç«áªºÀɮסA
     ³Â·Ð§A¤F~ÁÂÁÂ

e-mail¡G[email protected]

TOP

·PÁ½å«ôªº´£¨Ñ¡A
¤p§Ì§Ú¦b¸Õ¬Ý¬Ý§ï¤£§ïªº¦¨¥\¡A
ÁÂÁÂ

TOP

¦^´_ 2# jcsbdsenuj

Sub Macro1()
Range("c1").Value = "=MAX(C5:C16)"

    ActiveChart.Axes(xlValue).Select
    ActiveSheet.ChartObjects("¹Ïªí 1").Activate
    ActiveChart.Axes(xlValue).MinimumScale = 0
    ActiveChart.Axes(xlValue).MaximumScale = Cells(1, 3)
End Sub

TOP

¥»©«³Ì«á¥Ñ jcsbdsenuj ©ó 2015-4-7 00:59 ½s¿è

¦U¦ì¤j¤j­Ì¡A
¥i¯à¬O§Úªº´y­z¤£°÷²M·¡ªºÃö«Y¡A
¦b¦¹¦A¦¸ªþ¤W¤º®e¬ÛÃö¸ê®Æ¡A
Àµ½Ð¦U¦ì¬Û§U¡A
¤£½×¤èªk¬°¦ó¶È»Ý¥i¸Ñ¨M¤p§Ìªº°ÝÃD§Y¥i...
¡i§Æ±æY¶bªº³Ì¤j­È¥i¥H¨Ì§Úªº¼Æ­È¥[Á`§@ÅÜ°Ê¡j
³Â·Ð¤j®a¤F~

¬f©Ô¹Ï.Zip (11.87 KB)

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD