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

[µo°Ý] °õ¦æ³t«×®t²§

[µo°Ý] °õ¦æ³t«×®t²§

½Ð°Ý¦U¦ì¤j¤j

§Ú³Ìªñ±`§â¨ç¼Æ¥[¤JVBA»yªk¤¤

¥Ø«e§Ú°µªk¦³¨âºØ¼gªk

1.  Range("B2").FormulaR1C1 =...... ³oºØ°µªk(¥D­n¬O¥Î¿ý»s¥¨¶°¾Ç¨Óªº «¢«¢)

2.  Application.VLookup(.....)     

²Ä1ºØ¦n¹³´N¸òª½±µ¦b¤u§@ªí¾Þ§@¨ç¼Æ¤@¼Ë¡A·|¦³¤½¦¡¦s¦b
²Ä2ºØµ²ªG¬O¤@¼Ë¡A¦ýª½±µ¬O­È§a?
(§Ú¥Î¤èªk1¸I¤W¤jµ§¸ê®Æ¡A·|¥u°µ²Ä¤@­ÓÀx¦s®æ¡A¦A¥Îfilldownªº¤è¦¡¤U©Ô¡C¤èªk2§Ú¬O·|¥ÎFOR°j°é¥Ñ¤W©¹¤U¶])
¤£ª¾¥H¤W³o¨âºØ¤è¦¡­þ­Ó¤ñ¸û§Ö³t¡A¾A¦X¤jµ§¸ê®Æ¨Ï¥Î
EX:
Formulaªº°µªk(¥ý¥Î²Ä¤@Äæ¡A¦AFillDown)
Range("I2").FormulaR1C1 = "=VLOOKUP(LEFT(RC[-5],2),other!C[1]:C[2],2,0)"
Range("I2:I" & material_rows).FillDown

Applicationªº°µªk(¥ÎFor°j°é¤@­Ó­Ó¶])
Application.VLookup(.Range("E" & i), Workbooks(fs).Worksheets(1).Range("E:AE"), 27, 0)


ÁÙ¬O¥t¦³¨ä¥L¤è¦¡¥i¥H¾Þ§@


ÁÂÁ   :   )
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¦^´_ 1# li_hsien
  1. Sub Ex()
  2.     With ActiveSheet.[C:C]  'CÄæ
  3.         .Cells = "=RC[-2]+RC[-1]"  '=AÄæ+BÄæ ªº¤½¦¡
  4.         '.Cells = .Value            '¤½¦¡Âন­È
  5.         '¤½¦¡Âন­È ÀuÂI:¦sÀɮɴî¤Ö°O¾ÐÅé
  6.         '¤½¦¡Âন­È ¯ÊÂI:¤½¦¡°Ñ·ÓªºÀx¦s®æ¦³§ïÅܵLªk¥ß§Y§ó·s
  7.     End With
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

·Óª©¤jªº·N«ä¬O«ü

¥Î­Èªº¤è¦¡µ{¦¡°õ¦æ®É·|¤ñ¸û§Ö³t¶Ü???
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD