Đã định dạng "#,##00.00" sao ghi vào sheet lại không đúng (1 người xem)

[DMQ]

Em có đoạn code đã định đạng số lượng là "#,##00.00" thế nhưng ghi vào sheet lại cái đúng cái sai. Mong mọi người giải thích vì sao?????

Private Sub Cmdcapnhat_Click()
Dim i As Integer, N As Long


    If txtNgayThang = "" Then MsgBox ("Ban chua nhap ngay"), vbExclamation: Exit Sub
    If txtSoPhieu = "" Then MsgBox ("Ban chua nhap so phieu"), vbExclamation: Exit Sub
    If ListBox1.ListCount = 0 Then MsgBox ("ban chua cap nhat Noi dung  vao Listbox"), vbExclamation: Exit Sub


    Application.ScreenUpdating = False
    
     N = Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'xac dinh row cuoi cung` chua' du~ lieu


    For i = 0 To ListBox1.ListCount - 1
        Sheet1.Cells(N, 1) = CDate(txtNgayThang)                    'ngay nhap
        Sheet1.Cells(N, 2) = UCase(txtSoPhieu)                      'so giam dinh
        
        With ListBox1
            Sheet1.Cells(N, 3) = Application.Proper(.List(i, 1))   'ten nguyen vat lieu
            Sheet1.Cells(N, 4) = UCase(.List(i, 2))                'dvt
[B][COLOR=#ff0000]            Sheet1.Cells(N, 5) = Format(.List(i, 3), "#,##00.00")  'sl tren list <------Định Dạng chổ này[/COLOR][/B]
        End With
        N = N + 1
    Next
   
Application.ScreenUpdating = True
MsgBox ("cap nhat xong")
txtNgayThang = Empty
txtSoPhieu = Empty
ListBox1.Clear
txtNgayThang.SetFocus


End Sub

Hình ghi vào sheet:

 

[Ba Tê]

"#,##00.00"
Định dạng quái mà nó hiểu là may rồi.
Có khi nào 1,1234.00 ?

 

[SA_DQ]

Bạn có thấy rằng: Cái nào dưới 100.00 thì sai với í bạn không?

 

[DMQ]

Xấu hổ quá, dư một số không mà không biết. Cám ơn các AC!!!!!!!

 

[DMQ]

Uh!!!!!mà em đã chỉnh lại là: "#,##0.00" mà vẫn sai các AC ơi. Như số 20, hoặc 50 (Tức là dưới 100) thì chỉ là 20 và 50 chứ không phải là 20.00 và 50.00. Mong các AC xem giúp !!!!!!

 

[DMQ]

Không biết code sai chổ nào, hay phải chỉnh trong FormatCell cột số lượng????? Mong mọi người giúp!!!!!. Bây giờ ngay số 200 cũng không phải là 200.00.

 

[DMQ]

Em xin đưa hình chụp :

 

[phanPNJ]

Em xin đưa hình chụp :
View attachment 153444

Sao không dùng format number cho nhanh bạn.

 

[DMQ]

Format Number thì được rồi, nhưng mình muốn AC nào giải thích dùm code lỗi chổ nào.

 

[DMQ]

Em vào FormatCell thì thấy số nào định dạng đúng ("#,##0.00") là Number, còn số nào định dạng không đúng ("#,##0") là General. Vậy có cách nào định dạng cho số đúng là Number. Mong các AC giúp đỡ.

 

[patygate591]

Bác tham khảo thêm cái này nhé :/

https://msdn.microsoft.com/en-us/library/office/ff196401.aspx

 

[be_09]

Bạn thử thay đổi dòng:

txtSoluong = Empty

Thành dòng này thử xem:

txtSoluong = Format(txtSoluong, "#,##00.00")

 

[DMQ]

TxtNgayThang là textBox ngày Tháng đó Anh be09, không thể chỉnh thành Number được, với code TxtNgayThang= Empty là khi nhập xong thí TxtNgayThang là trống.("")

 

[be_09]

TxtNgayThang là textBox ngày Tháng đó Anh be09, không thể chỉnh thành Number được, với code TxtNgayThang= Empty là khi nhập xong thí TxtNgayThang là trống.("")

Vậy thì định dạng cái TxtSoluong vào

Private Sub ListBox1_Change()
.................
.................
txtSoluong = Format(txtSoluong, "#,##00.00")
End sub

Thử xem, tôi thường định dạng ở đây.

 

[DMQ]

Ý em nói là ghi giá trị củaTxtSoLuong vào sheet cơ, mặc dù đã định dạng thành"#,##0.00" (chứ không phải #,##00.00") mà giá trị vẫn là "#,##o"