GBKEE

¦^´_ 3# c_c_lai

DDE ªº«ü©w¿é¤JÄæ¦ì¸ê®Æ¶×¤J«á­Èªº²§°Ê,Worksheet_Calculate ¬O·|³QIJ°Êªº

¦^´_ 4# laieven
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim NowDateTime, nowTime, startTime, stopTime, t As Integer
   
4.     Dim tr As String
   
5.     'Application.ScreenUpdating = False
   
6.     NowDateTime = Now '²{¦bªº®É¶¡­È, ¥h±¼¾ã¼Æ³¡¥÷,
   
7.     nowTime = (NowDateTime - Int(NowDateTime)) '±o¨ì²{¦bªº®É¶¡­È
   
8.     startTime = Range("A2") '¶}½L®É¶¡, ¨Ò¦p: "09:00:00 AM"
   
9.     stopTime = Range("A3")  '¦¬½L®É¶¡, ¨Ò¦p: "01:30:00 PM"
   
10.     If nowTime <= startTime Then '©|¥¼¶}½L
    
11.                 Exit Sub
    
12.     ElseIf nowTime > stopTime Then '¤w¸g¦¬½L
    
13.                 Exit Sub
    
14.     ElseIf Range("B2") <> "-" And Range("B2") <> "###" Then '²M½Lªºª¬ºA, ¤£¨ú¨ä¸ê®Æ
    
15.            '     xy = Int((nowTime - startTime) * 1440) + 1   '¨C®t 300 ¬í´N´«¤@¦C
    
16.            '     Range("g1").Value = xy
    
17.            '     Range("g2").Value = xy + 59
    
18. 
    
19.         t = Application.Text(Time - [A6], "[M]") + 1  '­pºâ¶¡®æªº¤ÀÄÁ
    
20.         Range("B5").Offset(t).Resize(, 4) = Range("B2:E2").Value
    
21. End If
    
22. 'Application.ScreenUpdating = True
    
23. Application.StatusBar = Time
    
24. End Sub

½Æ»s¥N½X