Tạo Listbox có cột số hiện thị phân cách hàng nghìn

[AnhThu-1976]

Các anh chị cho em hỏi
Có cách nào chỉnh trong vba để tạo Listbox có cột số hiện thị phân cách hàng nghìn không ạ. Em cảm ơn

 

[ptm0412]

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
Em cảm ơn!

Không chỉ việc đó.
- Label sai chính tả
- Chữ mất dấu
- Khi lưu xuống bị mất dòng đầu tiên.

Về việc mất 3 số 0, tôi cho rằng máy tính đang thiết lập dấu phân cách hàng ngàn là dấu chấm. Vậy trước khi lưu xuống, phải xóa bỏ dấu chấm (dấu phân cách) đang hiển thị.
Đừng mơ mộng việc tô màu chữ màu nền gì nữa, vì các việc cơ bản này còn chưa xong.

 

[AnhThu-1976]

Không chỉ việc đó.
- Label sai chính tả
- Chữ mất dấu
- Khi lưu xuống bị mất dòng đầu tiên.

Về việc mất 3 số 0, tôi cho rằng máy tính đang thiết lập dấu phân cách hàng ngàn là dấu chấm. Vậy trước khi lưu xuống, phải xóa bỏ dấu chấm (dấu phân cách) đang hiển thị.
Đừng mơ mộng việc tô màu chữ màu nền gì nữa, vì các việc cơ bản này còn chưa xong.

Em cảm ơn Thầy nhắc nhở
Do công ty yêu cầu, bắt buộc dấu phân cách là hàng ngàn là dấu chấm, nên buộc em phải để như vậy
Không biết có cách nào làm trên form mà không phải chỉnh lại dấu phân cách hàng ngàn
Còn chuyện tô màu chữ thì không quan trọng.
Em cảm ơn Thầy và các anh chị nhiều!

 

[ptm0412]

Do công ty yêu cầu, bắt buộc dấu phân cách là hàng ngàn là dấu chấm, nên buộc em phải để như vậy

Tôi không ý kiến gì về việc công ty bắt buộc. Tôi gợi ý cách sửa trong code thì đã làm chưa?

 

[AnhThu-1976]

Không chỉ việc đó.
(1)- Label sai chính tả
(2)- Chữ mất dấu
(3)- Khi lưu xuống bị mất dòng đầu tiên.

(1) Em đã chỉnh rồi
(2) Em dự định dùng tiếng Việt không dấu cho dễ tìm kiếm
(3) Khi em chọn bao nhiêu mặt hàng thì nó gán xuống sheet đủ bấy nhiêu mặt hàng
Các Thầy/Cô & Anh/Chị giúp em phần định dạng hàng ngàn. Em xin cảm ơn!

 

[ptm0412]

Các Thầy/Cô & Anh/Chị giúp em phần định dạng hàng ngàn. Em xin cảm ơn!

Tôi gợi ý rồi: Xóa dấu phân cách hàng ngàn trước khi gán xuống sheet: dùng hàm VBA replace (cách dùng tương tự substitute)

 

[befaint]

Cells(j, 8) = Vba.Replace(MHList.List(i, 3), application.thousandsSeparator, "")

 

[AnhThu-1976]

Cells(j, 8) = Vba.Replace(MHList.List(i, 3), application.thousandsSeparator, "")

Cái này để ở đâu vậy anh, sao em để trong
Private Sub Nhap_Click()
Mà giá vẫn bị chia 1.0000

Private Sub Nhap_Click()
    On Error Resume Next
    Dim j&, i&, SelectItem
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    j = ActiveCell.Row
    '*****************
    If ActiveSheet.name = "TH" Then
        ActiveSheet.Select
        For i = 0 To MHList.ListCount - 1
            If MHList.Selected(i) Then
                Cells(j, 4) = MHList.List(i)
                Cells(j, 5) = MHList.List(i, 1)
                Cells(j, 6) = MHList.List(i, 2)
                'Cells(j, 8) = MHList.List(i, 3)
                Cells(j, 8) = VBA.Replace(MHList.List(i, 3), Application.ThousandsSeparator, "")
                Cells(j, 11) = MHList.List(i, 4)
                j = j + 1
                SelectItem = 1
            End If
        Next
    End If
    If SelectItem = 0 Then
        MsgBox "Ban da khong chon ten nao trong danh sach !"
    Else
        ActiveCell.Offset(0, 5).Select
        Unload Me    '
    End If
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

Mà thực tế em không dùng đến nút này
Mà hiện nay em chỉ dùng

Private Sub CmdLuu_Click()
    Dim lRw As Long, j As Long
    With Sheets("TH")
        lRw = ActiveCell.Row - 1    'sýÒa ðêÒ giaìn xuôìng cell hiêòn haÌnh
        For j = 1 To SeL
            ' TýÌ lbSelect (ListBox) gaìn xuôìng sheet ðiìch õÒ caìc côòt K, L (nêìu không muôìn gaìn thiÌ boÒ)
            .Cells(lRw + j, "D").Value = Me!lbSelect.List(j, 0)
            .Cells(lRw + j, "E").Value = Me!lbSelect.List(j, 1)
            .Cells(lRw + j, "F").Value = Me!lbSelect.List(j, 2)
            .Cells(lRw + j, "H").Value = Me!lbSelect.List(j, 3)
            .Cells(lRw + j, "K").Value = Me!lbSelect.List(j, 4)
        Next j
        ActiveCell.Offset(, 3).Select    'thêm: doÌi qua côòt ...
        For j = 1 To SeL
            Me!lbSelect.List(j, 0) = ""
            Me!lbSelect.List(j, 1) = ""
            Me!lbSelect.List(j, 2) = ""
            Me!lbSelect.List(j, 3) = ""
            Me!lbSelect.List(j, 4) = ""
            Me!lbSelect.List(j, 5) = ""
        Next j
        SeL = 0
        Unload Me    ' them
    End With
End Sub

Đển gán số liệu xuống sheet mà thôi
Nhờ anh hướng dẫn thêm. Em cảm ơn!