Trước khi hỏi, thì em cũng đã tìm rồi, nhưng không thấy, có lẽ em dùng không đúng từ khóa nên không tìm ra vì thế em mới lên đây hỏi. Cảm ơn anh
Nếu chưa có từ khóa nào tốt hơn thì cứ nhập bừa cái đang nghĩ, tức nhập "Tạo Listbox có cột số hiện thị phân cách hàng nghìn" để xem có gì không rồi tính tiếp. Đến tìm kiếm mà cũng bó tay thì làm ăn được gì.
Ta tìm được chính ta! kkk
Thực ra là do bạn chưa cố gắng, hoặc bạn không bấm vào "tìm kiếm nâng cao" để tìm theo công cụ của google.
Đưa tới tận bàn rồi mà không biết dùng. Bó tay toàn tập.
Cũng chả phải đổi gì. Ai không tin thì tự kiểm nghiệm. Mà nhìn trên ảnh thì thấy có cả kết quả "ListBox có" và "ListBox không"
Tôi dùng "Tìm kiếm" cũng ra mà, chưa cần dùng "Tìm kiếm nâng cao" - giết gà chưa cần dùng tới dao mổ trâu.
Tôi không nói là không tin anh. Tôi chỉ đưa ra 1 thủ thuật, cũng không cao siêu gì, chỉ là logic hạng bét. Có điều nếu "có" ra nhiều kết quả quá thì phải thử "không", và ngược lại.
Private Sub UserForm_Initialize()
Dim EndR As Long
Dim i As Long
ReDim Ar0(1 To 21, 1 To 6)
With Sheets("MA")
EndR = .Cells(65000, 2).End(xlUp).Row
Arr = .Range(.Cells(12, 1), .Cells(EndR, 6)).Value
End With
With Me.MHList
.ColumnCount = 6
.List = Arr
' '************ Phần này em đã thêm thêm
' For i = 0 To .ListCount - 1
' .List(i, 4) = (Format(Arr(.List(i, 4)), "#,##0"))
'Next
' '*************
End With
Ar0(1, 1) = "Mã Hàng"
Ar0(1, 2) = "Tên Hàng "
Ar0(1, 3) = "DVT"
Ar0(1, 4) = "GIÁ BÁN"
Ar0(1, 5) = "GIÁ MUA"
Ar0(1, 6) = "MÔ TA"
Me!lbSelect.List = Ar0()
NhomHang.SetFocus
Erase Arr
End SubFormat Arr(i, 4) trước khi gán vào List
Em đã làm nhưng không đúng
Private Sub UserForm_Initialize()
Dim EndR As Long
Dim i As Long
ReDim Ar0(1 To 21, 1 To 6)
With Sheets("MA")
EndR = .Cells(65000, 2).End(xlUp).Row
Arr = .Range(.Cells(12, 1), .Cells(EndR, 6)).Value
'************ Em mới thêm
For i = 0 To .ListCount - 1
Arr(i, 4) = (Format(.List(i, 4), "#,##0"))
Next
'**************
End With
With Me.MHList
.ColumnCount = 6
.List = Arr
End With
Ar0(1, 1) = "Mã Hàng"
Ar0(1, 2) = "Tên Hàng "
Ar0(1, 3) = "DVT"
Ar0(1, 4) = "GIÁ BÁN"
Ar0(1, 5) = "GIÁ MUA"
Ar0(1, 6) = "MÔ TA"
Me!lbSelect.List = Ar0() ' taòo caìc tiêu ðêÌ cho lbSelect.List
NhomHang.SetFocus
Erase Arr
End SubỞ thời điểm (A) thì trong ListBox đã có gì đâu.
For i = 1 To UBound(Arr, 1)
Arr(i, 4) = (Format(Arr(i, 4), "#,##0"))
NextEm nhờ anh xem lại giúp
Hãy tập giải thích cho người khác hiểu. Đừng bắt người khác phải phân tích code của mình để đoán thứ tự thao tác. Tôi kích hoạt Form rồi nhấn nút "LUU DU LIEU" thì chả có gì sảy ra. Tức hiểu là muốn cái gì đó sảy ra thì phải phân tích code để biết phải thực hiện trình tự những thao tác nào. Phán một câu: "Ví dụ bia 333, mã hàng hóa là B0001, giá bán 265.000 thì khi gián xuống sheet thì chỉ còn 265 mất 3 con số 0 cuối" thì thánh cũng không biết sau khi kích hoạt Form thì phải nhập cái gì vào đâu, nhấn cái gì, làm cái gì trước khi nhấn nút "LUU DU LIEU".
Em xin lỗi vì hôm qua vẫn đưa file cũ lên nên anh không thấy trường hợp mất ba số không của tất cả giá bán của các mặt hàng
Vậy là do máy tính của em, không biết tại sao trên máy tính của em lại bị giá bán bị chia cho 1.000
