標題: 宣告變數是否可以寫成迴圈? (自訂表單) [打印本頁]

---

作者: av8d    時間: 2012-7-25 23:14     標題: 宣告變數是否可以寫成迴圈? (自訂表單)

本帖最後由 av8d 於 2012-7-25 23:48 編輯

以下是在自訂表單內宣告的
L1C = Label1.Caption
L2C = Label2.Caption
L3C = Label3.Caption
L4C = Label4.Caption
L5C = Label5.Caption
L6C = Label6.Caption

以上是宣告變數
L1C~L6C會一直增加L7C,L8C一直上去~如果增加~是否能寫宣告迴圈?

---

作者: GBKEE    時間: 2012-7-26 18:25

回復 1# av8d

1. Option Explicit
   
2. Dim AR()
   
3. Sub Ex()
   
4.     Dim A As Integer, I As Integer
   
5.     A = 3    '你須計算變數的數目
   
6.     ReDim AR(1 To A)
   
7.     For I = 1 To UBound(AR)
   
8.         AR(I) = UserForm1.Controls("Label" & I).Caption
   
9.     Next
   
10. End Sub

複製代碼

---

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