VBA ListBox ColumnCount Property

ListBox_ColumnCount_Property – Syntax

Please find the below syntax of ListBox_ColumnCount_Property in Excel VBA.

ListboxName.ColumnCount=Number of Columns

Where ListboxName represents the ListBox object. In the above syntax we are using ‘ColumnCount’ property of ListBox object to set the number of columns in a listbox control.

ListBox_ColumnCount_Property – Explanation & Example

Here is the example for ListBox control ColumnCount_Property. It will take you through how to enable listbox control property of listbox using Excel VBA. Here you can find or see how we enable listbox using ‘ColumnCount’ property of listbox manually or using code.

ListBox_ColumnCount_Property: Change Manually

Please find the following details how we are changing manually ‘ColumnCount’ of listbox property.

1. 1. Go To Developer Tab and then click Visual Basic from the Code or Press Alt+F11.
   2. Go To Insert Menu, Click UserForm. Please find the screenshot for the same.

1. 1. Drag a Listbox on the Userform from the Toolbox.

1. 1. Right click on the List box. Click on properties from the available list.

1. 1. Now you can find the properties window of listbox on the screen. Please find the screenshot for the same.

1. 1. On the left side find ‘ColumnCount’ property from the available List Box properties.
   2. On the right side you can mention number. i.e an integer value.
   3. For example, I have entered 2. This means listbox contains two data columns. You can see the same in the screen shot for your understand.

ListBox_ColumnCount_Property: Change Using Code

Please find the following details how we are changing ColumnCount of listbox property with using Excel VBA code.

1. 1. 1. Go To Developer Tab and then click Visual Basic from the Code or Press Alt+F11.
      2. Go To Insert Menu, Click UserForm. Please find the screenshot for the same.

1. 1. 1. Drag a Listbox on the Userform from the Toolbox. Please find the screenshot for the same.

1. 1. 1. Double Click on the UserForm, and select the Userform event as shown in the below screen shot.

1. 1. 1. Now can see the following code in the module.

Private Sub UserForm_Initialize()

End Sub

1. 1. 1. Now, add the following example code1 or code2 or code3 to the in between above event procedure.

Example Code 1:

Here is the example and output when we set column count property to ‘-1’. This means it will display all columns in a listbox.

'ColumnCount Property of ListBox Control
'ColumnCount Property of ListBox Control
Private Sub UserForm_Activate()
    With UserForm1.ListBox1
        'ListBox Source Data
        .RowSource = "A2:E10"

        'The below statement will show header
        .ColumnHeads = True

        'The following statement represents number of columns in a listbox
        .ColumnCount = -1
    End With
End Sub

1. 1. 1. Now, Press ‘F5’ to see the following Output.

Output: If ColumnCount =-1
Please find the below output when we set ColumnCount property value is -1. It is shown in the following Screen Shot.

Example Code 2:

Here is the example and output when we set column count property to ‘0’. This means it will display no columns in a listbox.

'ColumnCount Property of ListBox Control
'ColumnCount Property of ListBox Control
Private Sub UserForm_Activate()
    With UserForm1.ListBox1
        'ListBox Source Data
        .RowSource = "A2:E10"

        'The below statement will show header
        .ColumnHeads = True

        'The following statement represents number of columns in a listbox
        .ColumnCount = 0
    End With
End Sub

1. 1. 1. Now, Press ‘F5’ to see the following Output.

Output: If ColumnCount =0
Please find the below output when we set ColumnCount property value is ‘0’. It is shown in the following Screen Shot.

Example Code 3:

Here is the example and output when we set column count property to 2. This means it will display two columns in a listbox.

'ColumnCount Property of ListBox Control
'ColumnCount Property of ListBox Control
Private Sub UserForm_Activate()
    With UserForm1.ListBox1
        'ListBox Source Data
        .RowSource = "A2:E10"

        'The below statement will show header
        .ColumnHeads = True

        'The following statement represents number of columns in a listbox
        .ColumnCount = 3
    End With
End Sub

1. 1. 1. Now, Press ‘F5’ to see the following Output.

Output: If ColumnCount =3
Please find the below output when we set ColumnCount property value is ‘3’. It is shown in the following Screen Shot.