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

[µo°Ý] ¦p¦ó¿é¤J¬Y¦r¦ê¦A·j¬d¦h­ÓÀɮ׽ƻs¨ì¥DÀɮפ¤

[µo°Ý] ¦p¦ó¿é¤J¬Y¦r¦ê¦A·j¬d¦h­ÓÀɮ׽ƻs¨ì¥DÀɮפ¤

¥»©«³Ì«á¥Ñ rcyw ©ó 2019-5-4 19:12 ½s¿è

½Ð±Ð¦U¦ì:

¥»¤H·Q±N©ñ¦b¦P¤@folder(e.g. C\Temp\..) ªº4­ÓÀɮפ¤(A,B,C,D), ¥ý¿é¤J·Q·j´Mªºcode, ¦A½Æ»s¨ì main.xls Àɪº«ü©w¦ì¸m...
¦Û¤vªºvbaµ{«×¯uªº¤Ó®t, §Æ±æ¦³°ª¤H«ü¾É¤@¤U, ¦Ûı¦n¹³«Ü½ÆÂø...¥ý·PÁÂ..

1. ¥ý¶}±Ò main ÀÉ,  «Ø¥ß¤@­Ó«ö¶s¼u¥X ©Î «Ø¥ß¤@­Ó¥i¿é¤Jªº¦ì, ¿é¤J·Q­n·j¬dªºcode, ¦p¿é¤J "KTRIG")
2. ¿é¤J«á, ·|¨ì C\Temp\ ¤¤, ·j¬d A,B,C,D Àɤ¤ªº¬Û¦P code, ¦A¶¶§Ç (xxxxxG11, xxxxxG1B, xxxxxG21,...) ¾ã¦æ½Æ»s¨ì«ü©wªº A File Data, B File Data, C File Data, D File Data ¤U,

A,B,C,D ÀɮתºÄæ¦ì³£¬O©T©wªº, ¦ýcodeªº¦¸§Ç§ó·s«á³£¤£·|¬O¶¶§Ç±Æ¦C. ©Mcode³£·|¤@¸ô¼W¥[ªº...

Main.zip (104.04 KB)

¥ý·PÁª©¥D­ã´£³¡ªLªº¨ó§U...½Æ»s¨ì¥DÀɮתº³£¬O»Ý­nªº¸ê®Æ, ¦ý¥i¯à¬O¦Û¤v¤§«e¨S»¡²M·¡..

¦]¸ê®Æ¦bÀÉ®×A,B,C,D½Æ»s¨ì¥Dµ{¦¡«á, ¦Û¤vÁٻݥÎvlookup¨ú¥X¤À§O¦bA,B,C,D¬Û¦Pcode«áªº¤£¦P¸ê®Æ....
©Ò¥H§Æ±æºñ¦â¦æ 20,35,50,64..ªº " x File Data" ¬O¤£ÅÜ, .....A,B,C,D½Æ»s¥Xªº¸ê®Æ³£¦bºñ¦â¦æ¤§¤U, ¦³¨Çcode·|¬O¦³ªÅ¦æ, ´N¦pªþ¹Ï..

¿é¥X¨ì³o­Óµ²ªG¬O§_¥i¦æ©O?...¥ý·PÁÂ.
copy.jpg

TOP

¯uªº«Ü·PÁ©M¨ØªAª©¥D­ã´£³¡ªLªºÀ°¦£, ³o»ò§Ö´N§ï¨ì¤F, ³o¥¿¬O¦Û¤v©Ò»Ý­nªº....

¦Û¤vªºµ{«×¹ê¦b¤Ó®t¤F, ­n¥[­¿§V¤O¤@¤U......

¦A¦¸·PÁÂ...

TOP

¥»©«³Ì«á¥Ñ rcyw ©ó 2019-5-6 21:22 ½s¿è

¥t¥~µo²{¦³¤@­Ó°ÝÃD....´N¬O¥ÑA,B,C,D·j´M¥X¨Ó ½Æ»s¨ì¥Dµ{¦¡¤¤,,..¤£¬O¶¶§Çªº.
¨Ò¦p: ·íAÀɳQ§ó·s¹L«á, ±Æ¦C¤£¬O¶¶§Çªº¸Ü..½Æ»s¥X¨Óªºµ²ªG·|¤£¬O¶¶§Ç..xxxxxG21, xxxxxG11, xxxxxG3B...

¦Û¤v¦h¥[¤F¤U¦Cªºµ{¦¡, ¤À§O¥ý±NA,B,C,D¥ý±Æ¦C¤@¦¸, ¤~°õ¦æª©¥D­ã´£³¡ªLªºµ{¦¡...³o¼Ë¥X¨Óªºµ²ªG´N¥i¥H4­ÓÀÉ®×¥X¨Óªº³£¬O¶¶§Ç....¿é¥X¨Óªº¼Æ¾Ú³£¬O¦Û¤v·Q­nªº....

    Workbooks.Open Filename:="C:\Temp\A.csv"
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("A").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("A").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("A").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Save
    ActiveWorkbook.Close SaveChanges:=True

¦ý³£·Q¾Ç²ß¤@¤U, ¬O§_¦³§ó¦nªº§ó§ï, ¤£»Ý¥ý±N·Q·j´MªºÀɮ׳v­Ó±Æ¦C, (e.g. xxxxxG11, xxxxxG1B, xxxxxG21...) ¥X¨Ó®Éªºµ²ªG´N¥i¥H"¶¶§Ç"¿é¥X¨Ó©O?

¥ý·PÁÂ...

TOP

¦A¦¸·PÁª©¥D­ã´£³¡ªL...­ì¨Ó´N³o¼Ë¥[¤F¤T¦æ¥ª¥k´N¤w¸g§ïÅܤF,

¯uªº«D±`·PÁÂ...

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD