Bài học lần trước tôi đã giới thiệu với các bạn về
Bài học lần này tôi sẽ giới thiệu với các bạn về ListBox.
Đầu tiên, chúng ta sử dụng listbox để làm gì? Listbox dùng để hiển thị một list danh sách, ví dụ list danh sách file.
Hoặc là list danh sách các từ-nếu bạn dự định làm một từ điển bằng excel.
Để cho dữ liệu vào Listbox, chúng ta cũng sử dụng phương thức AddItem mà chúng ta đã từng gặp khi học về Combobox.
Tham số thứ hai (vị_trí_hiển_thị_trên_list_box) có thể giản lược đi bằng cách để trống. Thực tế là chúng ta không dùng tới trong quá trình code. Vì vậy bạn cũng không cần phải ghi nhớ.
Chúng ta hãy thử đoạn code sau xem kết quả là gì nhé:
Và thử với đoạn code dưới đây xem sự khác biệt ra sao nếu chúng ta can thiệp vào tham số vị trí trong danh sách nhé:
Tôi hầu như không sử dụng thuộc tính này, nhưng bạn cũng cần biết là với thuộc tính RowSource , chúng ta có thể nạp dữ liệu từ excel vào listbox.
Ở đây tôi muốn nạp dữ liệu từ hai cột cho nên thuộc tính ColumnCount tôi thiết định là 2.
Bây giờ nếu tôi ấn vào nút bấm trên UserForm bạn sẽ thấy là nó bị lỗi như dưới đây:
Có nghĩa là nếu bạn sử dụng thuộc tính RowSource thì bạn không thể dùng phương thức AddItem để thêm data vào listbox được nữa. Hãy nhớ điều này.
Bây giờ bạn hãy xóa các thiết định RowSource và ColumnCount ở trên đi. Chúng ta sửa lại code của nút bấm như dưới đây và xem kết quả:
Nguồn tham khảo:
Bạn cần đăng nhập để thấy link
Bài học lần này tôi sẽ giới thiệu với các bạn về ListBox.
Bạn cần đăng nhập để thấy hình ảnh
Đầu tiên, chúng ta sử dụng listbox để làm gì? Listbox dùng để hiển thị một list danh sách, ví dụ list danh sách file.
Hoặc là list danh sách các từ-nếu bạn dự định làm một từ điển bằng excel.
Để cho dữ liệu vào Listbox, chúng ta cũng sử dụng phương thức AddItem mà chúng ta đã từng gặp khi học về Combobox.
Mã:
ListBox.AddItem data_muốn_thêm_vào, vị_trí_hiển_thị_trên_list_box
Chúng ta hãy thử đoạn code sau xem kết quả là gì nhé:
Mã:
Private Sub CommandButton1_Click()
ListBox1.AddItem "tuhocvba.net"
End Sub
Bạn cần đăng nhập để thấy hình ảnh
Và thử với đoạn code dưới đây xem sự khác biệt ra sao nếu chúng ta can thiệp vào tham số vị trí trong danh sách nhé:
Mã:
Private Sub CommandButton1_Click()
Dim i As Long 'Kieu so nguyen co pham vi gia tri len toi 2 trieu
For i = 1 To 10
ListBox1.AddItem "tuhocvba" & i
Next i
ListBox1.AddItem "danhsach", 0
End Sub
Bạn cần đăng nhập để thấy hình ảnh
Tôi hầu như không sử dụng thuộc tính này, nhưng bạn cũng cần biết là với thuộc tính RowSource , chúng ta có thể nạp dữ liệu từ excel vào listbox.
Ở đây tôi muốn nạp dữ liệu từ hai cột cho nên thuộc tính ColumnCount tôi thiết định là 2.
Bạn cần đăng nhập để thấy hình ảnh
Bây giờ nếu tôi ấn vào nút bấm trên UserForm bạn sẽ thấy là nó bị lỗi như dưới đây:
Bạn cần đăng nhập để thấy hình ảnh
Có nghĩa là nếu bạn sử dụng thuộc tính RowSource thì bạn không thể dùng phương thức AddItem để thêm data vào listbox được nữa. Hãy nhớ điều này.
Bây giờ bạn hãy xóa các thiết định RowSource và ColumnCount ở trên đi. Chúng ta sửa lại code của nút bấm như dưới đây và xem kết quả:
Mã:
Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 2
ListBox1.List = Sheets(2).Range("A2:B6").Value
MsgBox "so luong data la:" & ListBox1.ListCount
End Sub
Bạn cần đăng nhập để thấy hình ảnh
Nguồn tham khảo:
Mã:
http://officetanaka.net/excel/vba/tips/tips137.htm