[µo°Ý] ½Ð­×¥¿¿ù»~ªºµ{¦¡½X

ziv976688

´ú¸ÕÀÉ : ½Ð­×¥¿¿ù»~ªºµ{¦¡½X.rar (105.09 KB)

¤U¸ü¦¸¼Æ: 6

2020-12-3 14:18

'­×§ïÀÉ®×Ãþ«¬---------------------------------   ¡¥¦C9
        oPath = ThisWorkbook.Path  '¸ô®|
        A = Dir(oPath & "\*.CSV")
        Do While A <> ""
            Oldname = oPath & "\" & A
            A = Replace(A, "°ò·Ç¤é¡G", "")
            A = "49_´Á¶Z§RµP_" & A   '·s¼W»Ý¨D:¦A±NÀɮצWºÙ«e§å§ï¼W¥[ "49_´Á¶Z§RµP_"
            A = Replace(A, ".csv", ".xls")
            Newname = oPath & "\" & A
             With Workbooks.Open(Oldname)
                .Sheets(1).Name = Replace(A, ".xls", "")
                .SaveAs Filename:=Newname, FileFormat:=xlNormal   '§ï°ÆÀɮצW  ¡¥¦C20

¥H¤W¬O§Ú¦b½×¾Â¤U¸üªº¡y±NÀɮצWºÙ«e§å§ï¼W¥[ "49_´Á¶Z§RµP_¡¨¡A¨Ã§ó§ï°ÆÀɮצW¡zªºµ{¦¡½X¡F
¥i¯à¬O¦]¬°­ì¤U¸ü´ú¸ÕªºCSVÀɮצWºÙ®æ¦¡»P¥Ø«e´ú¸ÕªºCSVÀɮצWºÙ®æ¦¡¤£ºÉ¬Û¦P¡A©Ò¥H¥Ø«eªºVBA¥DÀɵLªk¶¶§Q°õ¦æ^^"

»Ý¨D¡J
EX¡J±Nªþ¥ó¤¤ªº6ªºCSVÀɮסA¤@¦¸°õ¦æ§Y¥i±N¨ä§ó§ï¬°¦p(½d¨Ò)ªº6­ÓXLSÀɮסC

½Ð°Ý¡J¿ù»~ªºµ{¦¡½X­n¦p¦ó­×¥¿¡H
ÁÂÁ¡I

ziv976688

¦^´_ 4# n7822123
­ì¨Ó°ÝÃD¬O¥X¦b¤u§@ªí¦WºÙ¦Û­ì¹L¦h
±N¦r¤¸´î¦Ü31­Ó¡A´N¥i¥H¶¶§Q°õ¦æ¤F
·PÁ±zªº½ç¥¿

n7822123

¦^´_ 1# ziv976688

¨ä¹ê§Aªº­ìµ{¦¡¨S¤°»ò¤Ó¤j°ÝÃD

´N¬O¤u§@ªí¦WºÙ¤£¯à°÷©R¦W³o»òªø....

§A§â¤U­±³o¦æµù¸Ñ±¼´N¥i¥H¶]¤F

A = "49_´Á¶Z§RµP_" & A '·s¼W»Ý¨D:¦A±NÀɮצWºÙ«e§å§ï¼W¥[ "49_´Á¶Z§RµP_"


¤u§@ªí¦WºÙ³Ì¦h "31" ­Ó¦r¤¸

ziv976688

¦^´_ 2# luhpro
ÁÂÁ±zªº¤£§[½ç¥¿¡C
¤w¸g¥i¥H¶¶§Q°õ¦æ¤F~·P®¦::lol

¤£¦n·N«ä¡A¬O§_¥i¥H½Ð±z±N¤u§@ªíªº¦WºÙ "Data"¡A§ï¦^¦p­ì½d¨Òªº¤u§@ªí¦WºÙ¡A
¦]¬°¹ê»ÚªºÀɮ׫ܦh­Ó¡A¤u§@ªí¦WºÙ³£¬O "Data"¡A¦³¨Ç¤£¤è«K^^"
ÁÂÁ±z!

ÁÙ¦³¦C43~¦C56°õ¦æµL®Ä¡A½Ð¸Ô¨£49_´Á¶Z§RµP_¦X¼Æ±Æ§Ç-ªÅ¼ÆÁ`Äý(0´Á)-(2020-11-27)(¤u§@ªí¦WºÙ½d¨Ò)&49_´Á¶Z§RµP_¦X¼Æ±Æ§Ç-ªÅ¼ÆÁ`Äý(0´Á)-(2020-12-01)(¤u§@ªí¦WºÙ½d¨Ò)¤º¤§»¡©ú~
¬O§_¯à³Ò¾r±z¦bÀ°¦£¬Ý¬Ý¡C¦A¦¸ÁÂÁ±z !

´ú¸ÕÀÉ : 2020-1204.rar (89.46 KB)

¤U¸ü¦¸¼Æ: 4

2020-12-4 00:48

'-§ìData¤é´Á=Àɮפé´Á,±N¤u§@ªíªº²Ä1¦C¸¹½X«ü©wªº¦rÃC©M©³¦â------¦C42
    Set BK = ThisWorkbook
         Set xF = Nothing
    T = Format(Left(Right(A, 15), 10), "yyyy/m/d") & ChrW(160)    '·j´MÀɮפé´Á
    Set xF = BK.Sheets("DATA").Range("A:A").Find(T, Lookat:=xlPart)    '·j´M=AÄæ¤é´Á
    If Not xF Is Nothing Then
       For V = 4 To 10
        If xF(1, V) <> "" Then
           [B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Font.ColorIndex = IIf(V = 10, 3, 7)         '±N=AÄæ¤é´Á¦Cªº²Ä1¦Cªº¸¹½X¼Ð¥Ü¦rÃC
        End If
        If xF(2, V) <> "" Then
           [B1:AX1].Find(xF(2, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 8, 6)   '±N=(AÄæ¤é´Á¦C+1¦C)ªº²Ä1¦Cªº¸¹½X¼Ð¥Ü©³¦â
        End If
       Next V
    End If         '¦C56

luhpro

´ú¸ÕÀÉ :

'­×§ïÀÉ®×Ãþ«¬---------------------------------   ¡¥¦C9
        oPath = ThisWorkbook.Pa ...
ziv976688 µoªí©ó 2020-12-3 14:19

¨ä¹ê°ÝÃDªºÄpµ²¦b©ó.csvÀɮתº®æ¦¡»P .xls Àɮפ£²Å,
§A¥u»Ý­n¥Î °O¨Æ¥» ¥h¶}±Ò .csv ÀÉ®×´N·|µo²{¥¦¨ä¹ê¬O­Ó(¸ê®Æ »P , ¤Î ´«¦æ¦r¤¸ ²Õ¦X¦¨ªº)¤å¦rÀɦӤw, ªí²{§Î¦¡¹³¬O :

´Á¶Z¼Æ,1,10,29,38,47,2,11,20,39,48,3,12,21

Excel µ{¦¡¯à°÷¥¿±`¶}±Ò¬O¦]¬°¥L¦³°w¹ï csv ÀÉ®× °µ³B²z,
¦ý§A«o¥u¬O§â°ÆÀɦW§ï¦¨.xls ¥¦´N¨S¿ìªk¤F.

·Q¸Ñ¨M¥i¥H¥ÎExcel¶}±Ò .csv ÀɮצA¥t¦s¦¨ .xls ÀɮקY¥i.

1.         oPath = ThisWorkbook.Path  '¸ô®|
   
2.         A = Dir(oPath & "\*.CSV")
   
3.         Do While A <> ""
   
4.             Oldname = oPath & "\" & A
   
5.             A = Left(A, Len(A) - 4) ' ¥h±¼ .csv
   
6.             With Workbooks.Open(Oldname)
   
7.               .Sheets(1).Name = "Data" ' ¶}±Ò .csv ÀÉ®×®É, Sheet Name¹w³]¬OÀɦW, ·|µo¥Í¿ù»~,¶}Àɮɷ|¦³°T®§°Ý¬O§_­n­×¥¿
   
8.               A = Replace(A, "°ò·Ç¤é¡G", "")
   
9.               A = "49_´Á¶Z§RµP_" & A '·s¼W»Ý¨D:¦A±NÀɮצWºÙ«e§å§ï¼W¥[ "49_´Á¶Z§RµP_"
   
10.               .SaveAs Filename:=oPath & "\" & A, FileFormat:=xlWorkbookNormal

½Æ»s¥N½X

49_´Á¶Z§RµP_00±Æ§Ç_ªÅ¼ÆÁ`Äý-(VBA)-Ans.zip (66.7 KB)

¤U¸ü¦¸¼Æ: 2

2020-12-3 21:36