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

[µo°Ý] ¨Ï¥Î¥¨¶°§ó·sºô­¶¸ê®Æ

[µo°Ý] ¨Ï¥Î¥¨¶°§ó·sºô­¶¸ê®Æ

¥»©«³Ì«á¥Ñ spermbank ©ó 2011-12-28 01:07 ½s¿è

¤j®a¦n:
        §Úª¾¹Dºô­¶¶×¤J¸ê®Æ¥i¥H§Q¥Î->¥~³¡¸ê®Æ¤º®e½d³ò¡A¨Ó¿ï¾Ü§ó·s®É¶¡¬°1.±Ò¥Î¹õ«á°õ¦æ§ó·s§@·~2.¨C¹jX¤ÀÄÁ§ó·s¤@¦¸3.Àɮ׶}±Ò®É¦Û°Ê§ó·s
°ÝÃD:
        ªþÀɬ°§Ú·Q¨Ï¥Î¤u§@¦C3ªº¥¨¶°«ö¶s«ö¤U«á¥ß§Y§ó·s¤u§@¦C1¡B¤u§@¦C2ªººô­¶¸ê®Æ¨Ã¥BÅã¥Ü§ó·s§¹¦¨°T®§¡A¦Ó¥~³¡¸ê®Æ¤º®e½d³ò¬°»²§U§ó·s¡C
        ­ì¦]¬Oê©ó¥u»Ý­n¨Ï¥Î®É¤~§ó·s¸ê®Æ¡A¥H´î¤Öºô­¶¬y¶q¤Î­Ó¤H»Ý¨D°ÝÃD¡A¦ý¬O¤£ª¾¹D«ç»ò¼g¡AÀµ½Ð¤j¤j«ü±Ð¡C

text.rar (13.75 KB)

¦^´_ 1# spermbank
  1. Option Explicit
  2. Sub Ex()
  3.     With Sheets("¤u§@¦C1").QueryTables(1)   '¦¹¤u§@ªí²Ä1­Ó¬d¸ßªí
  4.         .Refresh 0                           '¬d¸ßªí§ó·s
  5.         .ResultRange.EntireColumn.AutoFit   'Äæ¼e©M¦C°ª½Õ¾ã¬°³Ì¾A·íªº­È¡C
  6.         MsgBox "¤W¥«º¦´T±Æ¦æº] §ó·s§¹¦¨ "
  7.     End With
  8.     With Sheets("¤u§@¦C2").QueryTables(1)
  9.         .Refresh 0
  10.         .ResultRange.EntireColumn.AutoFit
  11.         MsgBox "¤W¥«¶^´T±Æ¦æº]  §ó·s§¹¦¨ "
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ·PÁÂG¤j¡C

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD