GBKEE

¦^´_ 7# j1221
   

1. Private Sub Achange()
   
2.     Dim TimeRange As Range, Rng As Range, R As Range
   
3.     With Sheet2
   
4.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
   
5.         Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
   
6.     End With
   
7.     Rng.Value = Sheet1.[C2:H2].Value
   
8.     If Time > TimeValue("13:45:00") Then Exit Sub
   
9.     Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
   
10. End Sub

½Æ»s¥N½X

j1221

¦^´_ 6# GBKEE


ÁÂÁÂGBKEE¤j¡A

§Ú§ï¤F¡A¤]¦b­è­è¸Õ¤F¡A¥i¬O«oÁÙ¬O¸õ¥X¦P¼Ëªº¿ù»~°T®§¡A¬O§_¬O¦]¬°§Ú¦bsheet3¦³¥~¥[¹Ïªíªº°ÝÃD¡H

¥i§_ªþ¤Wªþ¥ó¡A½Ð±z¦AÀ°§Ú¬Ý¤@¤U¡H

GBKEE

¦^´_ 5# j1221
¤U¶g¤@ 08:45 «e¶}±ÒÀÉ®×´ú¸Õ¬Ý¬Ý

1. Private Sub Workbook_Open()
   
2. Sheet2.[B7:G307] = ""
   
3. If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
   
4. change
   
5. Else
   
6. Application.OnTime "08:45:00", "ThisWorkbook.change"
   
7. End If
   
8. End Sub

½Æ»s¥N½X

j1221

¦^´_ 4# GBKEE

·PÁÂGBKEE¤jªº¦^µª

§Ú¤w¸g§ï¦n¤F¡C

§Ú¬O¦b¶}½L«e¡A´N¥´¶}excelÀÉ¡A§Úsheet2¤Wªº²Ä¤@­Ó®É¶¡¬O8:45¡A©Ò¥H³o´N¬O¥X°ÝÃDªº­ì¦]¶Ü¡H

¨º....½Ð°Ý±z§Ú¸Ó«ç»ò§JªA³o­Ó±¡§Î¡Hµ¥¶}½L«á¦A¥´¶}excelÀÉ¡H

GBKEE

¦^´_ 3# j1221

¥X²{¡u¨S¦³³]©wª«¥óÅܼƩΠWith °Ï¶ôÅÜ¼Æ (¿ù»~ 91)¡vªº°T®§.....

½Ð°Ý§A´ú¸Õ®Éªº®É¶¡¬OSheet2ªºAÄæ¸Ì¦³ªº®É¶¡¶Ü?

2.¦A¬D¥X§Ú¤µ¤ÑÃöª`ªº¬Y¤@ÀÉ¡]¤ñ¦p»¡¤j¥x¡^¡A¦A±N¤j¥xªº¬ÛÃö¸ê°T«ü¦V²Ä¤G­Ó¤u§@ªí(sheet 2)

®Ú¾Ú§A»¡ªº ©Ò¥H->   Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
    ** R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m ->¤µ¤ÑÃöª`ªº¬Y¤@ÀÉ

¦pªG§A­n
¹ê»Ú¤W·Q­n°O¿ýªº¬O±NSheet1 ªºC2-H2°O¿ý¦ÜSheet2ªºB7-G7

¨º§A§ï¦¨ Rng.Value = Sheet1.[C2:H2].Value

j1221

¦^´_ 2# GBKEE


¥ýÁÂÁÂGBKEE¤jªº¦^´_¡I¡I

¤p§Ì­è­è¸Õ¤F¡A¶K¤Wµ{¦¡½X«á«öF5°õ¦æ¡A¥X²{¡u¨S¦³³]©wª«¥óÅܼƩΠWith °Ï¶ôÅÜ¼Æ (¿ù»~ 91)¡vªº°T®§.....
°»¿ù«á¡AÅã¥Ü¦³°ÝÃDªº³¡¥÷¬°¡ySet Rng = TimeRange.Offset(, 1).Resize(1, 6)¡z¡A¥i§_½Ð°Ý³o¬O¤°»ò­ì¦]©O¡H

ÁÙ¦³¥t¤@°Ý·Q½Ð±Ð±z¡A¥i§_½Ð°Ý±z¬°¤°»ò»Ý­n
¡ySet R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
        'R ¬OA3ªº¤½¦¡ =Data!B2 ©Ò«üªº¦ì¸m¡z

¦]¬°§Ú¹ê»Ú¤W·Q­n°O¿ýªº¬O±NSheet1 ªºC2-H2°O¿ý¦ÜSheet2ªºB7-G7¡AµM«á¨Ì®É¶¡¶¶§Ç©¹¤U°O¿ý
Sheet1!A3 «ü¦VSheet2!B2 ¥u¬O§Ú¬°¤F­n¤è«K¿ë»{¥Ø«e°O¿ýªº¶µ¥Ø¡A½Ð°Ý±z³o¼Ë³]©w¬O¦³¤°»ò¯S§Oªº§@¥Î¶Ü¡H

¦A¦¸ÁÂÁ±zªºÀ°§U

GBKEE

¦^´_ 1# j1221
¸Õ¸Õ¬Ý

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.     End With
    
18.     Rng.Value = R.Offset(, 1).Resize(, 6).Value
    
19.     If Time > TimeValue("13:45:00") Then Exit Sub
    
20.     Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
    
21. End Sub

½Æ»s¥N½X