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

¥¨¶°¤½¦¡¤¤ ¿z¿ï«á ¦X¨Ö¥k¦C

¥¨¶°¤½¦¡¤¤ ¿z¿ï«á ¦X¨Ö¥k¦C

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2014-1-11 00:10): ½ÐªþÀÉ®×»¡©ú

½Ð°Ý¦U¦ì¥ý¶i

¥¨¶°¤½¦¡¤¤

¿z¿ï«á

¦p¦ó±N ¿z¿ï«á ªº¼Æ­È ¦X¨Ö¥k¦CÀx¦s®æ?

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2014/1/11 10:33): ±NexcelÀÉ©ñ¶iÀ£ÁYÀɤW¶Ç

javascript:;

¥¼©R¦W.jpg (7.59 KB)

¥Ü·N¹Ï

¥¼©R¦W.jpg

TOP

javascript:;

¤£¦n·N«ä ­º¦¸Po¤å

ÁٳҷШâ¦ìª©¥D­q¥¿..

Book1.rar (83.08 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-1-14 10:40 ½s¿è

¦^´_ 3# k123456770
°ÝÃD½Ð´y­z²M·¡¡A¤@­Ó¿ù»~ªº¥¨¶°¡A¨Ã¥¼¥[¤J¥ô¦ó°ÝÃD»¡©ú
³o¼ËªºÀɮפ£¦p§O©ñ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Sub Macro4()
'
' Macro4 Macro
'

'
    Sheets("²Î­p¸ê®Æ").Select
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-3],'Key In ¸ê®Æ'!C:C[1],2,0)"
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:H" & [H3].CurrentRegion.Rows.Count)
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$I$20").AutoFilter Field:=8, Criteria1:="¤w¥X"
    Range("I1").Select
    ActiveCell.Offset(1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillLeft
End Sub

­º¥ý ­Ó¤H¹w³]¬°

1.Key In ¸ê®Æ ¤À­¶¤¤
"H2"¿é¤J½s¸¹ "I2"¤w¹w³]¤½¦¡ ·|¦Û¦æ Âà´« ¤w¥Xor¨ú®ø


2.²Î­p¸ê®Æ¤À­¶¤¤
¥¨¶° ·|¦Û°ÊÀ°§Ú Vlookup §ó·sHÄæ
§ó·s«á ­È¤Æ ¿z¿ï ¤w¥Xor¨ú®ø   (¦¹³¡¤À ¥i¯à¤]»Ý­n½Ð±Ð¥ý¶i ¬O§_¥i¿ï¾Ü ¿z¿ï "«DN/A")


3.¿z¿ï¥X ¤w¥X or ¨ú®ø«á
±NHÄæ ¥­²¾Âл\ IÄæ(¶i«×)  (¤p§Ì¥Ø«e³Ì¤jªº§xÃøÂI¬° µLªkÅý¥L¥­²¾Âл\...)

²Î­p.jpg (175.6 KB)

²Î­p.jpg

Key In.png (105.78 KB)

Key In.png

ºÃ°Ý.jpg (127.03 KB)

ºÃ°Ý.jpg

TOP



¦A¸É¤W¤@¦¸ÀÉ®×

Book1.rar (85 KB)

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD