ªð¦^¦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 '¨ì¼ÆÄ²µ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)

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD