[µo°Ý] ½Ð°Ý¸Ó¦p¦ó§å¦¸¶×¤J¤£¦P¤é´Á¸ê®Æ¦ÜEXCEL¡H

j1221

¦U¦ì¦n¡A

¤£¦n·N«ä¤S¨Ó³Â·Ð¤j®a¤F¡C³Ìªñ¦b¸ÕµÛ§ï¼g¥H¡iµ{¦¡¥æ©ö»EÄ_¬Ö¡j¸Ì­±CLCY¤j¤À¨Éªº´Á¥æ©ÒÂàÀÉÀɮסA¸ÕµÛ§â­ì¥ý¥u¯à¤@¦¸¿é¤J¤@¤ÑªºEXCEL§ï¼g¦¨¥i¥H§å¦¸¿é¤J¦h¤Ñªºª©¥»¡]¤ñ¦p»¡±q¤@­Ó¦X¬ù¤ë¥÷ªº¶}­Ü¤é¦Üµ²ºâ¤é¡^¡A¦ý¬O¤@ª½¤£¦¨¥\¡C
¤]´N¬O»¡§Ú·Q­n±q´Á¥æ©Ò´£¨Ñªº½L«á¨Cµ§¥æ©ö¸ê®Æ¡].rptÀÉ¡^§å¦¸¿é¤J¦ÜExcel¤¤¡]Excel 2010)¡A¤ñ¦p»¡±q2011-12-15, 2011-12-16,......2012-01-12, 2012-01-13 µ¥µ¥

½Ð¥ýÅý§Úªþ¤W§Úªºcode¡A¦A»¡©ú§Úªº°ÝÃD¡C

1. Public Sub CommandButton1_Click()
   
2. Dim FilePath As String, FileName As String
   
3. 
   
4. Dim Product As String, Contract As String
   
5. Dim Hr As Long, Min As Long, Sec As Long
   
6. 
   
7. iYear_s = Val(txtYear_start.Text)
   
8. iYear_e = Val(txtYear_end.Text)
   
9. iMonth_s = Val(txtMonth_start.Text)
   
10. iMonth_e = Val(txtMonth_end.Text)
    
11. iDay_s = Val(txtDay_start.Text)
    
12. iDay_e = Val(txtDay_end.Text)
    
13. 
    
14. For Z = iYear_s To iYear_e
    
15.     For J = iMonth_s To iMonth_e
    
16.         For K = iDay_s To iDay_e
    
17.             'transform number into string
    
18.             txtYear = Z & ""
    
19.             txtMonth = J & ""
    
20.             txtDay = K & ""
    
21.             FilePath = ThisWorkbook.Path & "\"
    
22.              'specify the file name to be "Daily_yyyy_mm_dd.rpt"
    
23.             If J < 10 And K < 10 Then
    
24.                 FileName = "Daily_" & txtYear & "_0" & txtMonth & "_0" & txtDay & ".rpt"
    
25.             ElseIf J < 10 And K >= 10 Then
    
26.                 FileName = "Daily_" & txtYear & "_0" & txtMonth & "_" & txtDay & ".rpt"
    
27.             ElseIf J >= 10 And K < 10 Then
    
28.                 FileName = "Daily_" & txtYear & "_" & txtMonth & "_0" & txtDay & ".rpt"
    
29.             ElseIf J >= 10 And K >= 10 Then
    
30.                 FileName = "Daily_" & txtYear & "_" & txtMonth & "_" & txtDay & ".rpt"
    
31.             End If
    
32.             Product = txtProduct.Text
    
33.             Contract = txtContract.Text
    
34.             ' count total number of worksheets
    
35.             isheetsnumber = ThisWorkbook.Sheets.Count
    
36.             ' free the file number for input
    
37.             iFNumber = FreeFile
    
38.             ' resume if the .rpt file doesn't exist
    
39. On Error GoTo errTrap
    
40.             'input .rpt file
    
41.             Open FilePath & FileName For Input As #iFNumber
    
42.             SheetsName = Mid(FileName, 7, 10) & "f"
    
43.             'small loop to test if the worksheet exists, exists =true otherwise false
    
44.             For iM = 1 To isheetsnumber
    
45.             If ThisWorkbook.Worksheets(iM).Name = SheetsName & "" Then ' &"" transform the number to string
    
46.                 Sheets_Exist = True: Exit For
    
47.             Else
    
48.                 Sheets_Exist = False
    
49.             End If
    
50.             Next iM
    
51.     'if sheet does not exist, then add one
    
52.     If Sheets_Exist = False Then
    
53.             Worksheets.Add.Name = SheetsName
    
54.             ' move to the end
    
55.             ActiveSheet.Move After:=Sheets(isheetsnumber)
    
56.             N = 1
    
57.             While Not EOF(1)
    
58.                 Input #iFNumber, A(N, 1), A(N, 2), A(N, 3), A(N, 4), A(N, 5), A(N, 6), A(N, 7), A(N, 8)
    
59.                 If N = 1 Then
    
60.                     Sheets(SheetsName).Cells(1, 1) = A(1, 4)
    
61.                     Sheets(SheetsName).Cells(1, 2) = A(1, 5)
    
62.                     Sheets(SheetsName).Cells(1, 3) = A(1, 6)
    
63.                     N = N + 1
    
64.                 End If
    
65.                 If A(N, 2) = Product And A(N, 3) = Contract Then
    
66.                     Sec = Val(Left(Right(Str(A(N, 4)), 2), 2))
    
67.                     Min = Val(Left(Right(Str(A(N, 4)), 4), 2))
    
68.                     Hr = Val(Left(Right(Str(A(N, 4)), 6), 2))
    
69.                     A(N, 9) = Str((Hr * 3600 + Min * 60 + Sec) - 31500)
    
70.                     Sheets(SheetsName).Cells(N, 1).Value = Val(A(N, 4))
    
71.                     Sheets(SheetsName).Cells(N, 2).Value = Val(A(N, 5))
    
72.                     Sheets(SheetsName).Cells(N, 3).Value = Val(A(N, 6))
    
73.                     Sheets(SheetsName).Cells(N, 4).Value = Val(A(N, 9))
    
74.                     N = N + 1
    
75.                 End If
    
76.             Wend
    
77.             Close 1
    
78.             N = N - 2
    
79.      End If
    
80.             
    
81.             MsgBox ("Total amount of data is " & Str(N))
    
82. errTrap:
    
83.    Resume Conti
    
84. 
    
85. Conti:
    
86.         Next K
    
87.      Next J
    
88.    
    
89. Next Z
    
90. End Sub

½Æ»s¥N½X

¦pªG¬O¦P¤@­Ó¤ë¥÷©Î¬O¦~¥÷ªº¸Ü¨S¦³°ÝÃD¡A¦ý¬O¥X²{¸ó¤ëªº¸Ü¡A´N¥X°ÝÃD¤F¡C¥D­n¬O¦]¬°¤@¦ý¸ó¤ë¡A¤é´Á´N·|±q1¸¹¶}©l¡A¦bFor Next ¦^°é¸Ì­±¨S¿ìªk³B²z¡A§Ú´¿¸g¤]¬OµÛ¥Îblock Ifªº§PÂ_¦¡·Q¥h¤À¿ë¤£¦Pªº±¡ªp¡A¦ý¬O¦n¹³¥ÎIf ¤§«á¨S¿ìªk¥ÎFor ³o¼Ëexcel·|§i¶D§Ú¡§¦³If ¦ý¨S¦³End If"

½Ð°Ý¦³¨S¦³¿ìªk¸Ñ¨M¡]©Î§ï¼g¡^³o­Ó°ÝÃD©O¡H ÁÂÁ¦U¦ì

PS: ­ì©lÀɮצ³ÂI¹L¤j¡AµLªkªþ¥[¡A³Â·Ð¦Ü http://min.us/mx0lbUjTp ¤U¸ü ¡]ÂàÀɳ¡¥÷ªºCode§@ªÌ¬°¡iµ{¦¡¥æ©ö»EÄ_¬Ö¡jªºCLCY¤j¡^

j1221

¦^´_ 6# hugh0620

ÁÂÁ±zªº¦^ÂÐ!!

·íªì§Ú¬O·Q­n¥ý§PÂ_¤§«á¦A¶}©l¦^°é¡A¤]´N¬O»¡§Ú¤£·Q½Æ»s¨â¦¸­«½Æªºcode (¶i¤Jfor¤§«áªº¨º³¡¤À) ¡A¦]¬°³o¼Ë¾ã­Óµ{§Ç·|Åܱo«Üªø¡C

½Ð°Ý¦³¿ìªk°µ¨ì³o¼Ë¶Ü?

hugh0620

¦^´_ 5# j1221

     ÁÙ¯uªº¼g¿ù¤F­ò~
If iYear_s = iYear_e Then
    Z = iYear_s
    For J = iMonth_s To iMonth_e        
          If J = iMonth_s Then
            For K = iDay_s To 31
            
            NEXT K  
      Else
            For K = 1 To iDay_e

            next K
        End If
    next J
End If

«ö±z­ì©lªº¼gªk~ °õ¦æ¨ìFor J = iMonth_s To iMonth_e ³o¤@¥y~
¦p¦ó¸õ¨ìnext J©O~  ¤£¥i¯à­ò~ ¤¤¶¡¦³END IF
¦bµ{¦¡°õ¦æ®É~ ´N·|¿ù»~¤F~
§A¥i¥H¦bIF .....   END IF ¤¤¶¡©ñ¦bFor  ...  Next
¦ý¤£¯à§â  next ©ñ¦b end  if«á­±~

j1221

¦^´_ 4# hugh0620


    ÁÂÁ±zªºÀ°¦£¡A§Ú·Q§ÚÀ³¸Ó¦b³oÃä¨S¦³¼g¿ù§a....¥H¤U¬°§Úªºcode

1. Public Sub CommandButton1_Click()
   
2. Dim FilePath As String, FileName As String
   
3. 
   
4. Dim Product As String, Contract As String
   
5. Dim Hr As Long, Min As Long, Sec As Long
   
6. 
   
7. iYear_s = Val(txtYear_start.Text)
   
8. iYear_e = Val(txtYear_end.Text)
   
9. iMonth_s = Val(txtMonth_start.Text)
   
10. iMonth_e = Val(txtMonth_end.Text)
    
11. iDay_s = Val(txtDay_start.Text)
    
12. iDay_e = Val(txtDay_end.Text)
    
13. 
    
14. If iYear_s = iYear_e Then
    
15.     Z = iYear_s
    
16.     For J = iMonth_s To iMonth_e
    
17.         If J = iMonth_s Then
    
18.             For K = iDay_s To 31
    
19.         Else
    
20.             For K = 1 To iDay_e
    
21.         End If
    
22. End If
    
23.             'transform number into string
    
24.             txtYear = Z & ""
    
25.             txtMonth = J & ""
    
26.             txtDay = K & ""
    
27.             FilePath = ThisWorkbook.Path & "\"
    
28.              'specify the file name to be "Daily_yyyy_mm_dd.rpt"
    
29.             If J < 10 And K < 10 Then
    
30.                 FileName = "Daily_" & txtYear & "_0" & txtMonth & "_0" & txtDay & ".rpt"
    
31.             ElseIf J < 10 And K >= 10 Then
    
32.                 FileName = "Daily_" & txtYear & "_0" & txtMonth & "_" & txtDay & ".rpt"
    
33.             ElseIf J >= 10 And K < 10 Then
    
34.                 FileName = "Daily_" & txtYear & "_" & txtMonth & "_0" & txtDay & ".rpt"
    
35.             ElseIf J >= 10 And K >= 10 Then
    
36.                 FileName = "Daily_" & txtYear & "_" & txtMonth & "_" & txtDay & ".rpt"
    
37.             End If
    
38.             Product = txtProduct.Text
    
39.             Contract = txtContract.Text
    
40.             ' count total number of worksheets
    
41.             isheetsnumber = ThisWorkbook.Sheets.Count
    
42.             ' free the file number for input
    
43.             iFNumber = FreeFile
    
44.             ' resume if the .rpt file doesn't exist
    
45. On Error GoTo errTrap
    
46.             'input .rpt file
    
47.             Open FilePath & FileName For Input As #iFNumber
    
48.             SheetsName = Mid(FileName, 7, 10) & "f"
    
49.             'small loop to test if the worksheet exists, exists =true otherwise false
    
50.             For iM = 1 To isheetsnumber
    
51.             If ThisWorkbook.Worksheets(iM).Name = SheetsName & "" Then ' &"" transform the number to string
    
52.                 Sheets_Exist = True: Exit For
    
53.             Else
    
54.                 Sheets_Exist = False
    
55.             End If
    
56.             Next iM
    
57.     'if sheet does not exist, then add one
    
58.     If Sheets_Exist = False Then
    
59.             Worksheets.Add.Name = SheetsName
    
60.             ' move to the end
    
61.             ActiveSheet.Move After:=Sheets(isheetsnumber)
    
62.             N = 1
    
63.             While Not EOF(1)
    
64.                 Input #iFNumber, A(N, 1), A(N, 2), A(N, 3), A(N, 4), A(N, 5), A(N, 6), A(N, 7), A(N, 8)
    
65.                 If N = 1 Then
    
66.                     Sheets(SheetsName).Cells(1, 1) = A(1, 4)
    
67.                     Sheets(SheetsName).Cells(1, 2) = A(1, 5)
    
68.                     Sheets(SheetsName).Cells(1, 3) = A(1, 6)
    
69.                     N = N + 1
    
70.                 End If
    
71.                 If A(N, 2) = Product And A(N, 3) = Contract Then
    
72.                     Sec = Val(Left(Right(Str(A(N, 4)), 2), 2))
    
73.                     Min = Val(Left(Right(Str(A(N, 4)), 4), 2))
    
74.                     Hr = Val(Left(Right(Str(A(N, 4)), 6), 2))
    
75.                     A(N, 9) = Str((Hr * 3600 + Min * 60 + Sec) - 31500)
    
76.                     Sheets(SheetsName).Cells(N, 1).Value = Val(A(N, 4))
    
77.                     Sheets(SheetsName).Cells(N, 2).Value = Val(A(N, 5))
    
78.                     Sheets(SheetsName).Cells(N, 3).Value = Val(A(N, 6))
    
79.                     Sheets(SheetsName).Cells(N, 4).Value = Val(A(N, 9))
    
80.                     N = N + 1
    
81.                 End If
    
82.             Wend
    
83.             Close 1
    
84.             N = N - 2
    
85.      End If
    
86.             
    
87.             MsgBox ("Total amount of data is " & Str(N))
    
88. errTrap:
    
89.    Resume Conti
    
90. 
    
91. Conti:
    
92.         Next K
    
93.      Next J
    
94.    
    
95. 
    
96. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 3# j1221


    §A¦³¼gfor ¦ý¬O¤Ö¤Fnext~ ·íµM·|²£¥Í¿ù»~§r~
    ­n¦bÀ˵ø¤@¤U~ §A¼gªº¬O¤£¬O¤@¹ï¤@¹ïªº~
    if  
         for
               for
                           if    
                           end  if
               next
         next
     end if

Àˬd¹L§Aµo¤åªºµ{¦¡½X~ ¨S¦³°ÝÃD~

­n¤£­n§â§A­×§ï¹L«áªº§¹¾ãµ{¦¡½Xpo¤W¨Ó¬Ý¬Ý©O

j1221

¦^´_ 2# hugh0620

ÁÂÁ±zªº¦^ÂСA¦ý¬O¨ä¹ê§Ú´N¬O§Q¥Î³o¼Ë¼gªº¡A§Úªº¤èªk¦p¤U

1. If iYear_s = iYear_e Then
   
2.     Z = iYear_s
   
3.     For J = iMonth_s To iMonth_e
   
4.         If J = iMonth_s Then
   
5.             For K = iDay_s To 31
   
6.         Else
   
7.             For K = 1 To iDay_e
   
8.         End If
   
9. End If

½Æ»s¥N½X

Excel ¸õ¥XªºÁÙ¬O ¡§¦³Else ¨S¦³If¡§ ½Ð°Ý°ÝÃD¬O¥X¦b­þ¸Ì©O¡H¡H

hugh0620

¦^´_ 1# j1221

     ¦ý¬O¦n¹³¥ÎIf ¤§«á¨S¿ìªk¥ÎFor ³o¼Ëexcel·|§i¶D§Ú¡§¦³If ¦ý¨S¦³End If"
      ¼Ó¥D~ ³o­Ó°ÝÃD¬O±z¦b¼¶¼g®É~ ¦³¼gIF ¦ý¨S¦³¼gµ²§ÀEed IF~      
     ¼Ó¥DªºÆ[©Àªº¹ïªº§r~­Y¬O¸Ø¤ë~ §Úªº¼gªk~ ª½Ä±¬O¥ÎIF¥h§PÂ_~
      ¦]¦¹~ ¼Ó¥D ­n¤£­n¦A¸Õ¤@¤U~ §A­ì©lªº¼gªk~ À³¸Ó´N¥i¥H¸Ñ¨M¸ó¤ëªº°ÝÃD~