[發問] For ... To ... 的問題

e123chen

For ... To ... 的問題

每次寫 For i=0 To N 就好像很懂，套上 For j=0 To M 就很暈。

請問如何將這個：

Private arr1() As Class1命令按鈕
Private arr2() As Class1命令按鈕
Private arr3() As Class1命令按鈕
..........

Private Sub UserForm_Initialize()
    ReDim arr1(Me.Frame1.Controls.Count - 1)
    For i = 0 To Me.Frame1.Controls.Count - 1
        Set arr1(i) = New Class1命令按鈕
        Set arr1(i).Class1縣市區 = Me.Frame1.Controls(i)
    Next
    ReDim arr2(Me.Frame2.Controls.Count - 1)
    For i = 0 To Me.Frame2.Controls.Count - 1
        Set arr2(i) = New Class1命令按鈕
        Set arr2(i).Class1縣市區 = Me.Frame2.Controls(i)
    Next
    ReDim arr3(Me.Frame3.Controls.Count - 1)
    For i = 0 To Me.Frame3.Controls.Count - 1
        Set arr3(i) = New Class1命令按鈕
        Set arr3(i).Class1縣市區 = Me.Frame3.Controls(i)
    Next
..........
End Sub

簡化成
For i=0 To N
     For j=0 To M
        .....
        ........
     Next j
Next i

e123chen

回復 4# Min


感謝版大指教。

九九乘法學過。
我本來想寫：

For i=0 To Frames.Count-1
     For j=0 To Frames(i).Controls.Count-1
        .....
        ........
     Next j
Next i

可是沒有 Frames，第一句就卡住了.....

e123chen

回復 3# GBKEE


    感謝版大指導，比我原來要的還理想。

Min

呵呵呵~ for迴圈很難懂... 真的!
學會後 會覺得很簡單! 否則到底還是看不懂 不會用^^"

讓小弟分享一個簡單的學習法
試著在excel上寫一個"九九乘法表" 先別著上google找喔~
自己寫後 你就覺得很簡單了 就出師了~

GBKEE

回復 2# e123chen
物件模組中的 Class1縣市區 As MSForms.CommandButton.
表單中沒有其他作用的CommandButton, 所以將表單中的 CommandButton 指定為 Class1縣市區 即可

1. Dim Ar() As New Class1命令按鈕
   
2. Private Sub UserForm_Initialize()
   
3.     Dim e As MSForms.Control
   
4.     ReDim Ar(0)
   
5.     For Each e In Me.Controls  '表單中的控制項集合
   
6.         If e.Name Like "CommandButton*" Then '在表單中的控制項的名稱尋找包含 "CommandButton"
   
7.             Set Ar(UBound(Ar)).Class1縣市區 = e
   
8.             ReDim Preserve Ar(UBound(Ar) + 1)
   
9.         End If
   
10.     Next
    
11. End Sub

複製代碼

e123chen

附件
0.zip (560.28 KB)

下載次數: 8

2011-4-12 13:46