GBKEE

¦^´_ 1# cji3cj6xu6
´ú¸Õ¬Ý¬Ý

1. Sub Ex()
   
2.     Application.OnTime Now + TimeValue("00:00:2"), "sub1"
   
3.     Application.OnTime Now + TimeValue("00:00:2"), "sub2"  '³o·|¥ý°õ¦æ
   
4. End Sub
   
5. Sub Sub1()
   
6.     MsgBox "Sub1"
   
7. End Sub
   
8. Sub Sub2()
   
9.     MsgBox "Sub2"
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# cji3cj6xu6
¤£­n½ÆÂø¤Æ

1. Sub Ex()
   
2.     Application.OnTime Now + TimeValue("00:00:2"), "sub_ALL"
   
3. End Sub
   
4. Sub Sub_ALL()
   
5.     Sub1
   
6.     Sub2
   
7.     Sub3(4)
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# cji3cj6xu6
¤£¥¿½T»yªk , µ{§Ç­n±µ¦¬ªº°Ñ¼Æ¶·¬OÅܼÆ

1. Sub sub3(xy, XYz)
   
2.     XYz = CDate("3/12")
   
3. End Sub

½Æ»s¥N½X