Format số

[le tin]

Đoạn này tôi chưa hiểu lắm,nhờ các bạn giải thích , tôi muốn hiện 1 số lẻ thì sửa thế nào, cụ thể :
12345,6 -> 12.345,6 ( hoặc 12,345.6 )
12345,623 -> 12.345,6
12345,0 -> 12.345

NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

Cảm ơn

 

[Po_Pikachu]

Bạn có thể viết như vầy!
NumberFormat = "#,##0.0"
Hoặc:
NumberFormat = "_(* #,##0.0_);_(* (#,##0);_(* ""-""??_);_(@_)"
Thân.

 

[le tin]

Cách 2 sao nó dài , bạn có thể giải thích thêm tí nữa không. Và cả 2 cách đều chưa đủ như yêu cầu trên,
12345,0 -> 12.345
( nếu không có số lẻ thì cũng mất luôn số 0)

 

[Po_Pikachu]

Vậy thì bạn phải làm thêm 1 cột xử lý số liệu này trước theo công thức bên dưới! Để chúng về lại theo ý muốn!
=IF(MID(A1,FIND(",",A1,1)+1,1)="0",TEXT(SUBSTITUTE(A1,",",".",1),"#,##0"),TEXT(SUBSTITUTE(A1,",",".",1),"#,##0.0"))
Nếu VBA thì đại khái sẽ sữa như sau:

Sub thu()
k = "12345,6"
If Mid(k, InStr(1, k, ",") + 1, 1) = "0" Then
MsgBox (Application.WorksheetFunction.Text(Application.WorksheetFunction.Substitute(k, ",", ".", 1), "#,##0"))
Else
MsgBox (Application.WorksheetFunction.Text(Application.WorksheetFunction.Substitute(k, ",", ".", 1), "#,###.0"))
End If
End Sub

Thân.