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

[µo°Ý] ¶}±ÒexcelÀÉ®×«á ¡A­Ë¼Æ¤@¬q®É¶¡(©Î¨ì¤F³]©w®É¶¡)§Y°õ¦æ¥t¤@¬qµ{¦¡ªº¼gªk

[µo°Ý] ¶}±ÒexcelÀÉ®×«á ¡A­Ë¼Æ¤@¬q®É¶¡(©Î¨ì¤F³]©w®É¶¡)§Y°õ¦æ¥t¤@¬qµ{¦¡ªº¼gªk


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)

¦^´_ 1# ji12345678


¦p¹Ï,§â
Sub StartTimer2()
MsgBox "¸ê®Æ½Æ»sµ²§ô"
End Sub
²¾¦Ü¤@¯ë¼Ò²Õ¤º

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD