©I¥s°Æµ{¦¡¡A¥¢±Ñ

cji3cj6xu6

Dear All,

½Ð°Ý¡A·í§Ú¥[¤J   Call sub3(4) ³o¦æ«ü¥O«e¡A°Ê§@«Ü¥¿±`¡A¦ý¥[¤J«á¡A
µo²{sub1 ¦³°õ¦æ¡Asub2 «o¨S¦³°Ê§@¡A´Nª½±µ°õ¦æsub3¤F¡A¤£¾å±o­þ¸Ì¥X¤F°ÝÃD¡C

ÁÂÁ¡ã

Sub File_Copy()

    Windows("table.csv").Activate
    Range("A1:f3000").Select
    Selection.Copy
    Windows("tablex.xlsm").Activate
    Sheets(1).Select
    Range("A1").Select
    ActiveSheet.Paste
   
    Application.OnTime Now + TimeValue("00:00:2"), "sub1"
    Application.OnTime Now + TimeValue("00:00:2"), "sub2"
    Call sub3(4)
   
End Sub

cji3cj6xu6

¥ý«e¥Î  sub3(4, XYz)  ª½±µ°õ¦æ¡A¥X²{½sĶ¿ù»~¡A¤@ª½·d¤£©w¡C
¬Ý¨ìg¤jªº»yªk¡A»P§ÚªºÆZ±µªñªº¡AÁÙ¬O·Q¤£³q¡C
­è¦A¨ìºô¸ô¤W·j´M¤@¦¸¡AÀ³¸Ó¬O§Ú°Ý¿ù¤è¦V¤F¡C
¥¿¸Ñ¬O¡G
call sub3(4, XYz)
¦n¹³³o¼Ë´N¥i¥H¥¿±`¤u§@¤F¡C
Thanks.

GBKEE

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

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

½Æ»s¥N½X

cji3cj6xu6

·Q¦A½Ð±Ð¤@¤U¡A·í¶Ç¦^ªº¸ê®Æ¬O¨âµ§¥H¤W¥i¦æ¶Ü¡H³o¸Ì­n¦p¦ó­×§ï©O¡H
ÁÂÁ¡ã

sub3(4, XYz)

XYz = Cdate("3/12")

end sub

cji3cj6xu6

Ha Ha Ha ­ì¨ÓÁÙ¦³³o©Û¡AÁÂÁÂg¤j´£¨Ñ¡ã

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

cji3cj6xu6

ÁÂÁÂg¤j¡A
¦ý¬O§Ú·Q­n±µµÛ°õ¦æsub3(4)
ÁÙ¬O­n
Application.OnTime Now + TimeValue("00:00:2"), "sub3(4)"
¦ý¡A³o¼Ëªº¼gªk¡A»yªk¦³¿ù¡ã

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