配列の要素数変更

 

Sub test()

 ’ 配列の要素数変更


    Dim Vegetabales() As String
    Dim Vb As Variant
    
    ReDim Vegetabales(1)
    Vegetabales(0) = "ブロッコリ"
    Vegetabales(1) = "フロワー"
    
    ReDim Preserve Vegetabales(3)
    Vegetabales(2) = "セロリ"
    Vegetabales(3) = "パセリ"
        
    For Each Vb In Vegetabales
       Debug.Print Vb
    Next


End Sub

 

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事