Hỏi về cách tạo ListView?

[thanhnhanubnd]

Mình đang "nghien..cuu" về Listview. Tìm trên diễn đàn rất lâu, chỉ thấy các hướng dẫn, nhưng chưa được rỏ, nay xin nhờ các bạn :
1. Gửi cho mình vài ví dụ.
2. Hướng dẫn chi tiết dùm mình cách tạo listview.

Rất cám ơn các bạn, thân chào.

Mình mò hoài chưa được, xin nhờ các bạn làm giúp ở ví dụ này nhé Làm listwiev
Cám ơn nhiều.

 

[cadafi]

1/ Nhờ anh giải thích dùm dòng lệnh màu đỏ:

For i = 1 To Sheet1.[H65536].End(xlUp).Row - 9
If IsNumeric(Sheet1.Cells(i + 9, "H")) And Sheet1.Cells(i + 9, "H") > 0 Then
--> ''Nếu giá trị tại cột H với dòng tu7o7nf ứng là số (Isnumeric) và phải >0 thì
Set mDetail = Me.ListView1.ListItems.Add(, , Sheet1.Cells(i + 9, "A"))
--> ''Gán biến mDetail = Add 1 item vào listview một giá trị tương ứng tại cột A dòng thứ i+9
For J = 1 To 8
mDetail.SubItems(J) = Sheet1.Cells(i + 9, J + 1)
--> ''Gán SubItem thứ J của mDetail = giá trị tại cột J+1, dòng i+9
Next J
End If
Next i

2/ anh cho hỏi thêm: đoạn code nào trong file kiểm soát phím tổ hợp Ctrl+Shift+L ?
--> Ctrl+Shift+L là bạn tự gán phím tắt cho macro (Vào Tool/Macro) không cần code.


3/ Sao tôi thử chọn thuộc tính Grid trong Listview là TRUE trong 1 bài tập tự làm mà nó không hiển thị?
--> Bạn đưa bài tập tự làm đó lên xem sao?

 

[thanhnhanubnd]

1. Hôm trước mình có đoạn code để hiện thị các sheetactive trên listview ( SEALAND):
Private Sub ComboBox3_Change()
Set hs = ActiveWorkbook.Sheets(Me.ComboBox3.Text)
hs.Select
2. Hôm nay nhờ các bạn chỉ giúp, vẫn nội dung trên nhưng thêm sự kiện :
Private Sub CheckBox1_Change()
If CheckBox1 Then
Sẽ chỉ giới hạn các sheet 1,2,3
Esle
Sẽ chỉ giới hạn các sheet 4,5,6
End If
End sub
Thank

 

[hoa35ktxd]

Nếu List của bạn cố định thì dùng ListIndex để kiểm soát hoặc dùng Index của Sheet

 

[thanhnhanubnd]

Ý mình thế này : Mình có 6 sheets. Các sheet này sẽ hiện trên Combobox ( tạo bao nhiêu sheet cũng được). Khi mình lựa chọn sheet nào trong Combobox thì sẽ listview sheet đó ( Sheet active).

Private Sub UserForm_Activate()
For Each sh In ActiveWorkbook.Sheets
Me.ComboBox3.AddItem sh.Name
Next
Me.ComboBox3.ListIndex = 0
Set hs = Sheets(Me.ComboBox3.Text)

Tuy nhiên, mình muốn thêm điều kiện :

Nếu check_box thì chỉ hiện các sheet1,2,3 trong Combobox, còn không check thì sẽ hiện các sheet4,5,6