Khúc mắc về listbox

[huhumalu]

Gời mọi người.
Em mới tìm hiểu để sử dụng listbox. Nhưng tới chỗ này bí quá. Không biết gỡ rối thế nào.
Em nhập list box theo kiểu mảng Rowscoure = Array. Tuy nhiên khúc mắc là em không tài nào đưa dòng đầu tiên lên thành Heading được. Xem file đính kèm.
Mong anh em GPE giúp đỡ.

 

[Hoàng Trọng Nghĩa]

Gời mọi người.
Em mới tìm hiểu để sử dụng listbox. Nhưng tới chỗ này bí quá. Không biết gỡ rối thế nào.
Em nhập list box theo kiểu mảng Rowscoure = Array. Tuy nhiên khúc mắc là em không tài nào đưa dòng đầu tiên lên thành Heading được. Xem file đính kèm.
Mong anh em GPE giúp đỡ.

Bạn không tài nào thì tôi cũng như ai xài ListBox đều biết nó không tài nào. Với Column Header, nó chỉ hiển thị khi bạn dùng trong Properties và chọn vùng trên sheet làm RowSource cho nó, chứ bạn không thể tạo List cho nó mà nó hiển thị tiêu đề cột được.

Nếu bạn muốn thì tạo mảng rồi gán xuống sheet, sau đó gán RowSource cho nó từ vùng bạn vừa gán, chừa dòng đầu tiên là có tiêu đề ngay.

Private Sub CommandButton1_Click()
ReDim arr(1 To 3, 1 To 2)
    arr(1, 1) = "STT"
    arr(1, 2) = "SoDem"
    arr(2, 1) = "1"
    arr(2, 2) = "One"
    arr(3, 1) = "2"
    arr(3, 2) = "Two"
    Sheet1.Range("[COLOR=#ff0000][B]A1[/B][/COLOR]:B3") = arr
    With UserForm1.ListBox1
        .Clear
        .ColumnCount = 3
        .ColumnHeads = True
        .RowSource = "Sheet1![B][COLOR=#0000cd]A2[/COLOR][/B]:B3"
    End With
End Sub

 

[huhumalu]

Cảm ơn Hoàng Trọng Nghĩa. Mình sẽ làm theo cách này vậy.

 

[Hoàng Trọng Nghĩa]

Cảm ơn Hoàng Trọng Nghĩa. Mình sẽ làm theo cách này vậy.

Nếu bạn hứng thú với tiêu đề cột như thế, bạn tham khảo bài này:

[h=2]Tặng công cụ tạo ListBox với tiêu đề và Scroll ngang[/h]

Nhớ phải coi nhiều bài ở trong topic đó vì có rất nhiều Thầy góp ý, bổ sung cho nó hoàn thiện đấy nhé!

 

[huhumalu]

Lẫn nữa cảm ơn Hoàng Trọng Nghĩa.