Listbox không hiện thị phân cách hàng nghìn

Chia sẻ bởi:hands

★★★★★

‹ Chuyển từ Name Manager sang VBA tìm kiệm bằng phím lên xuống trong... ›

Quảng cáo

E chào các AC trong diễn đàn !
E có một Form với listbox như file đính kèm. Nhưng listbost lại không hiện thị được dấu phân cách hàng nghìn. Nhờ các AC xem giúp e với ạ, e cảm ơn !

Muons Listbox có phân cách phần nghìn thì bạn nên lấy Source từ trên sheet thì nó sẽ định dạng giống như định dạng trong sheet thôi
Bạn đang dùng list thì không thể có định dạng được đâu… (ListBox1.List)
=> Cho nên chuyển qua Source như bạn #2 đã nói…thì sẽ có định dạng như trên sheet

Còn nếu vẫn muốn cố tình sử dụng list thì bạn bắt buộc phải code cái đoạn mảng cho List, định dạng riêng cho 3 cột số lượng đó có định dạng phân cách phần ngàn rồi nạp vao mảng. Sau đó nạp mảng này vào List thì mới có định dạng mong muốn được…

Trên sheet e định dạng chuẩn #.##0 rùi ạ, mà sang listbox nó vẫn là 1000000 chứ k phải là 1.000.000 ạ. A có thể xem file giùm e với 🙁

Bạn sửa lại sub: Private Sub UserForm_Initialize() như sau:

Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False
    With Sheets("KHO1")
    Data = .Range(.Range("B5"), .Range("J" & Rows.count).End(xlUp))
        'pri_ArrData = .Range(.Range("B5"), .Range("J" & Rows.count).End(xlUp))
    ReDim pri_ArrData(1 To UBound(Data), 1 To UBound(Data, 2))
    For I = 1 To UBound(Data)
        If Len(Data(I, 1)) Then
            K = K + 1
            pri_ArrData(K, 1) = K
            For J = 2 To 6
                pri_ArrData(K, J) = Data(I, J)
            Next J
            For J = 7 To 9
                pri_ArrData(K, J) = Format(Data(I, J), "#,##0")
            Next J
        End If
    Next I
    End With
    OptionButton1.Value = True
    ListBox1.List = pri_ArrData
End Sub