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

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

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

½Ð±Ð¦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¤£ºÉ...
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

¦^´_ 1# VBALearner


    ´«­Ó¨¤«×«ä¦Ò¡A¥@¬É·|§ó¼s¡I
  1. Dim a As Integer

  2. Sub Main()
  3.     a = InputBox("­n°õ¦æ­þ­Óµ{§Ç")
  4.     µ{§Ç
  5. End Sub

  6. Sub µ{§Ç()
  7.     Select Case a
  8.         Case 1
  9.             '©ñ¤Jµ{§Ç1ªºµ{¦¡½X.............
  10.             MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇA")
  11.         Case 2
  12.             '©ñ¤Jµ{§Ç2ªºµ{¦¡½X.............
  13.             MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇB")
  14.         Case 3
  15.             '©ñ¤Jµ{§Ç3ªºµ{¦¡½X.............
  16.             MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇC")
  17.     End Select
  18. End Sub
½Æ»s¥N½X

TOP

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

TOP

¦^´_ 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

TOP

¦^´_ 1# VBALearner

®¦....·PÁ±zªº¦^µª:D ÁöµM§Úªº¥Øªº¤£¯à¥Îselect caseªº¤è¦¡¹F¦¨¡A¤£¹LÁÙ¬O·PÁ±z!
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

¦^´_ 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ÁÂÁ¦^ÂÐ!
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

¦^´_ 4# lpk187

³á³á§Ú¨S¦³¥ý¬Ý¨ì±zªº³o½g¦^ÂСArun§¹¥þ¸Ñ¨M³o°ÝÃD! ·PÁ±z~~~
¥i¥H¶Ç»¼¤Þ¼Æ¯u¬O¤Ó´Î¤F>w<
application.run µ{§Ç¦W,¤Þ¼Æ
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD