Làm sao để chèn icon (ImageList) vào cột thứ 2, 3, 4 ... của Listview (Userform) (1 người xem)

[phucbugis]

Mình đã search trên diễn đàn GPE nhưng không thấy, nên mạo muội đăng chủ đề này.

Việc chèn icon (image) vào cột 1 của Listview thì mình đã làm được. Nhưng do đặc thù của mỗi sheet khác nhau nên mình muốn chèn vào các cột 2, 3, 4 ... Không biết có bạn nào gặp phải trường hợp này chưa, xin trợ giúp code!


Xin chân thành cảm ơn !

Sau khi download 3 file : pic1, pic2, Imagelist Listview.xlsm, các bạn di chuyển dùm mình 2 file pic1, pic2 vào ổ C rồi mở file Imagelist Listview.xlsm

Link MediaFire: Imagelist Listview

 

[phanminhphuong]

Mình đã search trên diễn đàn GPE nhưng không thấy, nên mạo muội đăng chủ đề này.

Việc chèn icon (image) vào cột 1 của Listview thì mình đã làm được. Nhưng do đặc thù của mỗi sheet khác nhau nên mình muốn chèn vào các cột 2, 3, 4 ... Không biết có bạn nào gặp phải trường hợp này chưa, xin trợ giúp code!
View attachment 113259

Xin chân thành cảm ơn !

Sau khi download 3 file : pic1, pic2, Imagelist Listview.xlsm, các bạn di chuyển dùm mình 2 file pic1, pic2 vào ổ C rồi mở file Imagelist Listview.xlsm

Không hiểu ý tưởng này lắm. Nói chung không khoái dùng ListView. Thử sửa đoạn này xem

With UserForm2.list2.ListItems(X)
   If lr.Range(2) = 0 Then
    .ListSubItems(1).ReportIcon = "Im1"
    .SmallIcon = "Im2"
   Else
    .ListSubItems(1).ReportIcon = "Im3"
    .SmallIcon = "Im4"
   End If
End With

 

[phucbugis]

Vì khi nhập ngày công mình có 2 cột để kiểm tra HĐLD (Thử việc và Làm việc chính thức). Nếu là thử việc thì nhập công vào cột 1, còn làm việc chính thức thì nhập vào cột 2. Mình tạo icon cho mỗi cột để người nhập có thể biết người đó là Thử việc hay Làm việc chính thức đó mà.

Code chạy ngon lành. Rất cảm ơn bạn !