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

¦³ÃöVlookupªº¥Îªk

¦³ÃöVlookupªº¥Îªk

¦U¦ì«e½ú¦n
¨Ï¥ÎVlookupªº®É­Ô¸I¨ì¤@­Ó°ÝÃD

¸ê®Æ§¨·í¤¤¦³¦U¤½¥qªº°]³ø¡A¶}±Ò¤@­ÓÀÉ®×·QÂ^¨ú¦U¤½¥q°]³ø¤¤ªº³¡¤À¸ê°T


µ{¦¡½X¦pªþÀÉ¡A§ÚÁ`¦@¸Õ¤FA~D¦@4ºØ¤èªk¡A«e¨âºØ¥i¦æ¡A«á¨âºØ¤£¥i¦æ
  1. Private Sub CommandButton1_Click()

  2.     Dim StartTime, LastRow
  3.     StartTime = Timer
  4.     LastRow = Sheets(1).Range("A2").End(xlDown).Row '§ä¥X³Ì«á¤@µ§¸ê®Æ
  5.     Application.ScreenUpdating = False
  6.    
  7.     For i = 2 To LastRow
  8.         
  9.         Dim A
  10.             A = Range("A" & i).Value      
  11.             Workbooks.Open Filename:="C:\Users\KT\Documents\2014_backup\KT\§ë¸ê²z°]\Excel¤ÀªR¼Ò²Õ\" & A & "©u³ø.xlsx", UpdateLinks:=False, ReadOnly:=True

  12.         '¤èªkA «ü©wÀx¦s®æ
  13.                  Range("E" & i).FormulaR1C1 = "=[" & A & "©u³ø.xlsx]ISQ!R4C2"
  14.         
  15.         '¤èªkB VLookup
  16.             
  17.                     Range("E" & i).FormulaR1C1 = "=VLOOKUP(R[-" & i - 1 & "]C,[" & Range("A" & i).Value & "©u³ø.xlsx]ISQ!R1C1:R52C9, 2, FALSE)"
  18.        
  19.         '¤èªkC  --> ¤£¥i¦æ, Åã¥Ü¿ù»~'1004' À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

  20.                 Range("E2").FormulaR1C1 = _
  21.                         "=VLOOKUP(R[-1]C,[1101©u³ø.xlsx]ISQ!$A$1:$J$58,2,FALSE)"
  22.            
  23.         '¤èªkD  --> ¤£¥i¦æ, ½sĶ¿ù»~ ¥²¶·¬O³¯­z¦¡ªºµ²§À

  24.                 Range("E" & i).FormulaR1C1 = "=VLOOKUP(Range("E2").value,[" & Range("A" & i).Value & "©u³ø.xlsx]ISQ!R1C1:R52C9, 2, FALSE)"
  25.                                                  
  26.          Windows(A & "©u³ø.xlsx").Close
  27.          
  28.     Next i
  29.    
  30.     Application.ScreenUpdating = True
  31.     EndTime = Timer
  32.     MsgBox "¥»¦¸¤U¸ü¦@ªá¶O¡G" & EndTime - StartTime & "¬í"

  33. End Sub
½Æ»s¥N½X
·Q½Ð«e½ú«ü¾É¬°¦ó¤èªkC»PD·|µo¥Í¿ù»~
ÁÂÁÂ

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2014-2-12 19:49 ½s¿è

¦^´_ 1# bulletin
C :
¬O¦]¬°Àx¦s®æªº¦ì¸m¥i¥H¦³¨âºØªí¥Ü¤èªk¡A¤@ºØ¬O±`¨£ªºA1¼Ë¦¡¡A¤@ºØ¬OR1C1¼Ë¦¡
¨Ï¥ÎFormulaR1C1«ü©w¤½¦¡®É»Ý­n¥ÎR1C1¼Ë¦¡
¨Ï¥ÎFormula«ü©w¤½¦¡ ¤~¬O¥ÎA1¼Ë¦¡
¿ù¦b Range("E2").FormulaR1C1 = "=VLOOKUP(R[-1]C,[1101©u³ø.xlsx]ISQ!$A$1:$J$58,2,FALSE)"

D :
§A¨S§ËÀ´¦r¦ê¡A§A­nªºÀ³¸Ó¬O³o¼Ë§a...
"=VLOOKUP(""" & Range("E2").value & """,[" & Range("A" & i).Value & "©u³ø.xlsx]ISQ!R1C1:R52C9, 2, FALSE)"

ÂŦâ¬O¤å¦r¦r¦ê¡A¥Nªíªº¬OÂù¤Þ¸¹¤ºªº¤å¦r¡A¤å¦r¦r¦ê¤ºªºÂù¤Þ¸¹­n¥Î¨â­ÓÂù¤Þ¸¹¥N´À
ºñ¦â¬OVBAªº»yªk¡A¨ú¦^Àx¦s®æ¤º®e
µM«á¥Î & §â¦U­Ó³¡¤Àµ²¦X°_¨Ó¦¨¬°¤@­Ó¦r¦ê

TOP

¦^´_ 2# stillfish00


¦hÁ±zªº«ü±Ð
¾Ç¨ì«Ü¦h°Ú!!
ªGµM¥i¥H¨Ï¥Î¤F
ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD