Hỏi về Format ListBox! (3 người xem)

[ThuNghi]

Private Sub CapNhatHHList()
HHList.List = SRng.Value
'For r = 1 To rc01
'  HHList.AddItem r
'  HHList.List(r - 1, 1) = SRng.Cells(r, iColTen).Value
'  HHList.List(r - 1, 2) = SRng.Cells(r, iColDVT)
'  If iColKhac > 0 Then
'    HHList.List(r - 1, 3) = SRng.Cells(r, iColKhac)
'  Else
'    HHList.List(r - 1, 3) = ""
'  End If
'  HHList.List(r - 1, 3) = Format(HHList.List(r - 1, 3), "#,##0")
'Next
End Sub

Tôi lấy dữ liệu của SRng vào ListBox bằng cách HHList.List = SRng.Value cho nó nhanh hơn. SRng có 3 cột SoTT, MaHang, DonGia.
Làm thế nào để format từng cột của ListBox, canh phải, trái hiện số tiền có ",". Tôi không muốn dùng for i lại.
Cám ơn!

 

[Mr Okebab]

Private Sub CapNhatHHList()
HHList.List = SRng.Value
'For r = 1 To rc01
'  HHList.AddItem r
'  HHList.List(r - 1, 1) = SRng.Cells(r, iColTen).Value
'  HHList.List(r - 1, 2) = SRng.Cells(r, iColDVT)
'  If iColKhac > 0 Then
'    HHList.List(r - 1, 3) = SRng.Cells(r, iColKhac)
'  Else
'    HHList.List(r - 1, 3) = ""
'  End If
'  HHList.List(r - 1, 3) = Format(HHList.List(r - 1, 3), "#,##0")
'Next
End Sub

Tôi lấy dữ liệu của SRng vào ListBox bằng cách HHList.List = SRng.Value cho nó nhanh hơn. SRng có 3 cột SoTT, MaHang, DonGia.
Làm thế nào để format từng cột của ListBox, canh phải, trái hiện số tiền có ",". Tôi không muốn dùng for i lại.
Cám ơn!

Việc canh trái phải theo từng cột thì Listbox không làm được bác ạ. Listview làm được
Còn Format thì bác làm được rồi đó.

Thân!

 

[cavoi]

xin hỏi 1 câu hơi ngố: làm sao tạo Listview ? Hiện CV đang sử dụng Excel 2003, tìm hoài không thấy Listview này, xin hướng dẫn giúp

cám ơn

 

[sealand]

To Cavoi:Bạn xem bài này có vấn đề của bạn
http://www.giaiphapexcel.com/forum/showthread.php?p=113610#post113610
To Thu Nghi:
Mình đã có có lần làm hơi kỳ 1 chút nhưng coi cũng tạm (Chỉ giải quyết về hình thức) .Ví dụ:
so=format(so,"#,##0")
so=right(space(20) & so,20)
Số khoảng bù là tùy độ rộng cột và độ dài số, vậy là mình bù số space vào trước số và nạp vào listbox nó sẽ đẩy số sang phải như canh phải.
Lưu ý quan trong: Định dạng Listbox theo font Courier New (Các font Courier có độ dài các ký tự bằng nhau)

Kiểu chữa ô tô Thổ Nhĩ Kỳ như "Những người thích đùa", đừng cười nha!!!

 

[cavoi]

cám ơn bạn Sealand
hôm nay mơ"i thấy phần trả lời của bạn
xin cám ơn