Lỗi không đọc được số lớn hơn nghìn tỷ

[cuteott]

Từ trước tời nay em hay dùng cái file dưới đây để đọc số thành chữ. Nó rất tiện

Tuy nhiên khi số lớn quá (trên 200 tỷ) thì nó lỗi #NUM!.

Hiện Em đang cần nó đọc được hơn 50 nghìn tỷ.

Xin các anh chị sữa lỗi và bổ sung cho em với.

Xin cảm ơn diễn đàn. Chúc anh chị sức khoẻ và công tác tốt

 

[thanhlanh]

Từ trước tời nay em hay dùng cái file dưới đây để đọc số thành chữ. Nó rất tiện

Tuy nhiên khi số lớn quá (trên 200 tỷ) thì nó lỗi #NUM!.

Hiện Em đang cần nó đọc được hơn 50 nghìn tỷ.

Xin các anh chị sữa lỗi và bổ sung cho em với.

Xin cảm ơn diễn đàn. Chúc anh chị sức khoẻ và công tác tốt

Những việc liên quan đến trên 50^9 không nhiều, vì vậy thiết nghĩ bạn gõ tay số tiền nhanh hơn viết code đó. Hi, thân! Chúc mừng năm mới có nhiều tỉ hơn nữa!

 

[siwtom]

Từ trước tời nay em hay dùng cái file dưới đây để đọc số thành chữ. Nó rất tiện

Tuy nhiên khi số lớn quá (trên 200 tỷ) thì nó lỗi #NUM!.

Hiện Em đang cần nó đọc được hơn 50 nghìn tỷ.

Xin các anh chị sữa lỗi và bổ sung cho em với.

Xin cảm ơn diễn đàn. Chúc anh chị sức khoẻ và công tác tốt

Sửa lỗi gì? Tập tin của bạn có tí code nào đâu?
-----------
Bạn đọc kỹ 11 ví dụ để biết cách dùng.
Code này tôi viết từ thủa đơn sơ, không còn tâm huyết để sửa (ví dụ thêm dấu phẩy ngắt đoạn). Bạn dùng được thì dùng.
------------
Có một chút nhầm lẫn.

Trong code của hàm BangLoiVn ở cuối có đoạn

If n[B][COLOR=#ff0000]2[/COLOR][/B] = 1 Then
    DonVi = donvi1(n3)
ElseIf n[B][COLOR=#ff0000]2[/COLOR][/B] > 1 Then
    DonVi = donvi2(n3)
Else
    DonVi = ""
End If

ketqua = ketqua & chuc & DonVi & dvle

sửa thành

If n[COLOR=#0000ff][B]3[/B][/COLOR] = 1 Then
    DonVi = donvi1(n3)
ElseIf n[COLOR=#0000ff][B]3[/B][/COLOR] > 1 Then
    DonVi = donvi2(n3)
Else
    DonVi = ""
End If

ketqua = ketqua & chuc & DonVi & dvle

Tức sửa đỏ đỏ thành xanh xanh.

Nếu ai đọc kỹ code thì từ ngữ cảnh cũng có thể tự sửa được. Vì đoạn code dùng tới n3 - donvi1(n3), donvi2(n3) nên điều kiện phải là cho n3