出力配列の内容の各要素

Question

を選択せず​​に、私は、次の多次元配列構造を持っている

Type Wedge 
    C407    As Long 
    C417    As Long 
    C507    As Long 
    C516    As Long 
    C607    As Long 
    C617    As Long 
    C707    As Long 
    C716    As Long 
    C807    As Long 
    C817    As Long 
    C907    As Long 
    C916    As Long 
End Type 

上記のそれは約35の要素

Global myWedge() As Wedge 
ReDim myWedge(99, 4) 

を持っている私は、配列を埋めたが、今出力したいしています配列の内容をワークシートに追加します。以前は他の小さな配列では、以下のように各要素を出力しました。

しかし、要素の数を考えれば、要素をループして各要素について上記を行う必要なしにシートに配置したいだけです。

=この可能

おかげでちょうどワットで苦労

Answer 1

機能を使用してください....

Function PropertyOf(wedgeType As Wedge, index As Integer) As Long 
    Dim w As Long 

    With wedgeType 
    Select Case index 
     Case 1 
     w = .C407 
     Case 2 
     w = .C417 
     Case 3 
     w = .C507 
     .... 
    End Select 
    End With 
    PropertyOf = w 
End Function 

その後

Dim w As Wedge 
For a = 1 To 4 
    w = myWedge(x, a) 
    For c = 1 To 35 
    p = PropertyOf(w, c) 
    If p > 0 Then 
     ' Do your stuff here 
    End If 
    Next c 
Next i