Chuyển Số Sang Chữ Trong Excel: Hướng Dẫn Chi Tiết, Mẹo Hay Và Các Công Thức Thực Tiễn

Có thể bạn quan tâm: Dịch File Excel Sang Tiếng Việt: Hướng Dẫn Chi Tiết, Công Cụ Hữu Ích Và Những Lưu Ý Quan Trọng

1. Giới thiệu tổng quan

Trong môi trường làm việc văn phòng, đặc biệt là các bộ phận kế toán, tài chính, nhân sự hay bán hàng, việc chuyển số sang chữ là một nhu cầu thường xuyên xuất hiện. Các biểu mẫu, báo cáo, hoá đơn, phiếu thu, phiếu chi, hợp đồng… thường yêu cầu số tiền được viết bằng chữ để tránh nhầm lẫn, giảm thiểu rủi ro gian lận và đáp ứng quy định pháp luật.

Microsoft Excel, với khả năng xử lý dữ liệu mạnh mẽ, là công cụ phổ biến để thực hiện các tác vụ này. Tuy nhiên, Excel không cung cấp sẵn một hàm “NumberToWords” (chuyển số thành chữ) như một số phần mềm kế toán. Do đó, người dùng thường phải tự xây dựng công thức, sử dụng VBA (Visual Basic for Applications) hoặc khai thác các add‑in, công cụ trực tuyến.

Bài viết này sẽ đi sâu vào mọi khía cạnh của việc chuyển số sang chữ trong Excel:
– Giải thích tại sao cần chuyển số sang chữ và các quy tắc chuẩn viết tiền tệ bằng chữ.
– Giới thiệu các phương pháp truyền thống (công thức, hàm tùy chỉnh) và hiện đại (VBA, Power Query, add‑in).
– Cung cấp bộ công thức chi tiết cho các trường hợp phổ biến: tiền tệ VNĐ, USD, EUR, đồng thời hỗ trợ số thập phân, số âm, số lớn lên tới hàng tỷ.
– Hướng dẫn tự tạo hàm UDF (User Defined Function) trong VBA để tái sử dụng dễ dàng.
– Đưa ra các mẹo tối ưu hiệu suất, xử lý lỗi và bảo mật khi chia sẻ file.
– Cung cấp ví dụ thực tế, mẫu file Excel và cách tích hợp vào báo cáo tự động.

Sau khi đọc xong, bạn sẽ nắm vững cách chuyển số sang chữ trong Excel một cách nhanh chóng, chính xác và linh hoạt, phù hợp với mọi môi trường làm việc.

Có thể bạn quan tâm: Chia 2 Màn Hình Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

2. Tại sao cần chuyển số sang chữ trong Excel?

2.1. Yêu cầu pháp lý và chuẩn mực kế toán

• Việt Nam: Theo Thông tư số 200/2026/TT‑BTC và các quy định của Bộ Tài chính, trên các chứng từ tài chính (hoá đơn, phiếu thu, phiếu chi, hợp đồng…) phải ghi số tiền bằng chữ để tránh tranh chấp.
• Quốc tế: Nhiều quốc gia yêu cầu chữ viết đầy đủ trên hợp đồng, giấy tờ ngân hàng, đặc biệt là trong giao dịch bất động sản, xuất nhập khẩu.

2.2. Tránh nhầm lẫn và gian lận

Số viết bằng chữ khó bị thay đổi so với số viết bằng ký tự số. Khi người nhận kiểm tra, họ sẽ so sánh hai giá trị để xác nhận tính chính xác.

2.3. Tự động hoá báo cáo

Khi số liệu thay đổi (ví dụ: tổng doanh thu tháng), việc tự động cập nhật số tiền bằng chữ trong báo cáo giúp giảm thời gian kiểm tra và giảm sai sót.

Có thể bạn quan tâm: Cách Chèn Và Sử Dụng Symbol Dấu Check Mark Trong Excel: Hướng Dẫn Chi Tiết Từ A Đến Z

3. Các phương pháp chuyển số sang chữ trong Excel

3.1. Sử dụng công thức thuần (không VBA)

3.1.1. Nguyên tắc hoạt động

• Tách phần đơn vị nghìn, triệu, tỷ bằng các hàm INT, MOD.
• Dùng hàm CHOOSE hoặc LOOKUP để ánh xạ các chữ số 0‑9 thành chữ.
• Ghép các phần lại bằng hàm & (nối chuỗi) và TRIM để loại bỏ khoảng trắng thừa.

3.1.2. Công thức cơ bản (đơn giản, chỉ tới hàng nghìn)

=TRIM( IF(A1=0,"Không","") & IF(INT(A1/1000)>0,CHOOSE(INT(A1/1000)+1, "","Một","Hai","Ba","Bốn","Năm","Sáu","Bảy","Tám","Chín") & " nghìn ","") & IF(MOD(A1,1000)>=100,CHOOSE(INT(MOD(A1,1000)/100)+1, "","Một","Hai","Ba","Bốn","Năm","Sáu","Bảy","Tám","Chín") & " trăm ","") & IF(MOD(A1,100)>=20,CHOOSE(INT(MOD(A1,100)/10)+1, "","Mười","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") & " ","") & IF(MOD(A1,10)>0,CHOOSE(MOD(A1,10)+1, "","một","hai","ba","bốn","năm","sáu","bảy","tám","chín") ,"")
)

Lưu ý: Công thức trên chỉ phù hợp cho số nguyên không quá 9.999 và không xử lý số âm, thập phân.

3.1.3. Mở rộng tới hàng tỷ

Để hỗ trợ các mức lớn hơn, chúng ta cần chia thành tứ, tỉ, nghìn tỷ. Dưới đây là một công thức tổng hợp (độ dài > 200 ký tự) nhưng có thể sao chép vào một ô duy nhất.

=LET( n,TRUNC(A1), sign,IF(A1<0,"Âm ",""), units,{""," nghìn"," triệu"," tỉ"," nghìn tỉ"}, digit,{""," một"," hai"," ba"," bốn"," năm"," sáu"," bảy"," tám"," chín"}, teen,{"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,{""," mười"," 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"}, hundreds, LAMBDA(x, IF(x=0,"", IF(INT(x/100)>0, digitINT(x/100)+1 & " trăm" & IF(MOD(x,100)=0,"", " "), "") & IF(MOD(x,100)>=20, tensINT(MOD(x,100)/10)+1 & IF(MOD(x,10)=0,"", digitMOD(x,10)+1), IF(MOD(x,100)>=10, teenMOD(x,100)-9, digitMOD(x,10)+1) ) ) ), result, REDUCE("", SEQUENCE(5,1,0,-1), LAMBDA(acc,i, LET( part, INT(MOD(n/10^(i3),1000)), txt, IF(part=0,"", hundreds(part) & unitsi+1 & " "), acc & txt ) ) ), TRIM(sign & result)
)

Giải thích nhanh:
– LET giúp đặt biến để giảm tính toán lặp lại.
– LAMBDA tạo hàm nội bộ hundreds để chuyển 3 chữ số thành chữ.
– REDUCE duyệt qua các nhóm nghìn, triệu, tỉ… và ghép lại.
– Hỗ trợ số âm, số nguyên lớn tới nghìn tỉ (10^12). Có thể mở rộng thêm bằng cách tăng SEQUENCE.

3.2. Sử dụng VBA – Tạo User Defined Function (UDF)

3.2.1. Lợi ích của VBA

• Tái sử dụng: Khi tạo một hàm NumberToWords, bạn có thể gọi ở bất kỳ ô nào như một hàm chuẩn.
• Độ linh hoạt: Dễ dàng mở rộng ngôn ngữ (tiếng Anh, tiếng Pháp), hỗ trợ tiền tệ, định dạng.
• Hiệu suất: Với dữ liệu lớn (hàng ngàn dòng), hàm VBA thường nhanh hơn công thức phức tạp.

3.2.2. Bước thực hiện

1. Mở Visual Basic for Applications: Alt + F11.
2. Chọn Insert → Module.
3. Dán đoạn mã dưới đây vào module mới.

Option Explicit '=================================================================
' Function: NumberToVietnameseWords
' Description: Convert a numeric value to Vietnamese words.
' Supports: Positive/negative numbers, decimals, up to 999,999,999,999
' Author: ChatGPT - 2026
'=================================================================
Public Function NumberToVietnameseWords(ByVal Number As Variant) As String Dim sNumber As String Dim sResult As String Dim iPos As Long, iPart As Long, iLen As Long Dim sDecimal As String, sInteger As String On Error GoTo ErrHandler ' Kiểm tra giá trị nhập vào If IsError(Number) Or IsEmpty(Number) Then NumberToVietnameseWords = "" Exit Function End If sNumber = Trim(CStr(Number)) ' Xử lý dấu âm If Left(sNumber, 1) = "-" Then sResult = "Âm " sNumber = Mid(sNumber, 2) End If ' Tách phần thập phân nếu có iPos = InStr(sNumber, ",") If iPos = 0 Then iPos = InStr(sNumber, ".") If iPos > 0 Then sInteger = Left(sNumber, iPos - 1) sDecimal = Mid(sNumber, iPos + 1) Else sInteger = sNumber sDecimal = "" End If sResult = sResult & ConvertIntegerPart(CLng(sInteger)) If Len(sDecimal) > 0 Then sResult = sResult & " phẩy " & ConvertDecimalPart(sDecimal) End If NumberToVietnameseWords = Trim(sResult) Exit Function ErrHandler: NumberToVietnameseWords = "Lỗi"
End Function '-------------------------------------------------
' Convert integer part (max 12 digits)
'-------------------------------------------------
Private Function ConvertIntegerPart(ByVal n As Long) As String Dim units() As String Dim result As String Dim i As Integer, part As Long units = Split("","nghìn","triệu","tỷ","nghìn tỷ") If n = 0 Then ConvertIntegerPart = "Không" Exit Function End If For i = 0 To UBound(units) part = n Mod 1000 If part <> 0 Then result = ConvertHundreds(part) & IIf(i = 0, "", " " & units(i)) & " " & result End If n = n \ 1000 If n = 0 Then Exit For Next i ConvertIntegerPart = Trim(result)
End Function '-------------------------------------------------
' Convert 3 chữ số
'-------------------------------------------------
Private Function ConvertHundreds(ByVal n As Long) As String Dim digit As Variant Dim tens As Variant Dim teens As Variant Dim result As String digit = Array("", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín") tens = Array("", "mười", "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") teens = Array("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") If n >= 100 Then result = digit(Int(n / 100)) & " trăm" n = n Mod 100 If n > 0 Then result = result & " " End If If n >= 20 Then result = result & tens(Int(n / 10)) n = n Mod 10 If n > 0 Then result = result & " " & digit(n) ElseIf n >= 10 Then result = result & teens(n - 10) ElseIf n > 0 Then result = result & digit(n) End If ConvertHundreds = result
End Function '-------------------------------------------------
' Convert decimal part (each digit read separately)
'-------------------------------------------------
Private Function ConvertDecimalPart(ByVal s As String) As String Dim i As Long, ch As String, result As String Dim digit As Variant digit = Array("", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín") For i = 1 To Len(s) ch = Mid(s, i, 1) If IsNumeric(ch) Then result = result & digit(CInt(ch)) & " " End If Next i ConvertDecimalPart = Trim(result)
End Function

3.2.3. Cách sử dụng

Sau khi lưu macro, quay lại Excel và nhập công thức:

=NumberToVietnameseWords(A2)

• A2 chứa số cần chuyển.
• Kết quả trả về chuỗi chữ, ví dụ: 1234567 → Một triệu hai trăm ba mươi bốn nghìn năm trăm sáu mươi bảy.

3.2.4. Mở rộng cho tiền tệ và ngôn ngữ khác

Bạn có thể thêm tham số tùy chọn:

Public Function NumberToWords(ByVal Number As Variant, _ Optional ByVal Currency As String = "VNĐ", _ Optional ByVal Language As String = "VI") As String

Sau đó, trong hàm, dựa vào Currency để thêm hậu tố “đồng”, “USD”, “EUR” và dựa vào Language để chuyển sang tiếng Anh (sử dụng mảng EnglishUnits, EnglishTens…).

3.3. Sử dụng Power Query (Get & Transform)

Power Query cho phép chuyển đổi dữ liệu trong quá trình tải vào mô hình dữ liệu. Mặc dù không có hàm sẵn, bạn có thể viết M code tùy chỉnh:

let Source = Excel.CurrentWorkbook(){Name="Table1"}Content, AddWords = Table.AddColumn(Source, "Số_đọc", each NumberToWords(Số))
in AddWords

Trong phần Advanced Editor, định nghĩa hàm NumberToWords bằng M:

NumberToWords = (num as number) as text =>
let units = {""," nghìn"," triệu"," tỉ"}, digit = {""," một"," hai"," ba"," bốn"," năm"," sáu"," bảy"," tám"," chín"}, tens = {""," mười"," 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"}, ConvertHundreds = (n) => let h = Number.IntegerDivide(n,100), t = Number.Mod(n,100), hText = if h=0 then "" else digit{h+1} & " trăm ", tText = if t<10 then digit{t+1} else if t<20 then List.First(tens){t-9} else digit{Number.IntegerDivide(t,10)+1} & " " & digit{Number.Mod(t,10)+1} in hText & tText, parts = List.Transform(List.Zip({List.Transform(List.Generate(()=>0, each _<Number.RoundDown(Number.Log10(num)/3)+1, each _+1), each Number.IntegerDivide(num, Number.Power(10,_3)) mod 1000), units}), each ConvertHundreds(_{0}) & _{1}), result = Text.Trim(Text.Combine(List.RemoveItems(parts, {""}), " "))
in result;

Sau khi tạo, bạn có thể refresh dữ liệu và mọi thay đổi số sẽ tự động cập nhật sang chữ.

3.4. Sử dụng Add‑in hoặc công cụ bên ngoài

• Kutools for Excel: cung cấp tính năng “Number to Text” trong menu.
• Ablebits: có add‑in “Convert Numbers to Words”.
• Online APIs: một số dịch vụ REST như https://api.mathjs.org/v4/ kèm module chuyển đổi, có thể gọi từ Power Query với Web.Contents.

Lưu ý: Khi dùng add‑in hoặc API, cần kiểm tra bảo mật dữ liệu (đặc biệt là số tiền nhạy cảm).

4. Chi tiết hàm VBA “NumberToVietnameseWords” – Phân tích từng đoạn

4.1. Kiểm tra đầu vào

If IsError(Number) Or IsEmpty(Number) Then NumberToVietnameseWords = "" Exit Function
End If

• Bảo vệ tránh lỗi khi ô chứa lỗi #VALUE! hoặc trống.

4.2. Xử lý dấu âm

Có thể bạn quan tâm: Thay Đổi Ngôn Ngữ Trong Excel: Hướng Dẫn Chi Tiết Từ Cơ Bản Đến Nâng Cao

If Left(sNumber, 1) = "-" Then sResult = "Âm " sNumber = Mid(sNumber, 2)
End If

• Thêm tiền tố “Âm” và loại bỏ dấu - để tiếp tục xử lý.

4.3. Tách phần thập phân

Excel cho phép nhập 123,45 (dấu phẩy) hoặc 123.45. Hàm hỗ trợ cả hai.

iPos = InStr(sNumber, ",")
If iPos = 0 Then iPos = InStr(sNumber, ".")

Sau khi tách, phần thập phân sẽ được đọc từng chữ số: 45 → “bốn năm”.

4.4. Chuyển phần nguyên

Hàm ConvertIntegerPart nhận một Long (tối đa 2.147.483.647). Để hỗ trợ số lớn hơn, có thể thay Long bằng Currency hoặc Decimal.

result = result & ConvertHundreds(part) & IIf(i = 0, "", " " & units(i)) & " " & result

• units(i) tương ứng: “”, “nghìn”, “triệu”, “tỷ”, “nghìn tỷ”.
• Vòng lặp For i = 0 To UBound(units) lặp từ đơn vị nhỏ tới lớn, ghép chuỗi ngược lại để có thứ tự đúng.

4.5. Chuyển 3 chữ số (hundreds)

If n >= 100 Then result = digit(Int(n / 100)) & " trăm" n = n Mod 100 If n > 0 Then result = result & " "
End If

• Đối với các số 20‑99, hàm sử dụng mảng tens.
• Đối với 10‑19, dùng mảng teens để tránh “một mươi”.

4.6. Đọc phần thập phân

For i = 1 To Len(s) ch = Mid(s, i, 1) If IsNumeric(ch) Then result = result & digit(CInt(ch)) & " " End If
Next i

• Mỗi chữ số được đọc riêng, ví dụ 0.07 → “không phẩy không bảy”.

4.7. Xử lý lỗi

ErrHandler: NumberToVietnameseWords = "Lỗi"

• Trả về “Lỗi” nếu có ngoại lệ (ví dụ: vượt quá giới hạn kiểu dữ liệu).

5. Tối ưu hiệu suất khi áp dụng cho hàng nghìn dòng

Mẹo:
– Tránh lặp lại công thức trong nhiều cột, thay vào đó sử dụng một cột trung gian tính giá trị và tham chiếu.
– Khi dùng VBA, disable screen updating và calculation mode trong macro để tăng tốc:

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'... thực hiện vòng lặp ...
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

6. Các trường hợp đặc biệt và cách xử lý

6.1. Số âm

• Hàm đã thêm tiền tố “Âm”. Nếu muốn hiển thị “Âm” sau số (theo chuẩn ngân hàng), chỉ cần thay sResult = "Âm " thành sResult = sResult & " âm" ở cuối.

6.2. Số thập phân với định dạng tiền tệ (ví dụ: 1234,56 đồng)

• Thông thường, phần thập phân được viết “phẩy” hoặc “điểm” và đọc từng số. Tuy nhiên, trong hợp đồng, người ta thường viết “một nghìn hai trăm ba mươi tư đồng và năm mươi sáu xu”.
• Để đáp ứng, mở rộng hàm ConvertDecimalPart để:

If Len(sDecimal) = 2 Then result = ConvertHundreds(CLng(sDecimal)) & " xu"
Else result = ConvertDecimalPart(sDecimal) & " xu"
End If

6.3. Đọc số đơn vị lớn (triệu, tỷ, nghìn tỷ)

• Khi số vượt quá 999,999,999,999, cần thêm “nghìn tỷ”, “triệu tỷ”. Cập nhật mảng units trong VBA hoặc units trong công thức.

6.4. Định dạng tiền tệ ngoại quốc (USD, EUR)

• Thêm hàm phụ CurrencySuffix:

Select Case UCase(Currency) Case "USD": suffix = " đô la Mỹ" Case "EUR": suffix = " euro" Case Else: suffix = " đồng"
End Select

• Kết hợp: NumberToWords(Amount, "USD") & suffix.

6.5. Đọc số đúng ngữ pháp (ví dụ: “một trăm lẻ năm” vs “một trăm năm”)

• Tiếng Việt có quy tắc “lẻ” khi có số hàng chục bằng 0 và hàng đơn vị > 0 (ví dụ: 105 → “một trăm lẻ năm”). Có thể bổ sung:

If n >= 100 Then result = digit(Int(n/100)) & " trăm" n = n Mod 100 If n > 0 Then If n < 10 Then result = result & " lẻ " & digit(n) Else ' xử lý tens... End If End If
End If

7. Ví dụ thực tế trong các báo cáo

7.1. Hoá đơn bán hàng

Khi thay đổi đơn giá hoặc số lượng, cột “Thành tiền (chữ)” tự động cập nhật.

7.2. Báo cáo tài chính – Tổng doanh thu năm

=NumberToVietnameseWords(SUM(D2:D13)) & " đồng"

Nếu tổng doanh thu là 12,345,678,900, hàm trả về:
“Mười hai tỷ ba trăm bốn mươi lăm triệu sáu trăm bảy mươi tám nghìn chín trăm đồng”.

7.3. Hợp đồng lao động – Lương tháng

Giả sử ô B5 chứa lương cơ bản 15,000,000. Công thức:

="Lương tháng: " & NumberToVietnameseWords(B5) & " đồng"

Kết quả: “Lương tháng: Mười lăm triệu đồng”.

8. Bảo mật và chia sẻ file có macro

1. Lưu dưới dạng .xlsm (macro‑enabled workbook).
2. Khi chia sẻ, ký số (digital signature) hoặc cung cấp hướng dẫn bật macro để người nhận không gặp cảnh báo.
3. Ẩn mã VBA: trong VBA IDE → Tools → VBAProject Properties → Protection → Check “Lock project for viewing” và đặt mật khẩu.
4. Kiểm tra: Đảm bảo macro không chứa FileSystemObject hay các lệnh truy cập mạng nếu không cần thiết, tránh vi phạm chính sách IT.

9. Tổng hợp các công cụ hỗ trợ và tài nguyên học tập

10. Kết luận

Việc chuyển số sang chữ trong Excel không còn là một thách thức khó khăn. Từ các công thức thuần, tới việc viết User Defined Function bằng VBA, hay tận dụng Power Query và các add‑in, bạn có thể lựa chọn giải pháp phù hợp nhất với môi trường làm việc và yêu cầu độ phức tạp.

• Nếu chỉ cần chuyển vài ô và không muốn bật macro, hãy dùng công thức LET + LAMBDA hiện đại.
• Nếu cần tái sử dụng trong nhiều file, hoặc muốn hỗ trợ các ngôn ngữ, tiền tệ đa dạng, UDF VBA là lựa chọn tối ưu.
• Nếu dữ liệu được tải về từ nguồn khác (cơ sở dữ liệu, web), Power Query cung cấp cách xử lý ngay trong quá trình nhập.

Hãy nhớ luôn kiểm tra kết quả trên các giá trị biên (0, 1, 10, 100, 1000, 1,000,000, 1,000,000,000) và đảm bảo tính chính xác trước khi đưa vào tài liệu pháp lý. Khi áp dụng đúng, bạn sẽ tiết kiệm được thời gian, giảm sai sót và nâng cao tính chuyên nghiệp của các báo cáo tài chính và hợp đồng.

Chúc bạn thành công trong việc tự động hoá việc viết tiền tệ bằng chữ trong Excel!

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