Sub Workbook_open()
DoEvents '¡H
'Application.OnTime "16:06:50", "StartTimer2", schedule:=True '³]©w®É¶¡Ä²µo
Application.OnTime Now + TimeValue("00:00:05"), "StartTimer2", schedule:=True '¨ì¼ÆIJµo
End Sub
Sub StartTimer2()
MsgBox "¸ê®Æ½Æ»sµ²§ô"
End Sub
n¼g¤@¬q´ú¸Õµ{¦¡¡A¶}±ÒexcelÀÉ®×«á ¡A˼Ƥ@¬q®É¶¡(©Î¨ì¤F³]©w®É¶¡)§Y°õ¦æ¥t¤@¬qµ{¦¡ªº¼gªk
¥i¬O¤@ª½¥X²{¿ù»~°T®§¡A½Ð¤j¤j«ü±Ð~~¬°¤°»ò·|³o¼Ë~~¡CÁÂÁÂ
test-101.5.13.rar (5.86 KB)
|