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

[Secret_grasses]

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

 

[Duy Luu]

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.

 

[foxnh41b]

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.

 

[anh phuong]

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.

Dùng kèm thêm hàm Round : =VND(ROUND(1234.56,0))
Thân

 

[dangkhoaquan]

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

 

[adam_tran]

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

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.

 

[dangkhoaquan]

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" !

 

[adam_tran]

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" !

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...

 

[adam_tran]

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

 

[haihuong0584]

Cái code của bạn bị lỗi rồi sao ý. Mình thử mãi mà cũng không được gì cả

 

[vivacious]

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

 

[datquangtrinh]

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)

 

[lienanh86]

Sao em ko down về được vậy, các bác ai biết giúp em với

 

[giangnh]

Em thì chẳng dùng VBA, số sang chữ nó cứ chạy vù vù, hì hì

 

[MinhTue1810]

Em thì chẳng dùng VBA, số sang chữ nó cứ chạy vù vù, hì hì

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:

 

[Thai My]

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!

 

[Nina]

Đổi số sang chữ

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:

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ị

 

[Nobita9x]

Chẳng thấy mấy cái file đính kèm của mấy bác đâu cả?

 

[Nobita9x]

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ị

Chỉ dùm cách làm cái nào?
Có nghề thích giấu à ?

 

[Kaori K]

Chỉ dùm cách làm cái nào?
Có nghề thích giấu à ?

Trả lời hộ nhé, bạn cứ down add in "vntook" về, mở ra trong đó có mục readme.txt là hướng dẫn đấy