½Ð¯q¡G¬°¤°»ò¨Ï¥Îcall ©I¥s ¤Ï¦Ó·|¥X²{¿ù»~
- ©«¤l
- 82
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 112
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-3
- ³Ì«áµn¿ý
- 2020-9-21
|
½Ð¯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 |
|
|
|
|
|
|
- ©«¤l
- 181
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-9
- ³Ì«áµn¿ý
- 2024-4-29
|
call need ( )
Call N_Sample005_1 ( myStr:="N_Sample005_1" ) |
|
|
|
|
|
|