[發問] 變數中的數字再用另一個變數表示的方法

帖子: 15
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: windows xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-1-17
最後登錄: 2014-3-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-8-14 17:16 | 只看該作者

[發問] 變數中的數字再用另一個變數表示的方法

如下的VBA，我希望出現三個msgbox分別顯示 AA , BB , CC
但是我想要把 a1 , a2 , a3 中的數字部分用 For 迴圈的 i = 1 To 3 來取代
請問 MsgBox後面的那一串，該如何表示呢?
感激不盡!!

Sub test()
a1 = "AA"
a2 = "BB"
a3 = "CC"
For i = 1 To 3
MsgBox ?????????????
Next
End Sub

複製代碼

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-8-14 20:20 | 只看該作者

回復 1# sweetkitty
用陣列

Option Explicit
Sub Ex()
Dim Ar(1 To 3), i As Integer
Ar(1) = "AA"
Ar(2) = "BB"
Ar(3) = "CC"
For i = 1 To 3
MsgBox Ar(i)
Next
End Sub

複製代碼

帖子: 15
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: windows xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-1-17
最後登錄: 2014-3-26

3^#

發表於 2012-8-15 11:28 | 只看該作者

回復 2# GBKEE

好高級的東西喔 @@ 從來沒使用過這種方法
感激不盡! 學到新東西了 ^^

帖子: 15
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: windows xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-1-17
最後登錄: 2014-3-26

4^#

發表於 2012-8-15 14:32 | 只看該作者

回復 2# GBKEE

不好意思~ 更進一步的請問:
如果這個陣列的大小不是定數，而是要在前面用其他方式算出這個值，我把它設成變數k代進陣列中
他會出現針對"Dim Ar(1 To k)" 中的 "k"，"必須是常數運算式"的視窗
請問該怎麼處理? 感謝 ^^

Sub Ex()
k=3
Dim Ar(1 To k), i As Integer
Ar(1) = "AA"
Ar(2) = "BB"
Ar(3) = "CC"
For i = 1 To 3
MsgBox Ar(i)
Next
End Sub

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-8-15 15:13 | 只看該作者

回復 4# sweetkitty

Option Explicit
Sub Ex()
Dim i As Integer, k As Integer
k = 2
ReDim Ar(0 To k) 'ReDim :重新宣告陣列
Ar(0) = "AA"
Ar(1) = "BB"
Ar(2) = "CC"
For i = 0 To k
MsgBox Ar(i)
Next
End Sub

複製代碼

帖子: 15
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: windows xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-1-17
最後登錄: 2014-3-26

6^#

發表於 2012-8-15 17:15 | 只看該作者

回復 5# GBKEE

感謝!! 雖然搞不懂為什麼這樣就可以了 QQ
程式真是神奇的東西阿