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

[µo°Ý] ´z¿ï¦WºÙ¤¤¦³¡i§¡­È¡jªºÀɮפ§»yªk¡C

[µo°Ý] ´z¿ï¦WºÙ¤¤¦³¡i§¡­È¡jªºÀɮפ§»yªk¡C

¥»©«³Ì«á¥Ñ Airman ©ó 2019-6-1 05:01 ½s¿è

´ú¸ÕÀÉ0601.rar (38 KB)
§¡­È¥DÀɪºµ{¦¡½X©M¨ä¥¦¥DÀɪºµ{¦¡½Xªº®t§O¥u¦b¡J
§¡­È¬°¦³°õ¦æ ¦C12~¦C15ªºµ{¦¡½X
¨ä¥¦¬°¤£°õ¦æ ¦C12~¦C15ªºµ{¦¡½X

¦b¦hºØÀɮצWºÙ¤¤~
·í¦WºÙ¤¤¦³§¡­È¤G­Ó¤å¦rªºÀɮסA¨ä[B1:BK1]¥²¶·²¾°£¡A¦A­«·s¥ÑB1©¹¥k¶ñ¤J1~49ªº¼Æ¦r¡C
EX¡J¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-1_9-(°ò·Ç¤é¡G2019-05-31)¡FªÅ¼ÆÁ`Äý(§¡­È±Æ§Ç)-(°ò·Ç¤é¡G2019-05-31)¡F¾÷¼ÆÁ`Äý(§¡­È±Æ§Ç)-(°ò·Ç¤é¡G2019-05-31)
·í¦WºÙ¤¤¨S¦³§¡­È¤G­Ó¤å¦rªºÀɮסA¨ä[B1:AX1]³£¬O¼Æ¦r¡A¥u­n§ó§ï¼Æ¦r®æ¦¡§Y¥i¡C
EX¡J¤µ¤éÁ`ªí(¦X¼Æ±Æ§Ç)-1_9-(°ò·Ç¤é¡G2019-05-31)¡FªÅ¼ÆÁ`Äý(¥Í¨v±Æ§Ç)-(°ò·Ç¤é¡G2019-05-31)¡F¾÷¼ÆÁ`Äý(¤K¨ö±Æ§Ç)-(°ò·Ç¤é¡G2019-05-31)
©Ò¥H¥²¶·¥H§¡­È¥DÀɨӰõ¦æ¦WºÙ¤¤¦³§¡­Èªº.csvÀɮקó§ï¬°.xlsÀɮסF¦A¥H¨ä¥¦¥DÀɨӰõ¦æ¦WºÙ¤¤µL§¡­Èªº.csvÀɮקó§ï¬°.xlsÀɮסC

¦]¬°¨C¤@´Á³£¥²¶·¥Ñ882­ÓÀɮפ¤¡A¬D¥X147­Ó¦WºÙ¤¤¦³§¡­ÈªºÀɮסA¤À¶}°õ¦æÀÉ®×Ãþ«¬§ó§ï~ı±o«Ü³Â·Ð~
©Ò¥H§Æ±æ¯à±N§¡­È©M¨ä¥¦¤G­Ó¥DÀɦX¨Ö¡A¦Ó¦C12~¦C15ªºµ{¦¡½X¥i¥H´z¿ï¦WºÙ¤¤¦³§¡­ÈªºÀɮפ~°õ¦æ¡C
½Ð°Ý¡J¤W­z¤G­Ó¥DÀɦX¨Ö«á¡A¦Ó¦C12~¦C15ªºµ{¦¡½X¥i¥H´z¿ï¦WºÙ¤¤¦³§¡­ÈªºÀɮפ~°õ¦æªº»Ý¨Dªº¤§»yªk?
Àµ½Ð¦U¦ì¥ý¶i´f¤©½ç±Ð!ÁÂÁÂ!

¥»©«³Ì«á¥Ñ Airman ©ó 2019-6-1 07:19 ½s¿è

¦^´_ 1# Airman
1#ªº´£°Ý»¡©ú§@¼o~~

§¡­È.rar (23.93 KB)
´£°Ý»¡©ú­«·s¾ã²z¦p¤U :
·í¦WºÙ¤¤¦³§¡­Èªº¤G­Ó³sÄò¤å¦r¤§ÀɮסA«h°õ¦æ¦C12~¦C15ªºµ{¦¡½X¡A§_«h²¤¹L¤£°õ¦æ¡C

½Ð°Ý¡J§¡­È¥DÀɪºµ{¦¡½X­n¦p¦ó­×½s ?

¥H¤W Àµ½Ð¦U¦ì¥ý¶i´f¤©½ç±Ð!ÁÂÁÂ!

TOP

¸É¥R :
¦C12~¦C15ªºµ{¦¡½X~
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next

TOP

¥»©«³Ì«á¥Ñ Scott090 ©ó 2019-6-2 09:07 ½s¿è

¦^´_ 3# Airman

      ¸Õ¸Õ³o­Ó»yªk
      if instr("???§¡­È???", "§¡­È")<>0 then .......

TOP

¦^´_ 4# Scott090
Scott090¤j¤j :±z¦n!
¤£ª¾¤p§Ì¦³¨S¦³·|¿ù·N!?
¬O³o¼Ë¶Ü?

           If Debug.Print UBound(Split("???§¡­È§¡­È???", "§¡­È")) Then GoTo 101
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
101:

»yªk¤£¹ï^^"

TOP

Sub TEST()
Dim P$, F$, A$
P = ThisWorkbook.Path
Application.ScreenUpdating = False
Do
  If F = "" Then F = Dir(P & "\*.csv") Else F = Dir
  If F = "" Then Exit Do
  A = Replace(Replace(F, "°ò·Ç¤é¡G", ""), ".csv", "")
  With Workbooks.Open(P & "\" & F)
       If InStr(A, "§¡­È") Then
          [B1:BK1].Clear
           For j = 1 To 49: Cells(1, j + 1) = j: Next
       End If
       If InStr(A, "Á`ªí") Then [A:A].NumberFormatLocal = "yyyy/mm/dd"  'Á`ªí-¤é´Á-©T©wªø«×¸û¦nÀ˵ø
       [B1:AX1].NumberFormatLocal = "00"
       With [B1:AX1].Font: .Bold = True: .Size = 14: .ColorIndex = 5: End With
       With [A:AX]
           .Font.Name = "Arial"
           .HorizontalAlignment = xlCenter
           .EntireColumn.AutoFit
       End With
       [B2].Select
       With ActiveWindow: .FreezePanes = True: .Zoom = 75: End With
       .SaveAs Filename:=P & "\" & A & ".xls", FileFormat:=xlNormal, CreateBackup:=False
       .Close 0
  End With
  Kill P & "\" & F
Loop
End Sub


================

TOP

¦^´_ 5# Airman


    ¤£ª¾­þ¤@­Ó¬Oª©¥D»Ý­n­nªº¡C
     1. ¦³"§¡­È" ¤G¦r´N°õ¦æ¡G
          if instr("???§¡­È???", "§¡­È") <>0 then
               [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
        end if
101:

      2.  ¦³³sÄòªº "§¡­È" ¤~·|°õ¦æ¡G
         if UBound(Split("???§¡­È§¡­È???", "§¡­È"))>1 Then
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
        end if
101:

     °²¦p¤GªÌ³£¤£¬O ¡A½Ð©¿²¤¤£¥Î²z·|

TOP

¦^´_ 5# Airman


1) path ¬Ovba±M¥Î¦r, ¾¨¶q¤£¥Î¨Ó³]ÅܼÆ
2) °ÝÃDÀ³±N³W«h»¡©ú, ¤£­nÅý¤H¥u±qµ{¦¡½X¤¤¥h§PŪ

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2019-6-2 11:18 ½s¿è

¦^´_ 7# Scott090
Scott090¤j¤j :
´ú¸Õ³ø§i:   
©@°Ø¦â¦r=·s¼Wªº¶Q¸Ñµ{¦¡½X
ÂŦâ¦r=¿ï¾Ü©Ê°õ¦æªºµ{¦¡½X
»Ý¨D=ÀɮצWºÙ¦³§¡­È®É¡A«h°õ¦æÂŦâ¦rªºµ{¦¡½X¡F¦pªGÀɮצWºÙ¤º¨S¦³§¡­È®É¡A´N¸õ¹LÂŦâ¦rªºµ{¦¡½X(§Y¤£°õ¦æ)¡C
¥Ø«e¥H¤U¦Cªºµ{¦¡½X=µL½×ÀɮצWºÙ¤º¨S¦³©Î¨S¦³§¡­Èªº¤å¦r¡A¥þ³¡³£¦³°õ¦æÂŦâ¦rªºµ{¦¡½X¡C
½Ð°Ý : ­n¦p¦ó­×¥¿?
ÁÂÁ±z^^

    Sub Ex()
        Dim Path As String, A As String, j%
        Path = ThisWorkbook.Path  '½Ð­×§ï¬°§Aªº¸ê®Æ§¨
        A = Dir(Path & "\*.CSV")
        Do While A <> ""
            Name Path & "\" & A As Path & "\" & Replace(A, "°ò·Ç¤é¡G", "")
            A = Replace(A, "°ò·Ç¤é¡G", "")
             With Workbooks.Open(Path & "\" & A)
                 .SaveAs Filename:=Path & "\" & Replace(A, ".csv", ".xls"), FileFormat:=xlNormal
           
          If UBound(Split("???§¡­È§¡­È???", "§¡­È")) > 1 Then
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next

          End If

                With [B1:AX1]
                    .Font.Bold = True
                    .Font.Size = 14
                    .NumberFormatLocal = "00"
                    .Font.ColorIndex = 5
                End With
                    
                    Columns("A:AX").Font.Name = "Arial"
                    Columns("A:AX").HorizontalAlignment = xlCenter
                    Columns("A:AX").EntireColumn.AutoFit
                    [B2].Select
                    ActiveWindow.FreezePanes = True
                    ActiveWindow.Zoom = 75
                 
                 .Close True
             End With
            Kill Path & "\" & A
            A = Dir
        Loop
    End Sub

TOP

¦^´_ 8# ­ã´£³¡ªL
­ã¤j ;
¤£¦n·N«ä~¥H¬°³o¼Ë·|¤ñ¸û²©ú^^"
ÁÂÁ±zªº«Øij!

³W«h¦p1¼Óªº»¡©ú¡A¦ý¦n¹³¤Ó¤¾ªø^^

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD