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

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

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

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂ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¦³¿ù¡ã

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-3-10 15:54 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

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

sub3(4, XYz)

XYz = Cdate("3/12")

end sub

TOP

¦^´_ 6# cji3cj6xu6
¤£¥¿½T»yªk , µ{§Ç­n±µ¦¬ªº°Ñ¼Æ¶·¬OÅܼÆ
  1. Sub sub3(xy, XYz)
  2.     XYz = CDate("3/12")
  3. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥ý«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.

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD