トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 4-4　リストを設定する

Private Sub UserForm_Initialize()
    Dim varList As Variant
    varList = Array("りんご", "ぶどう", "みかん", "いちご", "パイナップル", "キウイ")
    ComboBox1.List = varList
End Sub

Private Sub UserForm_Initialize()
    Dim varFruits As Variant
    Dim varList() As Variant
    Dim i         As Long
    varFruits = Array("りんご", "ぶどう", "みかん", "いちご", "パイナップル", "キウイ")
    ReDim varList(UBound(varFruits), 1) '2次元配列を作成
    For i = LBound(varFruits) To UBound(varFruits)
        varList(i, 0) = i + 1
        varList(i, 1) = varFruits(i)
    Next
    With ComboBox1
        .ColumnCount = 2 'リスト表示を2列にする
        .List = varList
    End With
End Sub

書籍紹介140以上のサンプルファイル付き！

知りたいがすぐわかる！　やりたいがすぐできる！
「Excel VBA 逆引きで学ぶ ユーザーフォーム&コントロール」（Kindle版）
ユーザーフォームを扱えると、VBAでできることが大きく広がります！
本書では、知りたいこと、やりたいことから、逆引きで学びを深められます。

■ 購入：amazon