- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# tony.fang6413
ªþÀɵ{¦¡½X Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
¦b AÄæ´M§ä®É¶¡¬O¿ù»~ªº ®É¶¡¦bBÄæ
קï§Aªºµ{¦¡½X¦p¤U
Private Sub Workbook_Open()
If Time < Sheet2.[B3] Then
Application.OnTime Sheet2.[B3].Value, "ThisWorkbook.Achange"
Else
Achange
End If
End Sub
Private Sub Achange()
Dim TimeRange As Range
Set TimeRange = Sheet2.[B:B].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
If Not TimeRange Is Nothing Then
TimeRange.Offset(, 1).Resize(1, 2) = Array(Sheet1.[F1], Sheet1.[F2])
Application.OnTime TimeSerial(Hour(Time), Minute(Time) + 1, 0), "ThisWorkbook.Achange"
End If
End Sub |
|