返回列表 上一主題 發帖

[發問] 字串...物件化?! 目的:Call 字串

[發問] 字串...物件化?! 目的:Call 字串

請教各位高手
小弟想呼叫一個程序 名稱是我指定的"字串"
  1. sub 中控台()
  2. a = inputbox("numbers......")
  3. Call 程序a '如果a是10,就要 Call 程序10
  4. ...
  5. end sub
複製代碼
可是現在我卡在Call 後面不能是字串... 也就是 :  "程序" & a
請問各位大大有沒有遇過這種需求O___Q
還請協助小弟 感激不盡...
真心感謝每一位願意分享所學、指導新手的人!

回復 1# VBALearner


    換個角度思考,世界會更廣!
  1. Dim a As Integer

  2. Sub Main()
  3.     a = InputBox("要執行哪個程序")
  4.     程序
  5. End Sub

  6. Sub 程序()
  7.     Select Case a
  8.         Case 1
  9.             '放入程序1的程式碼.............
  10.             MsgBox ("目前使用的是程序A")
  11.         Case 2
  12.             '放入程序2的程式碼.............
  13.             MsgBox ("目前使用的是程序B")
  14.         Case 3
  15.             '放入程序3的程式碼.............
  16.             MsgBox ("目前使用的是程序C")
  17.     End Select
  18. End Sub
複製代碼

TOP

請善用 Google 大神
Application.Run

TOP

回復 1# VBALearner
  1. Sub Main()
  2.     a = InputBox("要執行哪個程序")
  3.     Run ("程序" & a)
  4. End Sub
  5. Sub 程序1()
  6.     MsgBox ("目前使用的是程序1")
  7. End Sub
  8. Sub 程序2()
  9.     MsgBox ("目前使用的是程序2")
  10. End Sub
  11. Sub 程序3()
  12.     MsgBox ("目前使用的是程序3")
  13. End Sub
  14. Sub 程序4()
  15.     MsgBox ("目前使用的是程序4")
  16. End Sub
複製代碼

TOP

回復 1# VBALearner

恩....感謝您的回答:D 雖然我的目的不能用select case的方式達成,不過還是感謝您!
真心感謝每一位願意分享所學、指導新手的人!

TOP

回復 3# jackyq

我完全不知道該如何在Google搜尋欄位裡表達我的問題,有點複雜而且不是大家常遇到的狀況xD
第一次看到run這個語法呢,是可以去Google一下,有問題再回來詢問您,謝謝回覆!
真心感謝每一位願意分享所學、指導新手的人!

TOP

回復 4# lpk187

喔喔我沒有先看到您的這篇回覆,run完全解決這問題! 感謝您~~~
可以傳遞引數真是太棒了>w<
application.run 程序名,引數
真心感謝每一位願意分享所學、指導新手的人!

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題