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

[µo°Ý] ¦X¨Ö¼Æ­Ó¤u§@ﳡ¤ÀÀx¦s®æ¸ê®Æ¦Ü¤@¤u§@襤

[µo°Ý] ¦X¨Ö¼Æ­Ó¤u§@ﳡ¤ÀÀx¦s®æ¸ê®Æ¦Ü¤@¤u§@襤

½Ð°Ý:
      1.¦X¨Ö¼Æ­Ó¤u§@ï(Àɮצì©ó\base\)³¡¤ÀÀx¦s®æ¸ê®Æ¦Ü¤@¤u§@ï(test.xlsm)¤¤¡A¨ä¤¤¶×¤J¸ê®Æ¥H¤u§@ï¹ïÀ³³¡¤ÀÀx¦s®æ¥HÃC¦âªí¥Ü
      ­n«ç»ò°õ¦ætest.xlsm¤¤¤u§@ªí2¤¤ªº"¶×¤J¸ê®Æ"«ö¶s¡A±N¦ì©ó\base\ªºÀɮסA¨Ì¾Ú¤u§@ªí1¤¤ªº¥N¸¹¡A±N¸ê®Æ¦X¨Ö¦Ü¨ä¤¤¡C
      PS:§Ú¹Á¸Õ§Q¥Î¤§«eG¤jÀ°§Úªº¦X¨Ö¼Æ­Ó¤u§@襤¬YÄæ¸ê®Æ¡AÂà¸m¦X¨Ö¦Ü¤@¤u§@諸¦C¦ì¤¤¡A¦ý¦]³o¦¸¸ê®Æ¬°³¡¤ÀÀx¦s®æ¡A¸Õ¼g´ú¸Õ´X¤Ñ¡A¤´µL¸Ñ¡A
           ½Ð«ü±Ð¡C

test.rar (190.41 KB)

¦^´_ 2# GBKEE


        ·PÁÂG¤j¡A§V¤O«÷´êµ{¦¡¡A²×©ó¦¨¥\^^
¥t¥~·Q½Ð°Ý¤@­Ó°ÝÃD:
sub ex()
Application.ScreenUpdating = False

...(§Ú­n«ç»ò¼Ë¦b¤£§ó·s¿Ã¹õ¡A¦ý¬O­n§ó·sÀx¦s®æCells(1,"A")­pºâ¨Ã¥B«ùÄòÅã¥Ü"¥¨¶°"°õ¦æ¶}©l¦Ü²×¤î®É¶¡(¬í)©O??)

Application.ScreenUpdating = False
end sub

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD