遍歷VBA

Question

我創造了這個類的類的屬性，

Interval.cls 
public x as new collection 
public y as new collection 
public z as string 

我通過屬性要循環，因爲我希望用戶選擇輸入X，Y，Z的形式，以便於我sub

sub test() 

dim inter as new Intervals 

inter.x.add "a" 
inter.x.add "a" 
inter.x.add "b" 
inter.x.add "b" 
inter.x.add "b" 

userString1 = x 
userString2 = a 

'我想讓它變成動態的，這樣無論用戶想要什麼，我都可以提供結果。 「我只是想使人們有可能在userString比較我的屬性

for each i in inter 

」，所以我想爲我在這個圈是我的財產，X，Y，Z，所以我可以讓if語句 如果（I = userString1）然後

end if 
next i 
end sub 

我知道我也許可以做一個tweek在類使其可迭代，我不知道該怎麼辦呢

任何幫助表示讚賞

Answer 1

'in class 
Public Property Get Item(i As Integer) As Variant 

    Select Case ndx 
     Case 1: Item = Me.x 
     Case 2: Item = Me.y 
     Case 3: Item = Me.z 
    End Select 

End Property 

'in sub 
Dim c as Collection 
Dim s as String 

For i = 1 to 3 
    if i < 3 then 
     set c = inter.Item(i) 
     'iterate through collection 
    else 
     s = inter.Item(i) 
    end if 
next i 

這樣的事情可能是要走，我沒有測試它的最簡單的方法，但希望它至少可以讓你開始

Answer 2

這是諸如此類的事情，你是後？

'in class 
Public x As New Collection 
Public y As New Collection 
Public z As String 
Public Property Get Item(i As Integer) As Variant 

    Select Case i 
     Case 1: Item = Me.x 
     Case 2: Item = Me.y 
     Case 3: Item = Me.z 
    End Select 

End Property 

Sub try() 

Dim userString2 As String 
Dim userString1 As String 
Dim inter As Interval 
Dim i As Integer 

Set inter = New Interval 

inter.x.Add "a" 
inter.x.Add "a" 
inter.x.Add "b" 
inter.x.Add "b" 
inter.x.Add "b" 

userString2 = "aabbb" 

For i = 1 To inter.x.Count 

     userString1 = userString1 & inter.x.Item(i) 
Next i 

If userString1 = userString2 Then 
'<do whatever> 
End If 
End Sub 

好的如何忘記類和只使用數組？字符串數組可以是任意長度的，您可以通過調用過程動態控制它的大小。

Sub tryWithArray(ByRef StringArray() As String) 

Dim userString2 As String 
Dim i As Integer 

userString2 = "b" 


For i = 1 To UBound(StringArray()) 
    If userString2 = StringArray(i) Then 
     'do something 
    End If 
Next i 

End Sub