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

[µo°Ý] ½Ð°Ý VBA Excel ³æ­Ó­¶­±Â^¨ú¸ê®Æ

[µo°Ý] ½Ð°Ý VBA Excel ³æ­Ó­¶­±Â^¨ú¸ê®Æ

¥»©«³Ì«á¥Ñ ·Å°¶µ¾ ©ó 2017-4-2 14:12 ½s¿è

½Ð°Ý¦p¦ó¦bVBA Excel ³æ­Ó­¶­±Â^¨ú¸ê®Æ¡C
»Ý­nÂ^¨ú¤U¹Ï¥Ü¤ºªº¬õ¦â®Ø°_ªº¤º®e¡A¨ä¥L¤º®e³£»Ý­n§R°£±¼¡C
¹Ï¥Ü¤º¬õ¦â¼Ð¥Ü¸ê®Æ¡A³æ­Ó­¶­±¤U­±ÁÙ¦³´X¦Ê­Ó¡A¨C­Ó¦æ¼Æ³£·|¤£¦P¡A1~25¦æ³£¦³¥i¯à¡AÀH¾÷ªº¡C
¥u­n¬O¬õ¦â®Ø°_ªº³oºØ¸ê®Æ¦æ¼Æ¡A½ÐÀ°¦£¨ó§U´£¨Ñµ{¦¡½X¡A¬Ý¥i§_¥ÎVBA¦Û°Ê¾ã¦XÂ^¨ú¨ì³æ­Ó¸ê®Æ­¶­±¡A«D±`·PÁ¡C

¥»©«³Ì«á¥Ñ ·Å°¶µ¾ ©ó 2017-4-2 14:21 ½s¿è

¤j®a©êºp¡A¸É¥R¤@¤U¡A´N¬O¥u­nA©MBÄæ¦ì¤Uªº¬õ¦â®Ø°_ªº¦C¦ìªº¸ê®ÆÂ^¨ú¾ã¦X¦b³æ­Ó­¶­±¡C ÁÂÁÂ~

TOP

¦^´_ 1# ·Å°¶µ¾

°Ñ¦Ò°Ñ¦Ò¡A¦Û¦æ­×§ï¤~·|¶i¨B
  1.     Sub Ex()
  2.         Dim Rng As Range
  3.         Set Rng = Range("A1:D10") '«ü©wªº½d³ò
  4.         'Set Rng = Selection      '·Æ¹«¿ï©wªº½d³ò
  5.         Rng.CopyPicture
  6.         With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '·s¼W ¹Ïªí
  7.             .Chart.Paste                                           '¶K¤W ¹Ï¤ù
  8.             .Chart.Export Filename:="e:\Test.gif"                  '¶×¥X ¹Ï¤ù
  9.             .Delete                                                '§R°£ ¹Ïªí
  10.         End With
  11.     End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# joey0415


    «e½ú¡AÀ°À°¦£§a¡A§Ú·s¤â¡A¸Õ¤F«Ü¤[ÁÙ¬O¤£¦æ¡A½ÐÀ°¦£¸Ñ´b¤@¤U¡C  ¥u»Ý­n§â¶À¦â¼Ð¥Ü°_¨Óªº¼Æ­È¡A°µ¥­§¡¦Ó¤w¡A³Â·ÐÀ°À°¦£¡C VBA_select.rar (28.92 KB)

TOP

¦^´_ 1# ·Å°¶µ¾


    «e½ú­Ì¡A§Ú·s¤â¡A½ÐÀ°¦£¸Ñ´b¤@¤U¡C  ¥u»Ý­n§âªþ¥ó¶À¦â¼Ð¥Ü°_¨Óªº¼Æ­È(¶À¦â¼Ð¥Üªº¼Æ­È¡AÄæ¦ì¤£·|ÅÜ¡A¦ý¦C¼Æ·|Åܦh©ÎÅܤÖ)¡A¦A§â¶À¦â¼Æ­È²Î¦X­pºâ°_¨Ó°µ¥­§¡¡A³Â·Ð¤F¡C VBA_select.rar (28.92 KB)

TOP

¦^´_ 5# ·Å°¶µ¾


   

TOP

¥»©«³Ì«á¥Ñ ·Å°¶µ¾ ©ó 2017-4-4 01:03 ½s¿è

¦^´_ 6# joey0415


    hi Joey «e½ú¡Asorry , §Ú±Ô­z¿ù»~¡A§Ú¬O·QÅý¶À¦â¼Ð¥Üªº¦a¤è(¥»¨Óªº¸ê®Æ¶À¦â¸ê®Æ·|¤À´²¦b«Ü¦h¬q¸¨¡A¥»¨­¨S¦³³s±µ)¡A³£©ñ¸m¦b¤@Ä椺¡AµM«á­pºâ¨ä¾ãÄ業§¡¼Æ­È©M­p¼Æ¦³¦h¤Ö¦C¡C³Â·Ð±zÀ°¦£«ü¾É¡AÁÂÁ¡C

VBA_select.rar (14.05 KB)

TOP

¦^´_ 7# ·Å°¶µ¾
  1.     Sub Ex()
  2.         ­Ó¼Æ = Cells(Rows.Count, 2).End(xlUp).Row '­pºâbÄæªø«×
  3.         
  4.         ¥­§¡ = Application.Average(Range("b1:b" & ­Ó¼Æ))
  5.         Stop
  6.     End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# joey0415


    ÁÂÁ«ü¾É³á¡A§Ú¬ã¨s¤@¤U¡C

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD