ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

marco, ¥i§_¥u¦b«ü©wªºworkbook¸Ì¥Í®Ä? ¦Ó¤£¬O©Ò¦³¤w¸g¶}©lªºworkbook ?

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)

¦^´_ 1# tongbcat
  1. Sub Realtime()
  2. ThisWorkbook.Sheets("Control").Range("B1").Value = Time
  3. Application.OnTime Time + TimeSerial(0, 0, ThisWorkbook.Sheets("Control").Range("B9")), "Realtime"
  4. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  5.     'With ThisWorkbook
  6.     '    .Sheets("Control").Range("B1").Value = Time
  7.     '    Application.OnTime Time + TimeSerial(0, 0, .Sheets("Control").Range("B9")), "Realtime"
  8.     'End With
  9. End Sub
½Æ»s¥N½X
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     With Sheet6.WindowsMediaPlayer1
  3.         If [B8] = 0 Then
  4.             .URL = Workbooks("reminder.xls").Sheets("Control").Range("B4")
  5.             .Visible = False
  6.             .Controls.Play
  7.             .Controls.stop
  8.         ElseIf [B8] > 0 Then
  9.             .URL = Workbooks("reminder.xls").Sheets("Control").Range("B5")
  10.             .Visible = False
  11.             .Controls.Play
  12.             MsgBox "       ¦³ ¤H ¿ð ¨ì  !"
  13.             .Controls.stop
  14.         End If
  15.     End With
  16. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂ, OK ¤F, ¦Ñ²Ó¦¬³f°Õ!

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD