Hỏi: Lỗi đoạn Code VBA nên không thể đọc số tiền bằng chữ?

[laianhtu]

Xin chào các bạn,

Mình bị lỗi đoạn Code VBA nên không thể đọc số tiền bằng chữ, ai biết hỗ trỡ fix lỗi này dùm.

Vui lòng xem file đính kèm
Thanks.
Anh Tú.

 

[ndu96081631]

Xin chào các bạn,

Mình bị lỗi đoạn Code VBA nên không thể đọc số tiền bằng chữ, ai biết hỗ trỡ fix lỗi này dùm.

Vui lòng xem file đính kèm
Thanks.
Anh Tú.

Ở phần đầu đoạn code của bạn:

Public Function VND(Baonhieu)
If Val(Baonhieu) = 0 Then
 "khoâng ñoàng"
Else
.....
.....

Bạn sửa lại thành:

Public Function VND(Baonhieu)
If Val(Baonhieu) = 0 Then
 VND = "khoâng ñoàng"
Else
...
...

Là xong ngay!

 

[laianhtu]

Xin chào bạn,

Nó vẫn còn thông báo lỗi bạn ơi ? Xem file đính kèm nhé.

Thanks.
Anh Tú.

 

[ThuNghi]

Xin chào bạn,

Nó vẫn còn thông báo lỗi bạn ơi ? Xem file đính kèm nhé.

Thanks.
Anh Tú.

Sửa lại đoạn sau, thay VND bằng KetQua

Public Function VND(Baonhieu)
If Val(Baonhieu) = 0 Then
Ketqua = "khoâng ñoàng"
Else
If Abs(Baonhieu) > 1E+15 Then
Ketqua = "Soá quaù lôùn"
Else