Can hide the first row in listbox ?

[Mayozero]

Hello,

im trying to move the first row in list box into the header with this code is it possible ?

Function show_data_in_listbox_test()
    Dim lastrow As Long, Row As Long, Col As Long, TempArray
    With Sheets("Database")
        lastrow = .Cells(Rows.Count, "A:A").End(xlUp).Row
        TempArray = .Range("A1:I" & lastrow).Value
        For Row = 1 To lastrow
            For Col = 3 To 6 '---select.name.for.the.columns; from 3 to 6 with Col= 3:6'
                TempArray(Row, Col) = Format(TempArray(Row, Col), "h:mm:ss AM/PM")
            Next Col
             TempArray(Row, 7) = Format(TempArray(Row, 7), "h:mm:ss")
             TempArray(Row, 8) = Format(TempArray(Row, 8), "h:mm:ss")
             TempArray(Row, 9) = Format(TempArray(Row, 9), "h:mm:ss")
        Next Row
    End With
    With ListBox1
        .ColumnCount = 9
        .ColumnWidths = "70,65,75,75,75,75,90,60,55,55"
        .List = TempArray
    End With
End Function

Thanks in advance

 

[Akuini]

You can create another listbox, place it above the first listbox, populate the table header into it.

Listbox Header

 

[Domenic]

Try setting the ColumnHeads property of the Listbox object to False...

ListBox1.ColumnHeads = False

Actually, you can place it within your With/End With statement...

    With ListBox1
        .ColumnCount = 9
        .ColumnHeads = False
        .ColumnWidths = "70,65,75,75,75,75,90,60,55,55"
        .List = TempArray
    End With

Hope this helps!

 

[Mayozero]

You can create another listbox, place it above the first listbox, populate the table header into it.

Listbox Header

it's not the solution i expected ^_^
but thanks for the tip anyway

 

[Mayozero]

Try setting the ColumnHeads property of the Listbox object to False...

ListBox1.ColumnHeads = False

Actually, you can place it within your With/End With statement...

    With ListBox1
        .ColumnCount = 9
        .ColumnHeads = False
        .ColumnWidths = "70,65,75,75,75,75,90,60,55,55"
        .List = TempArray
    End With

Hope this helps!

this line do the same when turn the "ColumnsHeads" to false so it's not also the expected one.
i want to keep the borders and the headers stays in it only, anyway thank u for trying

 

[Domenic]

Have you considered using the RowSource property of the ListBox object to provide the list? For example, you could do the following...

    Dim listRange As Range
    Dim lastRow As Long
    
    With Sheets("Database")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set listRange = .Range("A2:I" & lastRow)
    End With
    With ListBox1
        .ColumnCount = 9
        .ColumnHeads = True
        .ColumnWidths = "70,65,75,75,75,75,90,60,55,55"
        .RowSource = listRange.Address(External:=True)
    End With

If you must use the List property, you would have to find some sort of workaround. For example, you could create labels and place them above the listbox to serve as headers.

 

[Mayozero]

Have you considered using the RowSource property of the ListBox object to provide the list? For example, you could do the following...

    Dim listRange As Range
    Dim lastRow As Long
   
    With Sheets("Database")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set listRange = .Range("A2:I" & lastRow)
    End With
    With ListBox1
        .ColumnCount = 9
        .ColumnHeads = True
        .ColumnWidths = "70,65,75,75,75,75,90,60,55,55"
        .RowSource = listRange.Address(External:=True)
    End With

If you must use the List property, you would have to find some sort of workaround. For example, you could create labels and place them above the listbox to serve as headers.

thank you so much for the tip, when i lost hope to arrange the first row in the header row i used labels in the top and it helped alot
thank u so much again ?