字串...物件化?! 目的:Call 字串 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 字串...物件化?! 目的:Call 字串

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2016-8-13 17:19 | 顯示全部帖子

回復 1# VBALearner

換個角度思考，世界會更廣！

Dim a As Integer
Sub Main()
a = InputBox("要執行哪個程序")
程序
End Sub
Sub 程序()
Select Case a
Case 1
'放入程序1的程式碼.............
MsgBox ("目前使用的是程序A")
Case 2
'放入程序2的程式碼.............
MsgBox ("目前使用的是程序B")
Case 3
'放入程序3的程式碼.............
MsgBox ("目前使用的是程序C")
End Select
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-8-13 17:33 | 顯示全部帖子

回復 1# VBALearner

Sub Main()
a = InputBox("要執行哪個程序")
Run ("程序" & a)
End Sub
Sub 程序1()
MsgBox ("目前使用的是程序1")
End Sub
Sub 程序2()
MsgBox ("目前使用的是程序2")
End Sub
Sub 程序3()
MsgBox ("目前使用的是程序3")
End Sub
Sub 程序4()
MsgBox ("目前使用的是程序4")
End Sub

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。

返回列表下一主題上一主題