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

[µo°Ý] §Ú¦³Ãö©óVlookup ªº°ÝÃD·Q½Ð°Ý

[µo°Ý] §Ú¦³Ãö©óVlookup ªº°ÝÃD·Q½Ð°Ý

§Ú¦³¤@­Óa.xlsx ¸Ì­±¦³Àx¦s®æ¬O¥ÎVlookup¥h°Ñ·Ób.xlsx ªº¸ê®Æ ¦ý¤@¯ë¨Ó»¡ b.xlsx¬O¥t¤@¥x¹q¸£¶}µÛ
¥»¾÷°£¤F¶}a.xlsx¤§¥~¤£·|¦A¶}b.xlsx ¦ý³o¼Ë§Úµo²{¤@­Ó°ÝÃD ¦pªGb.xlsx¸g¥Ñ¥t¤@¥x¹q¸£¥h§ó·s¸ê®Æ
¥»¾÷ºÝ¶}µÛa.xlsx¨ÃµLªk§Y®É§ó·s ½Ð°Ý¦U¦ì¤j¤j ¦³¿ìªk¥i¥H§Y®É§ó·s ©ÎªÌ¬O»s§@vba«ö¶s §ó·s¶Ü?

¥»©«³Ì«á¥Ñ peellau ©ó 2014-3-4 16:39 ½s¿è

¦^´_ 3# owen06

owen06  ±z¦n §Ú¦³¹Á¸Õ§â±zªºµ{¦¡½X¶K¤W¥h
THISWORKBOOK:
Private Sub Workbook_Open()
Call "§ó·s"
End Sub

MODULE1:

Sub §ó·s()
T1 = Now + TimeSerial(0, 0, 1)
Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False
Application.OnTime T1, "§ó·s"
End Sub

¦ý·|¥X²{À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~@@ ¤£ª¾¹D³o¬O¤°»ò°ÝÃD ¹Á¸Õ¥Î©_¥L¤èªk¤]·|³o¼Ë
°»¿ù¬O«ü¦V³o¦æ Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD