marco, ¥i§_¥u¦b«ü©wªºworkbook¸Ì¥Í®Ä? ¦Ó¤£¬O©Ò¦³¤w¸g¶}©lªºworkbook ?
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- win7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-9-14
- ³Ì«áµn¿ý
- 2011-9-19
|
marco, ¥i§_¥u¦b«ü©wªºworkbook¸Ì¥Í®Ä? ¦Ó¤£¬O©Ò¦³¤w¸g¶}©lªºworkbook ?
§Ú¬OVBA·s¤â, ²{¦³°ÝÃD½Ð±Ð¦U°ª¤â! ¥ýÁÂÁ¤j®aÀ°¦£!
§Ú¬O¤@¶¡¤p¤Ú¤½¥qªº¥D¥ô, ¦Ñ²Ón§Ú¨î©w¤@ÓÀÉ®×¥h´£¿ô§Ú̦³¨S¦³¥q¾÷¿ð¨ì!
¦b¶}§Ú¦Û¤v¨î§@ªº³æ¤@Àɮ׬O¨S¦³°ÝÃDªº, ¦ý·í§Ú¦P®É¶}±Ò¨ä¥LÀÉ®×®É, ´£¨ú¹ê®É(real time)ªºÀx¦s®æªºmarco´N¥X°ÝÃD¤F!
½Ð°Ý¦³¨S¦³¤èªk¥u¥O´£¨ú¹ê®Éªºmarco, ¥u¦b«ü©wªºworkbook¸Ì¥Í®Ä?
Private Sub Workbook_Open()
Sheets("Control").Range("B1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, Sheets("Control").Range("B9")), "RealTime"
End Sub
====================================================================
Sub Realtime()
Sheets("Control").Range("B1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, Sheets("Control").Range("B9")), "RealTime"
End Sub
reminder.rar (24.62 KB)
|
|
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- win7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-9-14
- ³Ì«áµn¿ý
- 2011-9-19
|
|
|
|
|
|
|