[µo°Ý] ¦r¦ê...ª«¥ó¤Æ?! ¥Øªº:Call ¦r¦ê

VBALearner

½Ð±Ð¦U¦ì°ª¤â
¤p§Ì·Q©I¥s¤@­Óµ{§Ç ¦WºÙ¬O§Ú«ü©wªº"¦r¦ê"

1. sub ¤¤±±¥x()
   
2. a = inputbox("numbers......")
   
3. Call µ{§Ça '¦pªGa¬O10¡A´N­n Call µ{§Ç10
   
4. ...
   
5. end sub

½Æ»s¥N½X

¥i¬O²{¦b§Ú¥d¦bCall «á­±¤£¯à¬O¦r¦ê... ¤]´N¬O :  "µ{§Ç" & a
½Ð°Ý¦U¦ì¤j¤j¦³¨S¦³¹J¹L³oºØ»Ý¨DO___Q
ÁٽШó§U¤p§Ì ·P¿E¤£ºÉ...

lpk187

¦^´_ 1# VBALearner


    ´«­Ó¨¤«×«ä¦Ò¡A¥@¬É·|§ó¼s¡I

1. Dim a As Integer
   
2. 
   
3. Sub Main()
   
4.     a = InputBox("­n°õ¦æ­þ­Óµ{§Ç")
   
5.     µ{§Ç
   
6. End Sub
   
7. 
   
8. Sub µ{§Ç()
   
9.     Select Case a
   
10.         Case 1
    
11.             '©ñ¤Jµ{§Ç1ªºµ{¦¡½X.............
    
12.             MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇA")
    
13.         Case 2
    
14.             '©ñ¤Jµ{§Ç2ªºµ{¦¡½X.............
    
15.             MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇB")
    
16.         Case 3
    
17.             '©ñ¤Jµ{§Ç3ªºµ{¦¡½X.............
    
18.             MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇC")
    
19.     End Select
    
20. End Sub

½Æ»s¥N½X

jackyq

½Ðµ½¥Î Google ¤j¯«
Application.Run

lpk187

¦^´_ 1# VBALearner

1. Sub Main()
   
2.     a = InputBox("­n°õ¦æ­þ­Óµ{§Ç")
   
3.     Run ("µ{§Ç" & a)
   
4. End Sub
   
5. Sub µ{§Ç1()
   
6.     MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§Ç1")
   
7. End Sub
   
8. Sub µ{§Ç2()
   
9.     MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§Ç2")
   
10. End Sub
    
11. Sub µ{§Ç3()
    
12.     MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§Ç3")
    
13. End Sub
    
14. Sub µ{§Ç4()
    
15.     MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§Ç4")
    
16. End Sub

½Æ»s¥N½X

VBALearner

¦^´_ 1# VBALearner

®¦....·PÁ±zªº¦^µª:D ÁöµM§Úªº¥Øªº¤£¯à¥Îselect caseªº¤è¦¡¹F¦¨¡A¤£¹LÁÙ¬O·PÁ±z!

VBALearner

¦^´_ 3# jackyq

§Ú§¹¥þ¤£ª¾¹D¸Ó¦p¦ó¦bGoogle·j´MÄæ¦ì¸Ìªí¹F§Úªº°ÝÃD¡A¦³ÂI½ÆÂø¦Ó¥B¤£¬O¤j®a±`¹J¨ìªºª¬ªpxD
²Ä¤@¦¸¬Ý¨ìrun³o­Ó»yªk©O¡A¬O¥i¥H¥hGoogle¤@¤U¡A¦³°ÝÃD¦A¦^¨Ó¸ß°Ý±z¡AÁÂÁ¦^ÂÐ!

VBALearner

¦^´_ 4# lpk187

³á³á§Ú¨S¦³¥ý¬Ý¨ì±zªº³o½g¦^ÂСArun§¹¥þ¸Ñ¨M³o°ÝÃD! ·PÁ±z~~~
¥i¥H¶Ç»¼¤Þ¼Æ¯u¬O¤Ó´Î¤F>w<
application.run µ{§Ç¦W,¤Þ¼Æ