トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 4-15　リストに表示する最大行数を設定する

Private Sub UserForm_Initialize()
    With ComboBox1
        .RowSource = "Sheet1!A2:B8"
        .ColumnCount = 2    '表示列範囲
        .ColumnHeads = True '見出しあり
        .ListRows = 3       'リストの行表示は「3」
    End With
End Sub