­ã´£³¡ªL

¹ê¦b¬Ý¤£À´­n°µ¦óºØ³sµ², ¤]³\³o­Ó¥i¥H°Ñ¦Ò,
EXCEL¡Dª÷¤d¨½¡D©_¼¯ªÑ²¼¦Û°Ê§ó·sºÊ¬Ý¨t²Î >>> (¥H«eªº¯ó°µÀÉ, ¦Û¤v¼gªº¦Û¤v¥Î¤£¨ì, ®¤µLªk­Ó§O­×§ïµ{¦¡)
http://blog.xuite.net/smile1000mile/blog/95104599

­ã´£³¡ªL

¦^´_ 3# chairles59


§Ú¤£¦¬·|­û¡A¤]¤£¦¬¶O¬°¤H¼gµ{¦¡¡A
¦³°ÝÃD¥i¦b¦¹½×¾Âµo©«¡A¦ý»Ý¨D¥²¶·»¡¸Ô²Ó¡A
ªp¥B¹ïºô­¶ªº³B²z¡A³o¸Ì¦³§ó°ª¶Wªº¤H¡AÀ³¥i¥H±o¨ì§ó¦nªº¤è®×¡I¡I¡I

­ã´£³¡ªL

¦^´_ 5# chairles59


If uMode = 1 Then Call ³vµ§°O¿ý

§âÂŦⳡ¥÷¥h±¼§Y¥i

­ã´£³¡ªL

Sub ³vµ§°O¿ý()
Dim DSht As Worksheet, dEnd As Range
On Error GoTo 999
Set DSht = ThisWorkbook.Sheets(uRng.Text)
With DSht
¡@¡@.[B1] = uRng: .[D1] = uRng(1, 2): .[E1] = ""
¡@¡@Set dEnd = DSht.[A65536].End(xlUp)(2)
¡@¡@If dEnd.Row < 3 Then Set dEnd = DSht.[A3]
¡@¡@If dEnd(0, 5) = uRng(1, 7) Then Exit Sub¡@¡@'¥[¤J³o¤@¦æ¡A·í¦¨¥æ¶q¥¼ÅÜ°Ê¡A¤£°O¿ý¡I¡I¡I¡@
¡@¡@dEnd.Resize(1, 5) = uRng(1, 3).Resize(1, 5).Value
¡@¡@If dEnd.Row > 3 Then dEnd(1, 6) = dEnd(1, 5) - dEnd(0, 5)
¡@¡@dEnd(1, 7).Value = CDate(Date + uTime)
End With
999: End Sub

­ã´£³¡ªL

1. Sub §ó·s¥þ³¡()
   
2. Call ¦@¥Î°Ñ·Ó: If uRow <= 0 Then Exit Sub
   
3. uHead(0, 0) = "¡°§ó·s¤¤.............."
   
4. uHead(2, 12).Resize(uRow).ClearContents
   
5. For Each uRng In uClmnNo
   
6.     uRng(1, 3).Resize(1, 10).ClearContents
   
7.     If uRng = "" Then uRng(1, 2).ClearContents: GoTo 101
   
8.     Call Â^¨ú¸ê®Æ
   
9.     If GetStr = "" Then uRng(1, 2).ClearContents: GoTo 101
   
10.     Call ³vµ§°O¿ý
    
11.     Beep
    
12. 101: Next
    
13. uHead(0, 0) = "¡°§ó·s®É¶¡¡G" & Format(Now, "yyyy/mm/dd hh:mm:ss")
    
14. ThisWorkbook.Save
    
15. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 10# chairles59

¤U¸ü¦A¸Õ¡G
http://www.funp.net/292206