Code chuyển text thành định dạng số tiền

[hoahuongduong1986]

Dear Anh chị và các bạn
WriteStr = WriteStr & Chr(10) & ChildKeys(r2) & " - " & dic2.Item(ChildKeys(r2)) & " Trd"

Phần bôi đậm nó đưa về dạng 23657 Trđ => Giờ em muốn nó chuyển Text 23657 thành dạng tiền 23.657 thì làm sao ạ. Em thử kiểu này Text(dic2.Item(ChildKeys(r2)),"0,00#") hoặc kiểu này dic2.Item(ChildKeys(r2)).NumberFormat = "#.##" mà không ra ạ.

 

[hoahuongduong1986]

Dear Anh chị và các bạn
WriteStr = WriteStr & Chr(10) & ChildKeys(r2) & " - " & dic2.Item(ChildKeys(r2)) & " Trd"

Phần bôi đậm nó đưa về dạng 23657 Trđ => Giờ em muốn nó chuyển Text 23657 thành dạng tiền 23.657 thì làm sao ạ. Em thử kiểu này Text(dic2.Item(ChildKeys(r2)),"0,00#") mà không ra ạ.

.

 

[Phuocam]

Em thử kiểu này Text(dic2.Item(ChildKeys(r2)),"0,00#") hoặc kiểu này dic2.Item(ChildKeys(r2)).NumberFormat = "#.##" mà không ra ạ.

Thử:

Format(dic2.Item(ChildKeys(r2)),"#,###")

 

[hoahuongduong1986]

Thử:

Format(dic2.Item(ChildKeys(r2)),"#,###")

Dạ, em cảm ơn anh. Được rồi ạ.