GBKEE

¦^´_ 1# jerrystock
À°§A¦h¥[¤G¥y    §A¬O­n¦p¦¹¶Ü?

1. Private Sub Workbook_Open()
   
2. If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
   
3. Sheet2.[B7:G307] = ""
   
4. change
   
5. Else
   
6. Application.OnTime "09:01:00", "ThisWorkbook.change"
   
7. End If
   
8. End Sub
   
9. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
10. Private Sub change()
    
11.     Dim TimeRange As Range, Rng As Range, R As Range
    
12.     With Sheet2
    
13.         Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
    
14.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
    
15.         Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
    
16.         'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
    
17.        Rng.Value = R.Offset(, 1).Resize(, 6).Value                         ' ***³o¸Ì¤]­n: Rªº¼Æ¾Ú «ü©w¨ì Rng
    
18.   With Sheet5 '¹q¤l´Á§Ú¥[¤Jªº³¡¤À
    
19.         Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
    
20.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
    
21.         Set R = Application.Evaluate(Mid(.Range("A3").Formula, 3))
    
22.         'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
    
23.          Rng.Value = R.Offset(, 1).Resize(, 6).Value                         ' ****Sheet6ªº ³o¸Ì¤]­n: Rªº¼Æ¾Ú «ü©w¨ì Rng
    
24.          With Sheet6 'ª÷¿Ä´Á§Ú¥[¤Jªº³¡¤À
    
25.         Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
    
26.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
    
27.         Set R = Application.Evaluate(Mid(.Range("A3").Formula, 4))
    
28.         'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
    
29.          Rng.Value = R.Offset(, 1).Resize(, 6).Value                        'Rªº¼Æ¾Ú «ü©w¨ì Sheet6ªº Rng
    
30.     End With
    
31.     End With
    
32.     End With
    
33.        If Time > TimeValue("13:45:00") Then Exit Sub
    
34.     Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
    
35. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# jerrystock

1. Private Sub change()
   
2.     Dim TimeRange As Range, Rng As Range, R As Range
   
3.     With Sheet2
   
4.         Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
   
5.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
   
6.         Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
   
7.         'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
   
8.         Rng.Value = R.Offset(, 1).Resize(, 6).Value                         ' ***³o¸Ì¤]­n: Rªº¼Æ¾Ú «ü©w¨ì Rng
   
9.         .Activate
   
10.         Rng.Select
    
11.         With Sheet5 '¹q¤l´Á§Ú¥[¤Jªº³¡¤À
    
12.             Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
    
13.             Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
    
14.             Set R = Application.Evaluate(Mid(.Range("A3").Formula, 3))
    
15.             'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
    
16.             Rng.Value = R.Offset(, 1).Resize(, 6).Value                         ' ****Sheet6ªº ³o¸Ì¤]­n: Rªº¼Æ¾Ú «ü©w¨ì Rng
    
17.             .Activate
    
18.             Rng.Select
    
19.             With Sheet6 'ª÷¿Ä´Á§Ú¥[¤Jªº³¡¤À
    
20.                 Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
    
21.                 Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
    
22.                 Set R = Application.Evaluate(Mid(.Range("A3").Formula, 4))
    
23.                 'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m
    
24.                 Rng.Value = R.Offset(, 1).Resize(, 6).Value                        'Rªº¼Æ¾Ú «ü©w¨ì Sheet6ªº Rng
    
25.                 .Activate
    
26.                 Rng.Select
    
27.             End With
    
28.         End With
    
29.     End With
    
30.     If Time > TimeValue("13:45:00") Then Exit Sub
    
31.     Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
    
32. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# jerrystock

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()  'Sheet6¼Ò²Õªº­«ºâ¨Æ¥ó
   
3.     '»Ý¥ý¦bSheet6 ¼g¤W¤½¦¡
   
4.     '¦p A2=Sheet2!A1   Sheet2ªº¶}½L»ù
   
5.     '¦p B2=Sheet2!B1   Sheet2ªº¦¬½L»ù
   
6.     '¼Æ¾Ú±qA4©¹¤U°O¿ý  ¨Ò:A4 ="¦¬½L»ù"
   
7.     With Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 2)
   
8.         .Value = [A2].Resize(, 2).Value
   
9.         .Select
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# jerrystock
Private Sub Worksheet_Calculate()  'Sheet6¼Ò²Õªº­«ºâ¨Æ¥ó
§A¬O½Æ»s¦bSheet6¼Ò²Õ¤º¶Ü? ¦pªG¬O ÁÙ¦³ºÃ°Ý ½ÐªþÀÉ¨Ó¬Ý¬Ý .

GBKEE

¦^´_ 11# jerrystock

1. Private Sub Worksheet_Calculate()  'Sheet6¼Ò²Õªº­«ºâ¨Æ¥ó
   
2.     Me.Activate         '*****¥[¤W³oµ{¦¡½X
   
3.     With Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 9)
   
4.         .Value = [A7].Resize(, 9).Value
   
5.         .Select
   
6.     End With
   
7. End Sub

½Æ»s¥N½X