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

¦p¦ó«ü©w¹Ïªí¤¤®y¼Ð¶b¿ï¶µ(X¶b&Y¶b)­È

¦p¦ó«ü©w¹Ïªí¤¤®y¼Ð¶b¿ï¶µ(X¶b&Y¶b)­È

½Ð°Ý:
¦p¦ó«ü©w¹Ïªí¤¤®y¼Ð¶b¿ï¶µ(X¶b&Y¶b)³Ì¤p©T©w­È»P³Ì¤j©T©w­È?
¥H¤è«K¬d¬Ý§½³¡¹Ïªí¡C  (´²§G¹Ï)
        X¶b        Y¶b                                                     X¶b             Y¶b
        10        100                ³Ì¤p©T©w­È        13        150
        15        200                ³Ì¤j©T©w­È        55        420
        20        300                               
        22        400                µø»Ý¨D¦Ó¥ô·N³]©w ®y¼Ð¶b¤§¼Æ­È               
        35        500                               
        40        245                               
        33        312                               
        20        188
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¤p§Ì¬O¥Î¥¨¶°¿ý»sªº,±N±z©Ò­n³Ì¤p/³Ì¤j©T©w­È±qªí¤ºª½±µ½á­È§Y¥i
­è¶}©l¤p§Ì¬°¤F¬f©Ô¹Ï¤]¬O¶Ë³z¸£µ¬,±z°Ñ¦Ò¬Ý¬Ý
  1. Private Sub ParetoChScale()
  2. Dim MaxScal As Integer, MajScal As Integer, MinorScal As Integer, MinScal As Integer

  3. MaxScal = Sheets(1).[a1].Value '®y¼Ð¶b¿ï¶µ ³Ì¤j­È
  4. MajScal = Sheets(1).[a2].Value  '®y¼Ð¶b¿ï¶µ ¥D­n¨è«×¶¡¶Z
  5. MinorScal = Sheets(1).[a3].Value  '®y¼Ð¶b¿ï¶µ ¦¸­n¨è«×¶¡¶Z
  6. MinScal = Sheets(1).[a4].Value '®y¼Ð¶b¿ï¶µ ³Ì¤p­È

  7. ActiveSheet.ChartObjects("¹Ïªí 1").Activate
  8.     ActiveChart.Axes(xlValue).Select
  9.     ActiveChart.Axes(xlValue).MaximumScale = MaxScal
  10.     ActiveChart.Axes(xlValue).MinimumScale = MinScal
  11.     ActiveChart.Axes(xlValue).MajorUnit = MajScal
  12.     ActiveChart.Axes(xlValue).MinorUnit = MinorScal
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ alpha ©ó 2013-1-23 21:14 ½s¿è

¦b±zPOST «á9 ¤ÀÄÁ¡AÅý§Ú«Ü¬O³Y²§¡C³o»ò¤[¡A§ÚÁÙ¦b¶Ë¸£µ¬¤´¨S¸Ñ¨M¡C¦]­n¨Æ³B²z¥ý¡A3¤p®É­Ôªº²{¦bÁÂÁ±z¡C®M¥Î¤¤¡C
ÁÂÁ³o­Ó¥­¥x¡AÁÂÁ©Ҧ³¼ö¤ß¤H¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD