Đưa danh sách ở các cột vào list box (1 người xem)

[thuanntk]

Chào các bạn! mình có danh sách nhân viên, mình muốn đưa danh scách các cột Mã nhân viên, Tên nhân viên, Số Ngày, Thành tiền vào listbox. Nhờ các bạn giúp mình

 

[thuanntk]

Sao không thấy ai giúp mình vậy????

 

[quoc nhat]

Chào các bạn! mình có danh sách nhân viên, mình muốn đưa danh scách các cột Mã nhân viên, Tên nhân viên, Số Ngày, Thành tiền vào listbox. Nhờ các bạn giúp mình

bạn xem file coi dúng ý chưa nhé

 

[thuanntk]

bạn xem file coi dúng ý chưa nhé

Mình cảm ơn bạn nhé. Như cách bạn làm là lấy hết các cột vào rồi, mình chỉ đưa một số cột vào thôi. Còn cột thành tiền trong listbox định dạng kiểu số được không bạn?

 

[sealand]

Bạn muốn định dang sô trên List thi không thể được vì canh lề, định dạng tất cả các côth giống nhau.
Để làm giông giống thì được, ta định dạng số thành chuỗi và chèn thêm các khoảng trắng bên trái cho đủ, Listbox phải dùng Font Courier vì các ký tự và khoảng của font này bằng nhau nên khi chèn thêm không bị xô lệch
Riêng việc chọn cột thì cứ đưa tất lên không muốn để cột nào thì cho độ rộng bằng 0

 

[thuanntk]

Bạn muốn định dang sô trên List thi không thể được vì canh lề, định dạng tất cả các côth giống nhau.
Để làm giông giống thì được, ta định dạng số thành chuỗi và chèn thêm các khoảng trắng bên trái cho đủ, Listbox phải dùng Font Courier vì các ký tự và khoảng của font này bằng nhau nên khi chèn thêm không bị xô lệch
Riêng việc chọn cột thì cứ đưa tất lên không muốn để cột nào thì cho độ rộng bằng 0

Bạn có thể giúp mình định dạng ở cột thành tiền theo như cách bạn nói giúp minh với

 

[sealand]

Bạn tham khảo cách làm "du kich" như mình nêu bài trước nha

Câu lệnh để xác định số cột và hiển thị cột:

Me.LB.ColumnCount = 7
Me.LB.ColumnWidths = "50;120;0;0;0;50;80"

Code chuyển dạng số:

Sub MyFormat()
Dim i
If Me.LB.ListCount < 1 Then Exit Sub
For i = 0 To Me.LB.ListCount - 1
Me.LB.Column(5, i) = Right(Space(2) & Me.LB.Column(5, i), 2)
Me.LB.Column(6, i) = Right(Space(16) & Format(Me.LB.Column(6, i), "#,##0"), 16)
Next
End Sub

Banj chọn Font Courier New chữ đẹp hơn

 

[thuanntk]

Bạn tham khảo cách làm "du kich" như mình nêu bài trước nha

Câu lệnh để xác định số cột và hiển thị cột:

Me.LB.ColumnCount = 7
Me.LB.ColumnWidths = "50;120;0;0;0;50;80"

Code chuyển dạng số:

Sub MyFormat()
Dim i
If Me.LB.ListCount < 1 Then Exit Sub
For i = 0 To Me.LB.ListCount - 1
Me.LB.Column(5, i) = Right(Space(2) & Me.LB.Column(5, i), 2)
Me.LB.Column(6, i) = Right(Space(16) & Format(Me.LB.Column(6, i), "#,##0"), 16)
Next
End Sub

Banj chọn Font Courier New chữ đẹp hơn

Cảm ơn bạn nhiều nhé!