返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-24 00:36 | 只看該作者

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

  1. Private Sub CommandButton3_Click()
  2. T1R1 = "小明"
  3. '資料轉換
  4. For i = 1 To 18
  5.     If Me.Controls("OptionButton" & i).Value = True Then
  6.         If i = 1 Then
  7.         Sheets("點餐").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7) = Array(L1C, L2C, L3C, L4C, 1, "T1R" & i, TB1)
  8.         End If
  9.     End If
  10. Next i
  11. End Sub
複製代碼
"T1R" & i 跑出來的值一直都是T1R1~
可是我上面有寫一個變數T1R1="小明"
所以"T1R" & i 跑出來的值應該是小明~怎麼會是T1R1 ? 求解中~我也努力找資料中~再次麻煩各位大大觀看!
收藏 分享

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題