Tạo column header cho listbox

[trunghtpco]

Mình thiết kế 1 user form, có 1 listbox trong user form. MÌnh muốn dùng lệnh VBA để gán column header cho listbox, các bạn chỉ giúp minh với.

 

[phongvanvu]

Bạn chỉ có thể tạo header nếu bạn trói(bind) listbox với một vùng(range).
Trong Listbox:
- đặt thuộc tính ColumnCount là số cột.
- đặt ColumnHead là True
- đặt RowSource là vùng dữ liệu
Như vậy các cell trên cùng sẽ là tiêu đề của Listbox.
Ví dụ:
With Me.ListBox1
.RowSource = Range("A2:A5").Address
End With

 

[trunghtpco]

Nhưng ở đây mình muốn dùng lệnh VBA thôi, mình không dùng vùng dữ liệu trên excel.

 

[phongvanvu]

Không tạo được như thế! Bạn có thể tạo một range tạm trên một sheet rồi bind nó vào listbox thì mới được!
Cách làm cụ thể như sau:
Chép dữ liệu vào vùng dữ liệu tạm trên sheet ví dụ A2:A5
range("A2")=1
range("A3)=2
With Me.ListBox1
.RowSource = Range("A2:A5").Address
End With