- ©«¤l
- 145
- ¥DÃD
- 42
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-25
- ³Ì«áµn¿ý
- 2025-2-6

|
½Ð±Ð¦U¦ì°ª¤â¡A§Ú»Ýn±NTOP¨t¦C²£«~ªº¥æ´Á¥t¥~Vlookup¨ìì¨Óªº¸ê®Æ¤º¡A§Ú¬O¥Î¤gªk¿ý»sªº¤è¦¡
Selection.AutoFilter '¿z¿ï
ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
"TOP*"), Operator:=xlFilterValues '¿z¿ï¥X©Ò¦³TOP²£«~
Range("E6").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
Range("E6").Select '±N²Ä¤@ÓTOP¥æ´Á³]©wVlookup¤½¦¡
Selection.FillDown '±N¤½¦¡¤U©Ô½Æ»s¨ì©Ò¦³¿z¿ï¥X¨ÓªºÄæ¦ì
Selection.AutoFilter '±N¿z¿ï¨ú®ø
¦ý¬O...
1.¨C¦¸¿z¿ï«á²Ä¤@ÓTOP²£«~ªº¦ì¸m¤£·|©T©w¦bE6
2.°õ¦æ²Ä¤G¦¸®ÉSelection.FillDownµL®Ä
½Ð¦U¦ì°ª¤â«üÂI¡AÁÂÁ¡I
ESOD_°ÝÃD0906.zip (202.25 KB)
|
|