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

µ{¦¡½X­×§ïÁÂÁÂ

µ{¦¡½X­×§ïÁÂÁÂ

Sub ¾ò¶ê2_Click()

Dim Ar(), AY(), AX(), D As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
fd = .SelectedItems(1)
If .ButtonName = "½T©w" Then
FS = Dir(fd & "\*.xls")
Do Until FS = ""
fds = fd & "\" & FS
With Workbooks.Open(fds)
C = FS

ReDim Preserve AX(s)
AX(s) = C
End With
FS = Dir
C = Mid(A, 1, 1)
Loop
End If
End With
With Sheets(C)§ï¦¨Sheets("9")¥i°õ¦æ¦ý¸ê®Æ§¨¤º¤u§@ªíÀɦW¥i¥H¬O9©Î¥L¤£©w¡A¦p¦óÅýc»P¤u§@ªí¦P
  For Each A In .Range(.[A2], .[A65536].End(xlUp))
     If IsDate(A) Then
     Ar = Array(A.Offset(, 0).Value, A.Offset(, 2).Value, A.Offset(, 4).Value, A.Offset(, 5).Value, A.Offset(, 6).Value)
     ReDim Preserve AY(s)
     AY(s) = Ar
     s = s + 1
     End If
  Next
  End With
Workbooks("¦¬¤ä100.xls").Sheets("¦¬¤ä©ú²Ó").[A4].Resize(s, 5) = Application.Transpose(Application.Transpose(AY))
Workbooks("¦¬¤ä100.xls").Sheets("¦¬¤ä©ú²Ó").Activate
Application.ScreenUpdating = False
For Y = 4 To ActiveSheet.UsedRange.Rows.Count
If WorksheetFunction.CountA(Rows(Y)) = 0 Then
Rows(Y).EntireRow.Hidden = True
If Y = 72 Then
   [ A73].Offset(0, 2).Resize(, 2) = Array("=SUM(R4C:R[-1]C)", "=SUM(R4C:R[-1]C)")
If Y < 72 Then
Else: Exit Sub
End If
End If
End If
Next Y
Application.ScreenUpdating = True
End Sub

666.gif (329.05 KB)

666.gif

100.rar (318.87 KB)

¦^´_ 1# y663258


    §A­n»¡©ú§A³o­Óµ{§Ç­n¹F¦¨¬Æ»ò¥\¯à
©úª¾¹D§Aªºµ{¦¡½X¬O¿ù»~ªº¡A¤£ª¾¾ã­Ó¬yµ{¬OµLªk°»¿ùªº
³Ì²³æÁ|­Ó¨Ò¤l
C=MID(A,1,1)
³o­ÓA¥Nªí¬Æ»ò©O?
«e­±¬yµ{¨ÃµLµ¹­È¡A±o¨ìªºC·íµM¤]¬OªÅ­È
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh ª©¥DÁÂÁÂ
         C=MID(A,1,1)»~­È¤F§ï¦¨ C=MID(c,1,1)
             ¥u·Q With Sheets(c) ªºc¬O¦Û°Ê±o¨ì¤u§@ï8ªº¤u§@ªí9¡A¦]¨Ó·½ÀɦW·|ÅÜ·Q¦Û°Ê¨ú ±o¡C

TOP

Hsieh ª©¥DÁÂÁÂ
         C=MID(A,1,1)»~­È¤F§ï¦¨ C=MID(c,1,1)
             ¥u·Q With Sheets(c) ªºc¬O ...
y663258 µoªí©ó 2011-10-26 23:51

C=MID(c,1,1) ?
³o¼ËÁÙ¬O¤£¹ï°Ú,
¥ý¬Ý«e­± : FS = Dir(fd & "\*.xls")
±oª¾ FS ·| = "8.xls"
¦Ó C=MID(c,1,1) ¤£ºÞ¶]¦h¤Ö¹M³£¥u·|µ¥©ó "8".

¦Ü©ó©³¤U»¡ªº :
With Sheets(C)§ï¦¨Sheets("9")¥i°õ¦æ¦ý¸ê®Æ§¨¤º¤u§@ªíÀɦW¥i¥H¬O9©Î¥L¤£©w¡A¦p¦óÅýc»P¤u§@ªí¦P
¦pªG§A¨C­Ó Excel Àɮ׳£¥u¦³¤@­Ó Sheet ¨º»ò¥u­n¥Î Sheets(1) ¨Ó§ì¨ú´N¥i¥H¤F. (¦¹ªk¤£»Ý­nºÞ Sheet ¨ì©³¬O¨ú¤°»ò¦WºÙ)
¤]´N¬O§ï¦¨ With Sheets(1) §Y¥i.

TOP

ÁÂÁÂluhpro «ü¾ÉExcel ÀÉ¥u¦³¤@­Ó Sheet ¥Î Sheets(1)§ì¨ú¡C

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD