ÂŤÑÄR¦À

¦^´_ 4# GBKEE


    G¤j´ú¸Õ¹L«á¥u¦³UÄæ©MVÄ榳¼Æ¦r¨ä¥L³£Åã¥ÜªÅ¥Õ

ÂŤÑÄR¦À

¦^´_ 4# GBKEE

G¤jÁÂÁ§Aªº¦^ÂСA¯uªº«Ü·PÁ§A¡Aµ¥µ¥¨Ó¸Õ¸Õ¬Ý¡AÁÂÁÂ

GBKEE

¦^´_ 3# ÂŤÑÄR¦À

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim i As Integer '(µu¾ã¼Æ)¸ê®Æ«¬ºA
   
3. 'Public i As interger => ¥X²{¨Ï¥ÎªÌ«¬ºA©|¥¼©w¸q, ¥¿½T: Integer
   
4. Sub Ex()
   
5.     Dim xTime As Date
   
6.     If Time >= #8:46:00 AM# And Time <= #1:45:00 PM# Then
   
7.         With Sheets("RTD").Cells(i + 2, "T")
   
8.                     'TÄ椽¦¡=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
   
9.             .Range("A1") = "=IF(ISERROR(MATCH(RC[1],P:P,0)),"""",MATCH(RC[1],P:P,0))"
   
10.                     'UÄæ
    
11.             .Range("B1") = IIf(Minute(Time) Mod 2 = 0, Application.Sum(Range("A1:C1")), Application.Sum(Range("A2:C2")))
    
12.                     'VÄæ
    
13.             .Range("C1") = Time
    
14.                     'WÄ椽¦¡=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
    
15.             .Range("D1") = "=IF(ISERROR(INDIRECT(""O""&RC[-3])),"""",INDIRECT(""O""&RC[-3]))"
    
16.                     'XÄ椽¦¡=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
    
17.             .Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
    
18.                     'YÄ椽¦¡=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
    
19.             .Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
    
20.             .Resize(, 6) = .Resize(, 6).Value  '±N¤½¦¡¦^¼Æ­È
    
21.         End With
    
22.         i = i + 1
    
23.         xTime = Time + #12:01:00 AM#
    
24.         If xTime <= #1:45:00 PM# Then Application.OnTime xTime, "EX"
    
25.     ElseIf Time < #8:46:00 AM# Then
    
26.         Application.OnTime #8:46:00 AM#, "EX"
    
27.     Else
    
28.         MsgBox "®É¶¡¤w¹L"
    
29.     End If
    
30. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

§ï.rar (101.96 KB)

¤U¸ü¦¸¼Æ: 12

2014-11-16 10:26

¦^´_ 2# PKKO

½Ð°Ý¤j¤j¡A·|¥X²{¨Ï¥ÎªÌ«¬ºA©|¥¼©w¸q¬O¤°»ò·N«ä
¥t¥~¡A¦pªG§Ú­n§âRange("e" & i) = Application.WorksheetFunction.Sum(Range("A" & i & ":" & "C" & i + 2))¸Ì­±ªºSUM¨ç¼Æ§ï¦¨=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))¡A¨º½Ð°Ý¤@¤U¥¨¶°­n«ç»ò§ï??

¬O§ï¦¨Range("e" & i) = Application.WorksheetFunction.IF(ISERROR(MATCH(Range("U" & i +1& "," & "P" &":" & "P" & "," & "0"),"",MATCH(Range("U" & i +1& "," & "P" &":" & "P" & "," & "0"))§ï¦¨³o¼Ë¹ï¶Ü??

½Ð°Ý¤j¤jRange("A" & i & ":" & "C" & i + 2)¸Ì­±ªº½d³ò³¡¤À¡A°£¤F¥Î&ªºªº¤è¦¡¦³¨S¦³¨ä¥L¼gªk¡A¦]¬°¤½¦¡¦pªG«Ü¦hªº¸Ü·|&¤£§¹

©êºp¤j¤j°ÝÃD¦³ÂI¦h¡A¤£¹LÁÙ¬OÁÂÁ§Aªº¦^ÂÐ

¤j¤j§Ú¦³ªþ¤W§ÚªºÀɮסA¨ä¹ê§Ú­n­×§ïªº¬OT¡BW¡BXÄ檺³¡¤À¡A¦]¬°ª½±µ¼g¦bÀx¦s®æ¤W­±·|³y¦¨¹BºâÅܺC¡A©Ò¥H§Ú¤~·|·Q¥Î¥¨¶°ªº¤è¦¡¸Õ¸Õ¬Ý¡A¦pªG¤j¤j¯àª½±µÀ°§Ú­×§ï´N¯uªº¬O·P¿E¤£ºÉ¡A¦pªG¤£¯à¡AÁÙ¦|½Ð¤j¤jÀ°§Ú¸Ñµª¤@¤U¤W­±ªº°ÝÃD¡A·PÁÂ

PKKO

¦^´_ 1# ÂŤÑÄR¦À

¸Õ¸Õ¬Ý

1. Public i As interger
   
2. Sub test1()
   
3.     i = 1
   
4.     Application.OnTime TimeValue("08:46:00"), "test2" '¯S©w®É¶¡©I¥sµ{¦¡
   
5. End Sub
   
6. Sub test2()
   
7.     Range("e" & i) = Application.WorksheetFunction.Sum(Range("A" & i & ":" & "C" & i + 2)) '¿é¤J­È
   
8.    
   
9.     If Hour(Time) = 13 Then '§PÂ_¤p®É
   
10.         If Minute(Time) = 45 Then '§PÂ_¤À
    
11.             MsgBox "µ²§ô" '¬Û¦P®É¤À«h¤£¦A¶i¦æ
    
12.         Else
    
13.             Application.OnTime Now + TimeValue("00:01:00"), "test2" '¤@¤ÀÄÁ«á¹B¦æ
    
14.         End If
    
15.     Else
    
16.         Application.OnTime Now + TimeValue("00:01:00"), "test2" '¤@¤ÀÄÁ«á¹B¦æ
    
17.     End If
    
18.     i = i + 1
    
19. End Sub

½Æ»s¥N½X