3 biện pháp đổi số thành chữ đơn giản dễ dàng trong Excel cần sử dụng hàm, VBA và Add-ins Acc
Helper

Đổi số thành chữ là một các bước gần như chạm chán hằng ngày với các bạn làm ủy nhiệm đưa ra ngân hàng, viết hóa đơn, thu chi tiền mặt, phiếu lương…Nếu làm thủ công thì sẽ rất mất thời gian và dễ dàng sai sót. Dân Tài bao gồm sẽ hướng dẫn các bạn 3 phương pháp để chuyển số sang chữ vào excel cực kỳ đơn giản, cấp tốc và chủ yếu xác:

Cách 1: thực hiện hàm trực tiếp, không cần sử dụng VBA hay Add-ins.

Bạn đang xem: Chuyển số thành chữ trong excel 2019

*

Đầu tiên các bạn tải file bao gồm công thức sẵn này về: https://drive.google.com/file/d/1-Wo
KNn
EWd2Ldw
TEm61UXja6s
IL19B937/viewSau đó chúng ta nhập số nên đọc vào ô B2 như hình bên trên là xong. Bạn có thể copy nguyên phần công thức đó vào bảng tính hiện tại tại của công ty sau đó link phần chữ qua là được.


Cách 2: sử dụng VBA để nhảy số thành chữ

Bạn không hẳn là bạn rành về VBA bắt buộc nghe dường như sợ nhưng đừng lo, sẽ khá đơn giản. Bạn chỉ cần 4 cách sau nhằm thêm đoạn mã VBA thay đổi số thành chữ vào bảng tính của bạn:Bước 1: Mở bảng tính mà bạn cần đánh vần các con số.Bước 2: Nhấn alt + F11 để open sổ trình soạn thảo Visual Basic.Bước 3: nếu như bạn đang mở các tệp tin, hãy chọn bảng tính buộc phải thiết bằng phương pháp sử dụng danh sách những tệp ở phía bên trái của trình soạn thảo (tệp đã được lưu lại màu xanh).Bước 4: vào trình đơn chỉnh sửa hãy vào Insert-> Module .

*
Bước 5: các bạn sẽ thấy cửa sổ có tên Your
Book – Module1. Chọn tất cả mã trong khung bên dưới và dán nó vào cửa sổ này.
*

Function Unicode
Char(Uni
Char
Code As String) As String
On Error Go
To Loi
Dim str
Dim des
Str As String
Dim IIf Mid(Uni
Char
Code, 1, 1) = ";" Then
Uni
Char
Code = Mid(Uni
Char
Code, 2)End If
If Right(Uni
Char
Code, 1) = ";" Then
Uni
Char
Code = Mid(Uni
Char
Code, 1, Len(Uni
Char
Code) - 1)End Ifstr = Uni
Char
Codestr = Split(str, ";")For I = LBound(str) to lớn UBound(str)des
Str = des
Str và Chr
W$("&H" & str(I))Next
Unicode
Char = des
Str
Loi:Exit Function
End Function

Function vnd(By
Val Num
Currency As Currency) As String
Static Char
VND(9) As String, Bang
Chu As String, I As Integer
Dim So
Le, So
Doi As Integer, Phan
Chan, Ten As String
Dim Don
Vi
Tien As String, Don
Vi
Le As String
Dim Ngan
Ty As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, Don
Vi As Integer
Num
Currency = Round(Num
Currency, 0)Don
Vi
Tien = “;111;1ED3;6E;67” ‘ d?ng
Don
Vi
Le = “;78;75” ‘ xu
If Num
Currency = 0 Thenvnd = Unicode
Char(“;4B;68;F4;6E;67;20” & Don
Vi
Tien)Exit Function
End If
If Num
Currency > 922337203685477# Then ‘ S? l?n nh?t c?a lo?i CURRENCYvnd = Unicode
Char(“;4B;68;F4;6E;67;20;111;1ED5;69;20;111;1B0;1EE3;63;20;73” và _“;1ED1;20;6C;1EDB;6E;20;68;1A1;6E;20;39;32;32;2C;33;33;37” và _“;2C;32;30;33;2C;36;38;35;2C;34;37;37”)Exit Function
End If
Char
VND(1) = “;6D;1ED9;74” ‘ m?t
Char
VND(2) = “;68;61;69” ‘ hai
Char
VND(3) = “;62;61” ‘ ba
Char
VND(4) = “;62;1ED1;6E” ‘ b?n
Char
VND(5) = “;6E;103;6D” ‘ nam
Char
VND(6) = “;73;E1;75” ‘ s?u
Char
VND(7) = “;62;1EA3;79” ‘ b?y
Char
VND(8) = “;74;E1;6D” ‘ t?m
Char
VND(9) = “;63;68;ED;6E” ‘ ch?n
So
Le = Int((Num
Currency – Int(Num
Currency)) * 100) ‘ 2 k? s?
Phan
Chan = Trim$(str$(Int(Num
Currency)))Phan
Chan = Space(15 – Len(Phan
Chan)) + Phan
Chan
Ngan
Ty = Val(Left(Phan
Chan, 3))Ty = Val(Mid$(Phan
Chan, 4, 3))Trieu = Val(Mid$(Phan
Chan, 7, 3))Ngan = Val(Mid$(Phan
Chan, 10, 3))Dong = Val(Mid$(Phan
Chan, 13, 3))If Ngan
Ty = 0 & Ty = 0 and Trieu = 0 and Ngan = 0 & Dong = 0 Then
Bang
Chu = “;6B;68;F4;6E;67;20” + Don
Vi
Tien + “;20”I = 5Else
Bang
Chu = “”I = 0End If‘—————————————————–‘ B?t d?u d?i‘—————————————————–While I Select Case ICase 0So
Doi = Ngan
Ty
Ten = “;6E;67;E0;6E;20;74;1EF7” ‘ ng?n t?
Case 1So
Doi = Ty
Ten = “;74;1EF7” ‘ t?
Case 2So
Doi = Trieu
Ten = “;74;72;69;1EC7;75” ‘ tri?u
Case 3So
Doi = Ngan
Ten = “;6E;67;E0;6E” ‘ ng?n
Case 4So
Doi = Dong
Ten = Don
Vi
Tien ‘ d?ng
Case 5So
Doi = So
Le
Ten = Don
Vi
Le ‘ xu
End Select
If So
Doi 0 Then
Tram = Int(So
Doi / 100)Muoi = Int((So
Doi – Tram * 100) / 10)Don
Vi = (So
Doi – Tram * 100) – Muoi * 10If Right(Bang
Chu, 3) = “;20” Then
Bang
Chu = Left(Bang
Chu, Len(Bang
Chu) – 3)End If
Bang
Chu = Bang
Chu + IIf(Len(Bang
Chu) = 0, “”, “;2C;20”) + _IIf(Tram 0, Trim(Char
VND(Tram)) + “;20;74;72;103;6D;20”, “”)If Muoi = 0 và Tram 0 and Don
Vi 0 Then
Bang
Chu = Bang
Chu + “;6C;1EBB;20”Else
If Muoi 0 Then
Bang
Chu = Bang
Chu + IIf(Muoi 0 and Muoi 1, _Trim(Char
VND(Muoi)) + “;20;6D;1B0;1A1;69;20”, “;6D;1B0;1EDD;69;20”)End If
End If
If Muoi 0 & Don
Vi = 5 Then
Bang
Chu = Bang
Chu + “;6C;103;6D;20” + Ten + “;20”Else
If Muoi > 1 & Don
Vi = 1 Then
Bang
Chu = Bang
Chu + “;6D;1ED1;74;20” + Ten + “;20”Else
Bang
Chu = Bang
Chu + IIf(Don
Vi 0, Trim(Char
VND(Don
Vi)) + “;20” + Ten, Ten) + “;20”End If
End If
Else
Bang
Chu = Bang
Chu + IIf(I = 4, Don
Vi
Tien + “”, “”)End If
I = I + 1Wend
If So
Le = 0 Then
Bang
Chu = Bang
Chu + IIf(Right(Bang
Chu, 3) = “;20”, “”, “;20”) + “;63;68;1EB5;6E”End If
Bang
Chu = Unicode
Char(Bang
Chu)‘??i sang ti?ng Vi?t Unicode‘ ??i ch? c?i d?u ti?n th?nh ch? hoa
Mid$(Bang
Chu, 1, 1) = UCase$(Mid$(Bang
Chu, 1, 1))vnd = Bang
Chu
End Function

Nếu bị lỗi phông thì các bạn tải file này về nhé, code đã có sẵn trong file:https://drive.google.com/file/d/1DDzrpj0w
Ob
NZk
Wi
BDYi
Xz
NJyq1I9lz
YC/view

Bước 6: Bạn trở lại bảng tính vàsử dụng hàm VND nhằm đọc số. Nhập =VND(B2) vào ô nơi bạn phải lấy số được viết bằng từ. Ở trên đây B2 là địa chỉ của ô bao gồm số hoặc số.

Xem thêm: Các tên đẹp cho bé trai 2023 ý nghĩa, độc đáo, 500+ tên bé trai hay, ý nghĩa, hợp tuổi bố mẹ

*

Lưu ý khi lưu lại bảng tính tất cả VBA các bạn phải lưu giữ với format .xlsm thì mới lưu được nhé.

Cách 3: thực hiện Add-ins Acc
Helper để đọc số

Accounting Helper là một trong những Add-ins đọc số đa zi năng vô cùng bạo phổi mẽ dành riêng cho Excel:– cung ứng các hàm gọi số thành chữ bằng tiếng Anh, Việt bởi những loại phông chữ TCVN3 (ABC), VNI, UNICODE. Các hàm: VND(), USD(), Num2Str().– cung cấp hàm chuyển đổi font chữ từ TCVN3, VNI quý phái UNICODE. Hàm To
UNC().


Bạn cài đặt Add-ins về trên đây, triển khai giải nén và làm theo hướng dẫn trong file huongdan.txt nhéhttps://drive.google.com/file/d/1M0r
AXWu7opkdl
Ii
Z0_BD3h0PXqr
PHb7m/view

Vậy là bạn đã có 3 giải pháp chuyển số thành chữ bên trên Excel 2010 rồi nhé, chúng ta cũng có thể áp dụng tựa như trên Excel 2003, 2007, 2013, 2016 đến 2019 số đông được. Ví như bạn gặp gỡ khó khăn trong những khi thực hiện hoàn toàn có thể để lại bình luận dưới mình vẫn hỗ trợ.

HƯỚNG DẪN ĐỔI SỐ THÀNH CHỮ vào EXCELDịch vụ duy trì máy tính văn phòng và công sở Bài viết dưới đây là thủ thuật Excel sẽ giúp chúng ta đổi số thành chữ một cách thuận lợi giúp bọn họ giảm giảm công việc bước 1: Tải ứng dụng đổi số thành chữ trong Excel - Các bạn cũng có thể tải về tại đây: DOWNLOAD chúng ta nên để ngoài screen destop đến dễ tìm. Sau khoản thời gian tải về, các bạn giải nén File bởi cách: bấm vào phải vào tệp tin vừa download về -> Chọn: “Extract Here”
*
HOT:SỰ KIỆN FREE combo 7 BƯỚC BẢO TRÌ MÁY TÍNH VĂN PHÒNG bước 2 thiết lập phần mềm thay đổi số thành chữ vào Excel - với Excel 2007
*
- với Excel 2010, 2013, 2016, 2019
*
- tiếp nối sẽ xuát hiện hộp thoại “Excel Options” -> chọn: “Add-Ins” -> Chọn: “Go” theo như hình
*
- Tiếp kia sẽ mở ra hộp thoại: “Add-Ins” -> lựa chọn “Browse..” -> Chọn đường dẫn tới ứng dụng mà các bạn vừa mua về trang bị tính của doanh nghiệp -> chọn file bao gồm tên: “Acc
Helper”. Lưu ý: Đối với bản win 64bit thì các bạn chọn tệp tin “Acc
Helper” trong thư mục có tên “x64”
*
sau khi chọn hoàn thành thì các bạn bấm nút “OK” trên vỏ hộp thoại
*
=> các bạn đã vừa setup xong lý lẽ chuyển số thành chữ vào Excel.Nhóm cung cấp máy tính văn phòng (cho chúng ta nào không có tác dụng được nhé ^^) cách 3: công thức đổi số thành chữ trong Excel: - Các bạn muốn chuyển số thành chữ ở vị trí nào thì click chuột tái vào đó rồi gõ công thức: =VND(Ô số ước ao chuyển thành chữ ) -> Enter là xong.
*
*
Một số chú ý khi chuyển số thành chữ: - trường hợp bị lỗi Font: + Với font Vntimes: các bạn gõ câu lệnh =VND(ô số mong mỏi chuyển, 1) + Với font VNI: chúng ta gõ câu lệnh =VND(ô số ước ao chuyển, 2) - trường hợp bao gồm số lẻ. Lấy một ví dụ 2,150.234 các bạn gõ công thức: =VND(ô số ý muốn chuyển,,”Đồng”,”ảo” 3)
*

MINH PHÚ TEK - dịch vụ thương mại hoàn hảo cho khách hàng của Bạn!!!

Cách chuyển PDF lịch sự Excel bởi Solid
Converter
Cách khắc số trang bất kỳ trong Excel, theo ý muốnHƯỚNG DẪN ĐỔI SỐ THÀNH CHỮ trong EXCEL14 THỦ THUẬT TRÊN MÁY TÍNH "NHỎ NHƯNG CÓ VÕ" cho DÂN VĂN PHÒNG