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

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

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

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2020-12-3 14:34 ½s¿è

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

'­×§ïÀÉ®×Ãþ«¬---------------------------------   ¡¥¦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

´ú¸ÕÀÉ :

'­×§ïÀÉ®×Ãþ«¬---------------------------------   ¡¥¦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)

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2020-12-4 00:52 ½s¿è

¦^´_ 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)

'-§ì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

TOP

¦^´_ 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¤¸
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD