標題: [發問] 如何讓變數跑迴圈? [打印本頁]

---

作者: av8d    時間: 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    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)