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

½Ð¯q¡G¬°¤°»ò¨Ï¥Îcall ©I¥s ¤Ï¦Ó·|¥X²{¿ù»~

½Ð¯q¡G¬°¤°»ò¨Ï¥Îcall ©I¥s ¤Ï¦Ó·|¥X²{¿ù»~

½Ð°Ý¦U¦ì¥ý¶i

§Ú¦b½m²ßVBA®É (EXCEL 2007)

¦b¦P¤@­Ó¼Ò²Õ¸Ì­±©I¥s¥H¤Uµ{¦¡½X

Option Explicit
Sub N_Sample005()
    Dim myStr As String
   N_Sample005_1 myStr:="N_Sample005_1"
End Sub

'³Q©I¥s¥Xªºµ{§Ç
Sub N_Sample005_1(myStr As String)
    MsgBox myStr
End Sub

§Ú¦Û¤v¤âÄo §â©I¥sªº¤è¦¡§ï¦¨ ¨Ï¥Î¡yCall¡z
¤Ï¦Ó·|¥X²{  ::¥²¶·¬O³¯­z¦¡µ²§À
³o­Ó¿ù»~°T®§  ½Ð°Ý¬°¤°»òªü??
¤£¬O¥Îcall ´N¥i¥H©I¥s°Æµ{¦¡¶Ü??
³o­Ó½d¨Ò¤Ï¦Ó¤£¥Îcall ÃöÁä¦r ´N¯à±Ò°Ê°Æµ{¦¡??



Option Explicit
Sub N_Sample005()
    Dim myStr As String
   Call  N_Sample005_1 myStr:="N_Sample005_1"    '§ï¦¨³o¼Ë¤l
End Sub

'³Q©I¥s¥Xªºµ{§Ç
Sub N_Sample005_1(myStr As String)
    MsgBox myStr
End Sub

call need ( )

   Call  N_Sample005_1 ( myStr:="N_Sample005_1" )

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD