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

[µo°Ý] ½Ð°Ý¦p¦óÀHªí¤º¼Æ­ÈÅܰʮɡA¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Ø­È

[µo°Ý] ½Ð°Ý¦p¦óÀHªí¤º¼Æ­ÈÅܰʮɡA¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Ø­È

½Ð°Ý¦U¬°±M®a¡G
(¹Ï2)¸Ìªº®y¼Ð¨è«×(¹Ï3)¡A¦p¦óÀH­pªí¤º(¹Ï1)¼Æ­ÈÅܰʮɡA¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Ø­È
          ³Ì¤p­È¡G°Ñ·Ó(¹Ï1)ªº(B114Àx¦s®æ)¡A¦ì¸m·|ÅÜ°Ê
         ³Ì¤j­È¡G°Ñ·Ó(¹Ï1)ªº(B98Àx¦s®æ)¡A¦ì¸m·|ÅÜ°Ê
         ¥D­n¨è«×¶¡¶Z¡G°Ñ·Ó(¹Ï1)ªº(I4Àx¦s®æ)¡A¦ì¸m ¤£·|ÅÜ°Ê
         Ãþ§OX¶b¬Û¥æ©ó¡G°Ñ·Ó(¹Ï1)ªº(B108Àx¦s®æ)¡A¦ì¸m¤£·|ÅÜ°Ê

¥tªþ¤WÀɮ׽бM®aÀ°¦£¡AÁÂÁ±z!



­p¹ºªí.rar (555.94 KB)
1.jpg
2014-6-9 13:43
2.jpg
2014-6-9 13:44
3.jpg
2014-6-9 13:44
peter460191

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-12 09:25 ½s¿è

¦^´_ 1# peter460191
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. ' Sheet6("¤u§@»ù¦ì¨«¶Õ¹Ï")¤u§@ªí¼Ò²Õªºµ{¦¡½X
  3. Private Sub Worksheet_Calculate()   '¤u§@ªí¤¤Àx¦s®æ¤½¦¡­È¦³Åܰʪº¹w³]¨Æ¥ó
  4.     ¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Øªº­È
  5. End Sub
  6. Private Sub Worksheet_Change(ByVal Target As Range) '¤u§@ªí¤¤Àx¦s®æ­È¦³Åܰʪº¹w³]¨Æ¥ó
  7.     ¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Øªº­È
  8. End Sub
  9. Private Sub ¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Øªº­È()
  10.    If [count(Sales)] > 0 Then
  11.         With ChartObjects(1).Chart.Axes(xlValue)
  12.             .MinimumScale = [min(Sales)]  '¼Æ­È¦Cªº³Ì¤p­È
  13.             .MaximumScale = [max(Sales)]  '¼Æ­È¦Cªº³Ì¤j­È
  14.             ' ** [ ¬¡­¶Ã¯ªº¨ç¼Æ¤½¦¡ ] *** ¤£¥i¥ÎÅܼÆ
  15.             .MinorUnit = 1
  16.             .MajorUnit = 1
  17.             .CrossesAt = ([min(Sales)] + [max(Sales)]) / 2
  18.             'CrossesAt ¶Ç¦^©Î³]©w¼Æ­È®y¼Ð¶b¤W»PÃþ§O®y¼Ð¶bªº¥æÂI¡C¶È®M¥Î¦Ü¼Æ­È®y¼Ð¶b
  19.         End With
  20.     End If
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


     «D±`ÁÂÁÂGBKEE¶W¯Åª©¤j
     §Ú»°§Ö¨Ó¸Õ¸Õ¬Ý¡C
     ÁÂÁ±z !
peter460191

TOP

¦^´_ 2# GBKEE


    ½Ð°ÝGBKEEª©¤j

¤£¦n·N«ä!¸Õ¤F¦n¦h¦¸¡A³£¨S¤ÏÀ³¡A·Q½Ð±ÐGBKEEª©¤j­n¦p¦ó¨Ï¥Î¡H
peter460191

TOP

¦^´_ 4# peter460191
§A¤u§@ªí¤W¦³¦WºÙ©w¸q Sales ³o½d³ò¤º±q¤W¦Ó¤Uªºµ¹¸ê®Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


    GBKEEª©¤j¡A¤£¦n·N«ä¡I
   ªì¾ÇVBA¡A¤£¤Ó¤F¸Ñ±zªº·N«ä¡A¤è«K¦A²Ó³¡«ü¾É¶Ü?
    ©ç¶Õ°Õ!ÁÂÁ±z!
peter460191

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-17 13:22 ½s¿è

¦^´_ 6# peter460191

   
§A¤u§@ªí¤W¦³¦WºÙ©w¸q Sales ³o½d³ò¤º±q¤W¦Ó¤Uªºµ¹¸ê®Æ

¨ì¤u§@ªí«ü¥O ´¡¤J-> ¦WºÙ->©w¸q
¬Ý¬Ý½d³ò¦b­þ¸Ì


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

TOP

¦^´_ 7# GBKEE


    GBKEEª©¤j¡A¤£¦n·N«ä¡I§ÚÀ´±zªº·N«ä¤F¡A¦ý¬O§Ú·Q­nªº­È¬O¥t¤@±i¤u§@ªíªº¥|­Ó­È(¨ä¤¤2­Ó©T©w¡A2­ÓÅÜ°Ê¡F­YÅܰʭȤ£¦æ¡A4­Ó©T©w¤]¥i¥H)¡A¤£ª¾³o¼Ëµ{  
    ¦¡­n¦p¦ó¼g¡HÁÂÁ±z¤F!

         (ªí2-»ù¦ì¨«¶Õ¹Ï)¸Ìªº®y¼Ð¨è«×¡A¦p¦óÀH­pªí¤º(ªí1-­p¹ºªí(¥DÀÉ))¼Æ­ÈÅܰʮɡA¦Û°ÊÅܧó(ªí2-»ù¦ì¨«¶Õ¹Ï)¹Ïªí®y¼Ð¨è«×¤Ø­È
          ³Ì¤p­È¡G°Ñ·Ó(ªí1-­p¹ºªí(¥DÀÉ))ªº(B114Àx¦s®æ)¡A¦ì¸m·|ÅÜ°Ê¡A
          ³Ì¤j­È¡G°Ñ·Ó(ªí1-­p¹ºªí(¥DÀÉ))ªº(B98Àx¦s®æ)¡A¦ì¸m·|ÅÜ°Ê
          ¥D­n¨è«×¶¡¶Z¡G°Ñ·Ó(ªí1-­p¹ºªí(¥DÀÉ))ªº(I4Àx¦s®æ)¡A¦ì¸m ¤£·|ÅÜ°Ê
          Ãþ§OX¶b¬Û¥æ©ó¡G°Ñ·Ó(ªí1-­p¹ºªí(¥DÀÉ))ªº(B108Àx¦s®æ)¡A¦ì¸m¤£·|ÅÜ°Ê
peter460191

TOP

¦^´_ 8# peter460191
2# ¤§«eªº  Sheet6("¤u§@»ù¦ì¨«¶Õ¹Ï")¤u§@ªí¼Ò²Õµ{¦¡½X­n§R±¼
¬O³o¼Ë¶Ü
  1. ' Sheet3("­p¹ºªí(¥DÀÉ)")¤u§@ªí¼Ò²Õªºµ{¦¡½X
  2. Private Sub Worksheet_Calculate()   '¤u§@ªí¤¤Àx¦s®æ¤½¦¡­È¦³Åܰʪº¹w³]¨Æ¥ó
  3.     ¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Øªº­È
  4. End Sub
  5. Private Sub Worksheet_Change(ByVal Target As Range) '¤u§@ªí¤¤Àx¦s®æ­È¦³Åܰʪº¹w³]¨Æ¥ó
  6.     ¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Øªº­È
  7. End Sub
  8. Private Sub ¦Û°ÊÅܧó¹Ïªí®y¼Ð¨è«×¤Øªº­È()
  9.     With Sheets("»ù¦ì¨«¶Õ¹Ï").ChartObjects(1).Chart.Axes(xlValue)
  10.         .MinimumScale = [min(B109:B116)]  '¼Æ­È¦Cªº³Ì¤p­È :¦ì¸m·|ÅÜ°Ê(¨ú½d³ò¤ºªº³Ì¤p­È)
  11.         .MaximumScale = [max(B98:B107)]   '¼Æ­È¦Cªº³Ì¤j­È :¦ì¸m·|ÅÜ°Ê(¨ú½d³ò¤ºªº³Ì¤j­È)
  12.         ' ** [ ¬¡­¶Ã¯ªº¨ç¼Æ¤½¦¡ ] *** ¤£¥i¥ÎÅܼÆ
  13.         '.MinorUnit = 1
  14.         .MajorUnit = [I4]    '¦ì¸m·|©T©w
  15.         .CrossesAt = [B108]  '¦ì¸m·|©T©w
  16.         'CrossesAt ¶Ç¦^©Î³]©w¼Æ­È®y¼Ð¶b¤W»PÃþ§O®y¼Ð¶bªº¥æÂI¡C¶È®M¥Î¦Ü¼Æ­È®y¼Ð¶b
  17.         End With
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


«D±`ÁÂÁÂGBKEE¶W¯Åª©¤j
´N¬O³o¼Ëªº®ÄªG¡A±z¯u¬O¼F®`
­n¦n¦n¨Ó¾Ç¾Ç
ÁÂÁ±z !
peter460191

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD