返回列表 上一主題 發帖

[發問] 如何讓變數跑迴圈?

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
119  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-7-24 08:04 | 顯示全部帖子
本帖最後由 Hsieh 於 2012-7-24 08:07 編輯

回復 1# av8d


T1R1="小明"，這是將字串"小明"指定給變數T1R1
"T1R" & i，這是一個字串運算式得到式一個字串，並非變數
以字典儲存字串對應資料後，再取出字典內容試試
  1. Private Sub CommandButton3_Click()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. d("T1R1") = "小明"
  4. '資料轉換
  5. For i = 1 To 18
  6.     If Me.Controls("OptionButton" & i).Value = True Then
  7.         If i = 1 Then
  8.         Sheets("點餐").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7) = Array(L1C, L2C, L3C, L4C, 1, d("T1R" & i), TB1)
  9.         End If
  10.     End If
  11. Next i
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題