File chuyển số sang viết bằng chữ

  • Thread starter Thread starter HyperVN
  • Ngày gửi Ngày gửi
Dear Duy Luu,

Có thể khi bạn đang mở cùng một lúc 2 file, trước và sau khi sửa và bạn không đổi tên hàm sau khi sửa nên mới có trường hợp như vậy. Đúng như anh farway72 đã nói, việc bạn thêm hay bớt chữ D ko ảnh hưởng gì đến kết quả.

Bạn xem file đính kèm mình gửi lên ở đây và xem thêm bài Thắc mắc về hàm đọc số ra chữ Anh ngữ nha.

Chúc bạn cuối tuần vui vẻ.
SG
 

Đính kèm

Sửa lần cuối:
OK, mình đã coi lại rồi. Không hiểu tại sao trên máy mình khi đổi thì vẫn như thế thôi, có một số dòng đọc thi OK, còn một số dòng lại vẫn tồn tại chữ D. Sau khi mình down phần của SG về lần nữa thì mở ra thấy của SG chạy hoàn hảo hơn, chả biết tại sao nữa. hì hì. Thôi thì mình copy luôn đoạn code của SG chép vào cái cũ, thấy chạy tốt. Lần nữa cám ơn sự nhiệt tình của SG và farway72 nhé. Chúc mọi người vui.
 
Sửa lần cuối:
Kính gửi các huynh, đệ có một nhu cầu nho nhỏ nhờ các huynh giúp đối với hàm chuyển từ số sang chữ đối với đồng tiền VND
1. Tự động làm tròn số sau dấu phẩy
2. Sau đơn vị có dấu phẩy để phân cách
VD: 1234.56 VND -> Một nghìn, hai trăm ba mươi năm đồng chẵn.
Hi vọng các huynh giúp em sớm vì em đang cần rất rất gấp.
 
foxnh41b nói:
Kính gửi các huynh, đệ có một nhu cầu nho nhỏ nhờ các huynh giúp đối với hàm chuyển từ số sang chữ đối với đồng tiền VND
1. Tự động làm tròn số sau dấu phẩy
2. Sau đơn vị có dấu phẩy để phân cách
VD: 1234.56 VND -> Một nghìn, hai trăm ba mươi năm đồng chẵn.
Hi vọng các huynh giúp em sớm vì em đang cần rất rất gấp.
Nhấn để mở rộng...


Dùng kèm thêm hàm Round : =VND(ROUND(1234.56,0))
Thân
 
mọi người cho mình hỏi! mọi người có thể đưa ra 1 file cuối cùng được ko! các file trước mình dùng thì có lỗi tiếng việt là khi lên đến tỷ thì nó đọc sai, với lại khi em viết UNC em bắt buộc phải thêm đơn vị tính bên cạnh vd: 1000 vnd nhưng nếu đánh vào như thế thì hàm ko thể đọc được
 
dangkhoaquan nói:
mọi người cho mình hỏi! mọi người có thể đưa ra 1 file cuối cùng được ko! các file trước mình dùng thì có lỗi tiếng việt là khi lên đến tỷ thì nó đọc sai, với lại khi em viết UNC em bắt buộc phải thêm đơn vị tính bên cạnh vd: 1000 vnd nhưng nếu đánh vào như thế thì hàm ko thể đọc được
Nhấn để mở rộng...

Lỗi này do người viết gõ sai mã của chữ "tỷ" thành tĐ, phải không? Chỉ cần chỉnh code lại 1 chút là xong. Tương tự đối với ĐVT, Quắn gửi file cho anh anh chỉnh lại cho.
 
anh ơi! anh chỉnh lại hộ em cái lỗi tiền tỷ với ! chưa kể số " bảy" thì nó đọc thành "bẩy" !
 

Đính kèm

dangkhoaquan nói:
anh ơi! anh chỉnh lại hộ em cái lỗi tiền tỷ với ! chưa kể số " bảy" thì nó đọc thành "bẩy" !
Nhấn để mở rộng...

Gửi cho em luôn bộ tiện ích lượm lặt, gồm có:
1. Công cụ quản lý tên (NameManager của ForestC)
2. Một số hàm lượm lặt:
- KIEMTRA(MST): Kiểm tra MST
- VNUD(So): Hàm đổi tiền thành chữ font Unicode - đã fix lỗi chữ tỷ
- VND(So): Hàm đổi tiền thành chữ font TCVN - đã fix chữ bẩy thành bảy
- VNID(So): Hàm đổi số thành chữ font VNI
- DOISO(So): Hàm kết hợp 3 hàm trên, tự động chuyển font chữ thích hợp theo ô. Nếu sau khi nhập hàm mà bạn chuyển cell sang font khác thì nhất F2 - Enter
- EOMONTH(Date): Hàm xác định ngày cuối tháng (mình chẳng xài bao giờ)
- VND_US(So): Hàm đọc tiền Việt theo tiếng Anh
- net2grosslc(net_local): Gross-up lương trước thuế TNCN người VN
- net2grossfr(net_foreign): Gross-Up lương trước thuế TNCN người nước ngoài
- Workday(Thang As Integer, Optional NghiT7 = True, Optional Nam = 0) As Integer: Hàm tính bao nhiêu ngày làm việc trong tháng, có 3 tham số: Tháng, mặc định tham số thứ 2 là nghỉ thứ 7- nếu làm thứ 7 thì tham số = 0, tham số thứ 3 là năm - mặc định là năm hiện hành
- Macro GotoSheet: Tìm sheet theo tên sheet (Thử đi rồi biết tác dụng)
- Một vài hàm cắt tên họ khác...
 

Đính kèm

Chỉnh lại một chút Macro GotoSheet

Sub GotoSheet()
Dim sSheet As Worksheet, FindText As String, StopFind As Boolean
Dim FshCount As Byte
FindText = InputBox("Nhap vao ten sheet can tim:")
If Trim(FindText) = Space(0) Then
MsgBox ("Ban da khong nhap vao ten sheet nao!")
Exit Sub
End If
FindText = UCase(FindText)
FshCount = 0
For Each sSheet In ActiveWorkbook.Sheets
'Ham nay kiem tra FindText co ton tai trong ten sheet hay ko
'Ban co the dung giai thuat khac de kiem tra
If InStr(1, UCase(sSheet.Name), FindText) > 0 Then
sSheet.Activate
If MsgBox("Ban muon tiep tuc tim khong?", vbYesNo) = vbNo Then Exit For
FshCoun = FshCoun + 1
End If
Next
If FshCoun = 0 Then MsgBox ("Khong tim thay sheet nao co chua ten " & FindText & "!")
End Sub
 
To Adam_Tran

Tôi dùng file của bác, nhưng có mấy vấn đề sau:
- Sau khi Add_in thì dùng rất tốt, nhưng khi thoát file đó và vào lại thì lại báo lỗi [HASHTAG]#NAME[/HASHTAG] và phải Add_in nó lại thì mới dùng được, thế là sao nhỉ?
- Thứ 2 là bác có thể thêm hàm đọc USD bằng tiếng anh vào được không?

Thanks bác nhiều
 
Các bạn dowload phần mềm Vn tool rồi cài đặt vào exel thì đơn giản hơn ( mình chưa tự dowload nên nhờ bộ phận IT cơ quan làm hộ cho thôi)
 
Bạn sử dung VN tool xem sao mìh thấy nó có hiệu quả và rất đơn giản! Muốn đọc số nào chỉ cần nhập công thức = vnd(ô chứa số cần đọc, true) la ok thôi!
 

Đính kèm

Đổi số sang chữ

MinhTue1810 nói:
Nhưng bạn ơi làm thế nào để đưa nó vào phiếu thu - chi, mình đã thử đưa vào nhưng không được, cũng không thấy công thức gì cả :wall::wall::wall:
Nhấn để mở rộng...

Bạn hãy dùng VN tool của ban Thai My, cũng hay đó, tiếc không phân biệt dấu chấm phẩu (,) giữa các hàng đơn vị
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top