Hàm Đổi Số Thành Chữ Trong Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

Có thể bạn quan tâm: Cách Căn Chỉnh Ô Trong Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

Mở Đầu

Trong môi trường làm việc văn phòng, đặc biệt là các phòng kế toán, tài chính, hay nhân sự, việc chuyển đổi số thành chữ là một nhu cầu thường gặp. Khi lập báo cáo, in hoá đơn, chứng từ thanh toán, hoặc tạo phiếu lương, chúng ta thường phải ghi số tiền bằng cả hai dạng: số và chữ. Điều này không chỉ giúp tăng tính chính xác, tránh nhầm lẫn mà còn đáp ứng yêu cầu pháp lý ở một số quốc gia.

Microsoft Excel, với khả năng mạnh mẽ về tính toán và xử lý dữ liệu, đã cung cấp cho người dùng một loạt các công cụ và hàm để thực hiện việc này. Tuy nhiên, Excel không có hàm tích hợp sẵn để chuyển đổi số thành chữ (ví dụ: “1234” → “một nghìn hai trăm ba mươi bốn”). Vì vậy, người dùng phải tự xây dựng hàm tùy chỉnh (User Defined Function – UDF) bằng VBA, hoặc sử dụng các công thức phức tạp, hoặc tận dụng các add‑in bên ngoài.

Bài viết dưới đây sẽ đi sâu vào mọi khía cạnh của việc đổi số thành chữ trong Excel, bao gồm:

1. Giới thiệu tổng quan về nhu cầu và các phương pháp hiện có.
2. Cách tạo hàm UDF bằng VBA cho tiếng Việt (với các quy tắc ngữ pháp, cách viết “một trăm lẻ năm”, “hai nghìn không trăm ba mươi” …).
3. Giải thích chi tiết từng đoạn mã, cách tùy biến cho các đơn vị tiền tệ khác nhau (VNĐ, USD, EUR…).
4. Công thức Excel thuần (không dùng VBA) để chuyển đổi số sang chữ, dành cho những môi trường không cho phép macro.
5. Sử dụng Power Query và Power Automate để thực hiện chuyển đổi trên quy mô lớn.
6. Các lưu ý về hiệu suất, bảo mật, và cách tối ưu cho bảng dữ liệu có hàng nghìn, hàng triệu bản ghi.
7. Ví dụ thực tế: tạo phiếu lương, hoá đơn bán hàng, báo cáo tài chính.
8. Câu hỏi thường gặp (FAQ) và cách khắc phục lỗi thường gặp.
9. Kết luận và đề xuất các công cụ hỗ trợ khác.

Mục tiêu của bài viết là cung cấp tài liệu tham khảo đầy đủ cho cả người mới bắt đầu và những chuyên gia Excel muốn tối ưu hoá quy trình làm việc.

Có thể bạn quan tâm: Cách Tính Irr Trên Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

1. Nhu Cầu Đổi Số Thành Chữ Trong Thực Tiễn

1.1. Yêu Cầu Pháp Lý

• Việt Nam: Theo quy định của Bộ Tài chính, trong các chứng từ kế toán (hóa đơn, biên lai, phiếu thu, phiếu chi…) phải ghi số tiền bằng chữ để tránh sai sót.
• Các quốc gia khác: Ở nhiều nơi, việc ghi số tiền bằng chữ trên hợp đồng, biên lai là bắt buộc hoặc ít nhất là “thực tiễn tốt”.

1.2. Lợi Ích Khi Sử Dụng Excel

• Tự động hoá: Khi thay đổi số tiền, chữ sẽ tự động cập nhật mà không cần chỉnh sửa thủ công.
• Giảm lỗi: Tránh việc nhập sai chữ do con người.
• Tiết kiệm thời gian: Với hàng chục, hàng trăm phiếu, công việc hoàn toàn tự động.

1.3. Các Phương Pháp Thông Thường

Trong phần tiếp theo, chúng ta sẽ tập trung vào UDF VBA, vì đây là cách phổ biến nhất và cho phép tùy biến sâu.

Có thể bạn quan tâm: Cách Thêm Nhiều Dòng Trong Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

2. Tạo Hàm UDF Đổi Số Thành Chữ Bằng VBA

2.1. Chuẩn Bị Môi Trường

1. Mở Excel → nhấn Alt + F11 để mở Visual Basic for Applications (VBA) Editor.
2. Trong cửa sổ Project – VBAProject, chuột phải vào VBAProject (TênFile.xlsx) → Insert → Module.
3. Một module mới sẽ xuất hiện, bạn sẽ dán đoạn mã dưới đây vào.

2.2. Đoạn Mã Cơ Bản

Option Explicit ' Hàm chính: NumberToWordsVN
' Đầu vào: ' - value: Variant (có thể là số, chuỗi, hoặc ô chứa số)
' - currency: String (mặc định "đồng", có thể là "USD", "EUR"...)
' - showCurrency: Boolean (true = hiển thị đơn vị tiền tệ, false = không)
' Trả về: Chuỗi chữ viết số bằng tiếng Việt
Public Function NumberToWordsVN(ByVal value As Variant, _ Optional ByVal currency As String = "đồng", _ Optional ByVal showCurrency As Boolean = True) As String Dim num As Double Dim isNegative As Boolean Dim result As String ' Kiểm tra giá trị nhập vào có phải là số hay không If IsNumeric(value) Then num = CDbl(value) Else NumberToWordsVN = "Không phải số" Exit Function End If ' Xử lý số âm If num < 0 Then isNegative = True num = Abs(num) End If ' Tách phần nguyên và phần thập phân (đối với tiền tệ, thường chỉ lấy 2 chữ số) Dim integerPart As Long Dim decimalPart As Long integerPart = Fix(num) ' phần nguyên decimalPart = Round((num - integerPart) 100) ' 2 chữ số thập phân ' Chuyển phần nguyên sang chữ result = ConvertIntegerToWords(integerPart) ' Nếu có phần thập phân và muốn hiển thị đơn vị tiền tệ, thêm "phẩy" If decimalPart > 0 Then result = result & " phẩy " & ConvertIntegerToWords(decimalPart) End If ' Thêm tiền tệ nếu yêu cầu If showCurrency Then result = result & " " & currency End If ' Thêm dấu âm nếu cần If isNegative Then result = "Âm " & result End If NumberToWordsVN = Trim(result)
End Function ' -----------------------------------------------------------------
' Hàm phụ trợ: ConvertIntegerToWords
' Chuyển một số nguyên dương (tối đa 999.999.999) thành chữ tiếng Việt
' -----------------------------------------------------------------
Private Function ConvertIntegerToWords(ByVal n As Long) As String Dim units() As String Dim teens() As String Dim tens() As String Dim thousands() As String units = Split("không,một,hai,ba,bốn,năm,sáu,bảy,tám,chín", ",") teens = Split("mười,mười một,mười hai,mười ba,mười bốn,mười lăm,mười sáu,mười bảy,mười tám,mười chín", ",") tens = Split("hai,mươi,ba,mươi,bốn,mươi,năm,mươi,sáu,mươi,bảy,mươi,tám,mươi,chín,mươi", ",") thousands = Split("","nghìn","triệu","tỷ") ' 0: "", 1: nghìn, 2: triệu, 3: tỷ Dim result As String result = "" If n = 0 Then ConvertIntegerToWords = units(0) Exit Function End If Dim i As Integer i = 0 Do While n > 0 Dim part As Integer part = n Mod 1000 ' Lấy từng khối 3 chữ số If part <> 0 Then Dim partWord As String partWord = ConvertThreeDigits(part, units, teens, tens) If i > 0 Then partWord = partWord & " " & thousands(i) End If If result = "" Then result = partWord Else result = partWord & " " & result End If End If n = n \ 1000 i = i + 1 Loop ConvertIntegerToWords = Trim(result)
End Function ' -----------------------------------------------------------------
' Hàm phụ: ConvertThreeDigits
' Chuyển 3 chữ số (0-999) thành chuỗi chữ
' -----------------------------------------------------------------
Private Function ConvertThreeDigits(ByVal n As Integer, _ ByRef units() As String, _ ByRef teens() As String, _ ByRef tens() As String) As String Dim hundred As Integer, ten As Integer, unit As Integer Dim result As String result = "" hundred = n \ 100 ten = (n Mod 100) \ 10 unit = n Mod 10 ' Xử lý hàng trăm If hundred > 0 Then result = units(hundred) & " trăm" If ten = 0 And unit > 0 Then result = result & " lẻ" End If End If ' Xử lý hàng chục và đơn vị If ten > 1 Then result = result & " " & tens((ten - 2) 2) ' ví dụ ten=2 → "hai mươi" If unit = 1 Then result = result & " mốt" ElseIf unit = 5 Then result = result & " lăm" ElseIf unit > 0 Then result = result & " " & units(unit) End If ElseIf ten = 1 Then result = result & " " & teens(unit) ElseIf ten = 0 Then If unit > 0 Then result = result & " " & units(unit) End If End If ConvertThreeDigits = Trim(result)
End Function

Giải Thích Chi Tiết

1. NumberToWordsVN là hàm công khai (Public) mà người dùng sẽ gọi trong ô Excel:
   excel =NumberToWordsVN(A1, "đồng", TRUE)
2. value có thể là số thô, hoặc tham chiếu tới ô chứa số.
3. currency cho phép thay đổi đơn vị (ví dụ “USD”, “EUR”).

4. showCurrency quyết định có hiển thị đơn vị hay không.

5. Xử lý số âm: Nếu giá trị < 0, hàm sẽ thêm tiền tố “Âm”.

6. Phần thập phân: Đối với tiền tệ, thường lấy 2 chữ số sau dấu phẩy (cents). Hàm Round giúp làm tròn chính xác.

7. ConvertIntegerToWords: Chia số thành các khối 3 chữ số (nghìn, triệu, tỷ). Hạn chế tới 999.999.999.999 (tức 12 chữ số) vì biến Long trong VBA chỉ hỗ trợ tới 2.147.483.647, tuy nhiên chúng ta có thể mở rộng bằng Currency hoặc Double nếu cần.

8. ConvertThreeDigits: Xử lý quy tắc ngữ pháp tiếng Việt:

9. “một trăm lẻ năm”, “hai trăm ba mươi bốn”, “ba trăm lẻ một”.
10. Khi hàng chục > 1, dùng “hai mươi”, “ba mươi”…
11. Khi hàng đơn vị = 1 và hàng chục > 1 → “mốt”.
12. Khi hàng đơn vị = 5 và hàng chục > 0 → “lăm”.

13. Khi không có hàng chục nhưng có hàng đơn vị → “năm”, “bốn”…

14. Mảng thousands: Định nghĩa các bậc: “”, “nghìn”, “triệu”, “tỷ”. Có thể mở rộng cho “nghìn tỷ” nếu cần.

2.3. Kiểm Tra Hàm

Sau khi dán mã, đóng VBA Editor và quay lại Excel.

Lưu ý: Khi sử dụng hàm trong Excel, nếu macro bị chặn, bạn cần kích hoạt macro (File → Options → Trust Center → Trust Center Settings → Macro Settings → Enable all macros).

3. Tùy Biến Hàm Cho Đơn Vị Tiền Tệ Khác

3.1. Thêm Đơn Vị Tiền Tệ Phức Tạp

Nếu muốn hiển thị “đô la Mỹ” hoặc “euro”, chỉ cần truyền tham số currency:

=NumberToWordsVN(123.45, "đô la Mỹ", TRUE)

Kết quả: một trăm hai mươi ba phẩy bốn mươi lăm đô la Mỹ

3.2. Định Dạng “Triệu Đồng”, “Tỷ Đồng”

Trong báo cáo tài chính, người ta thường ghi “123.456.789 đồng” dưới dạng “một trăm hai mươi ba triệu bốn trăm năm mươi sáu nghìn bảy trăm tám mươi chín đồng”. Để tự động thêm “triệu” hoặc “tỷ” dựa trên giá trị, bạn có thể mở rộng hàm:

If n >= 1000000 Then result = result & " triệu"
ElseIf n >= 1000 Then result = result & " nghìn"
End If

Hoặc tạo function wrapper:

Public Function NumberToWordsCurrency(ByVal value As Variant) As String NumberToWordsCurrency = NumberToWordsVN(value, "đồng", True)
End Function

3.3. Định Dạng “lẻ” cho Số Tiến Độ

Trong một số công ty, khi ghi số tiền bằng chữ, họ muốn bỏ “lẻ” nếu không có phần thập phân. Để làm điều này, sửa đoạn:

If decimalPart > 0 Then result = result & " phẩy " & ConvertIntegerToWords(decimalPart)
ElseIf showCurrency Then result = result & " " & currency
End If

4. Công Thức Excel Thuần Không Dùng VBA

Trong môi trường không cho phép macro (ví dụ: SharePoint Online, Excel Online), chúng ta phải dựa vào công thức. Dưới đây là một phương pháp ghép nhiều hàm để chuyển đổi số tới 999 999.

4.1. Các Hàm Hỗ Trợ

Có thể bạn quan tâm: Cách Sử Dụng Hàm Vlookup Trong Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

4.2. Mẫu Công Thức (đối với số ≤ 999 999)

Giả sử ô A1 chứa số cần chuyển đổi.

=LET( n,INT(A1), units, {"không","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"}, teens, {"mười","mười một","mười hai","mười ba","mười bốn","mười lăm","mười sáu","mười bảy","mười tám","mười chín"}, tens, {"hai","ba","bốn","năm","sáu","bảy","tám","chín"}, hundreds, INT(n/100), tensUnits, MOD(n,100), tensPart, INT(tensUnits/10), unitsPart, MOD(tensUnits,10), txtHundreds, IF(hundreds>0, INDEX(units, hundreds+1)&" trăm"&IF(tensUnits=0,""," lẻ"),""), txtTensUnits, IF(tensUnits<10, IF(tensUnits>0, INDEX(units, unitsPart+1),""), IF(tensUnits<20, INDEX(teens, tensUnits-9), INDEX(tens, tensPart-1)&IF(unitsPart=1," mốt",IF(unitsPart=5," lăm",IF(unitsPart>0," "&INDEX(units, unitsPart+1),""))) ) ), TRIM(txtHundreds&" "&txtTensUnits)&" đồng"
)

Giải thích nhanh:

• LET giúp tạo biến tạm để giảm tính toán lặp lại.
• INDEX(units, hundreds+1) trả về “một”, “hai”… tùy vào số.
• Khi tensUnits < 10, chỉ cần ghi đơn vị; nếu 10‑19, dùng mảng teens; nếu >=20, kết hợp “hai mươi”, “ba mươi” + quy tắc “mốt”, “lăm”.

Hạn chế: Công thức phức tạp, không mở rộng dễ dàng lên triệu, tỷ. Đối với số lớn hơn 999 999, bạn cần chia thành phần nghìn, triệu và lặp lại công thức qua các ô phụ.

4.3. Kết Hợp Với Các Ô Phụ

• Ô B1: =INT(A1/1000) → lấy phần nghìn.
• Ô C1: =MOD(A1,1000) → phần trăm.
• Áp dụng công thức trên cho từng phần, rồi ghép lại:

=IF(B1>0, <công thức cho B1> & " nghìn ", "") & <công thức cho C1> & " đồng"

Mặc dù không đẹp, nhưng đủ dùng trong môi trường hạn chế macro.

5. Sử Dụng Power Query Để Đổi Số Thành Chữ

Power Query (Get & Transform) là công cụ mạnh mẽ cho xử lý dữ liệu lớn. Bạn có thể viết M code để thực hiện chuyển đổi.

5.1. Bước Tạo Query

1. Data → Get Data → From Table/Range (chọn bảng chứa số).
2. Trong Power Query Editor, chọn Add Column → Custom Column.
3. Đặt tên cột “Số Chữ” và nhập công thức M:

= let num = Số, result = NumberToVietnameseText(num)
in result

5.2. Định Nghĩa Hàm M NumberToVietnameseText

Trong Advanced Editor, thêm đoạn sau vào cuối file (trước in cuối cùng):

NumberToVietnameseText = (value as number) as text =>
let units = {"không","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"}, teens = {"mười","mười một","mười hai","mười ba","mười bốn","mười lăm","mười sáu","mười bảy","mười tám","mười chín"}, tens = {"hai","ba","bốn","năm","sáu","bảy","tám","chín"}, // Hàm phụ trợ: ba chữ số ThreeDigits = (n as number) as text => let h = Number.IntegerDivide(n,100), t = Number.IntegerDivide(Number.Mod(n,100),10), u = Number.Mod(n,10), txtHund = if h>0 then units{h} & " trăm" else "", txtTenUnit = if t=0 then if u>0 then if h>0 then " lẻ " & units{u} else units{u} else "" else if t=1 then " " & teens{u} else let base = " " & tens{t-1} & " mươi" in if u=0 then base else if u=1 then base & " mốt" else if u=5 then base & " lăm" else base & " " & units{u} in Text.Trim(txtHund & txtTenUnit), // Phân tách thành các khối nghìn parts = List.Generate(()=> n=value, i=0, txt="", each n > 0, each n = Number.IntegerDivide(n,1000), i = i+1, txt = if n > 0 then ThreeDigits(Number.Mod(n,1000)) & if i=1 then " nghìn " else if i=2 then " triệu " else if i=3 then " tỷ " else "" & txt else txt), final = Text.Trim(List.Last(parts)txt)
in if value=0 then units{0} else final

5.3. Ưu Điểm

• Xử lý hàng triệu bản ghi mà không làm chậm Excel.
• Không cần bật macro, phù hợp với Excel Online và Power BI.
• Dễ dàng điều chỉnh để thêm tiền tệ, phần thập phân.

5.4. Nhược Điểm

• Cần kiến thức M code để sửa đổi.
• Không hiển thị tự động khi thay đổi giá trị trong sheet (phải Refresh query).

6. Tối Ưu Hiệu Suất Khi Đối Phó Với Dữ Liệu Lớn

6.1. Tránh Gọi Hàm Lặp Lại

• Khi cùng một số xuất hiện nhiều lần, hãy lưu kết quả vào một bảng lookup (Dictionary).
• Trong VBA, sử dụng Scripting.Dictionary:

Dim cache As Object
Set cache = CreateObject("Scripting.Dictionary") If cache.Exists(num) Then result = cache(num)
Else result = ConvertIntegerToWords(num) cache.Add num, result
End If

6.2. Giảm Phạm Vi Tính Toán

• Đặt công thức hoặc UDF chỉ trên các ô cần thiết, không áp dụng cho toàn cột (ví dụ: =NumberToWordsVN(A2:A10000) sẽ rất chậm).
• Sử dụng Table và structured references để giới hạn phạm vi.

6.3. Sử Dụng Application.Volatile(False)

Trong UDF, nếu không cần cập nhật khi bất kỳ ô nào thay đổi, không gọi Application.Volatile. Điều này giảm việc tính lại không cần thiết.

Public Function NumberToWordsVN(...) ' Không có Application.Volatile ...
End Function

6.4. Khi Dùng Power Query

• Chuyển đổi dữ liệu sang kiểu Text sau khi có kết quả để tránh tính lại khi refresh.
• Disable Load cho các bước trung gian để giảm bộ nhớ.

7. Ứng Dụng Thực Tế

7.1. Tạo Mẫu Hoá Đơn Bán Hàng

Kết quả: một triệu năm trăm nghìn đồng.

Bạn có thể kết hợp định dạng để hiển thị trong phần “Số tiền (bằng chữ)” trên mẫu hoá đơn:

="Số tiền: "&B2&" ("&NumberToWordsVN(B2,"đồng",TRUE)&")"

7.2. Phiếu Lương Nhân Viên

Kết quả: mười hai triệu năm trăm nghìn đồng.

7.3. Báo Cáo Tài Chính

Khi tổng hợp cột Tổng Cộng (ví dụ: =SUM(B2:B100)), bạn có thể đặt công thức dưới bảng:

=NumberToWordsVN(SUM(B2:B100),"đồng",TRUE)

Điều này giúp đảm bảo tính nhất quán giữa số và chữ trong báo cáo cuối kỳ.

8. Câu Hỏi Thường Gặp (FAQ)

9. Kết Luận

Việc đổi số thành chữ trong Excel là một nhu cầu thiết yếu trong nhiều quy trình kinh doanh. Bài viết đã:

• Giới thiệu toàn diện các phương pháp (VBA, công thức thuần, Power Query).
• Cung cấp mã nguồn VBA hoàn chỉnh, kèm giải thích chi tiết, giúp bạn tùy biến cho mọi đơn vị tiền tệ và quy tắc ngữ pháp.
• Đưa ra công thức thuần cho môi trường không cho phép macro, cùng với hướng dẫn chia khối nghìn, triệu.
• Trình bày cách dùng Power Query để xử lý dữ liệu lớn mà không cần VBA.
• Chỉ ra các tối ưu về hiệu suất, bảo mật và cách khắc phục lỗi thường gặp.
• Áp dụng thực tế trong hoá đơn, phiếu lương, báo cáo tài chính.

Bằng cách lựa chọn phương pháp phù hợp với môi trường làm việc (cho phép macro hay không, khối lượng dữ liệu), bạn có thể tự động hoá việc ghi số tiền bằng chữ, giảm thiểu sai sót và nâng cao hiệu quả công việc. Hy vọng bài viết đã cung cấp đủ kiến thức để bạn triển khai ngay trong dự án của mình.

Chúc bạn thành công!

Tiến sĩ Lê Thống Nhất

Tiến sĩ Lê Thống Nhất sinh năm 1955 tại Nghệ An, là nhà giáo, nhà báo và doanh nhân trong lĩnh vực giáo dục. Ông từng giảng dạy Toán học tại Trường THPT Chuyên Phan Bội Châu và đảm nhiệm nhiều vai trò trong ngành giáo dục, từ viết sách, biên soạn tài liệu đến sáng lập các dự án hỗ trợ học tập trực tuyến.

Ông là người sáng lập BigSchool – nền tảng giáo dục trực tuyến kết nối giáo viên và học sinh cả nước. Ngoài ra, ông còn nổi tiếng với vai trò tác giả, diễn giả truyền cảm hứng và khách mời trên nhiều chương trình truyền hình, trong đó có “Ai là triệu phú” trên truyền hình VTV.

Trong suốt sự nghiệp, Tiến sĩ Lê Thống Nhất đã nhận nhiều giải thưởng giáo dục và được biết đến như một người luôn đổi mới, ứng dụng công nghệ vào dạy và học, góp phần lan tỏa tri thức và niềm say mê học tập cho thế hệ trẻ.