logo
search
list

Mục lục

2 cách đơn giản để chuyển đổi số thành chữ bằng đồng Rupee Ấn Độ trong Excel:
Giải pháp thay thế miễn phí tốt nhất cho Microsoft Office - WPS Office
Câu hỏi thường gặp (FAQ):
Tóm tắt:

Cách chuyển đổi số thành chữ bằng đồng Rupee Ấn Độ trong Excel

Đăng bởi Lê Minh Tuấn

calendar

2026-09-24

views

868

likes

59

Khi làm việc với các con số trong Excel, đôi khi bạn cần hiển thị chúng ở cả dạng số và dạng chữ để dùng cho văn bản chính thức hoặc để rõ ràng hơn. Tuy nhiên, Excel không có sẵn tính năng này, đặc biệt là đối với Rupee Ấn Độ. Vì vậy, bạn có thể phải dùng các công thức phức tạp, công cụ bên ngoài hoặc tự làm thủ công.

Trong hướng dẫn này, chúng tôi sẽ hướng dẫn bạn từng bước một cách đơn giản để chuyển đổi số thành chữ cho Rupee Ấn Độ bằng Excel.

2 cách dễ dàng để chuyển số thành chữ theo Rupee Ấn Độ trong Excel:

Tất nhiên, trước hết bạn cần tải Microsoft Excel bản phù hợp trước đã!

Phương pháp 1: Chuyển số thành chữ theo Rupee Ấn Độ bằng mã VBA

Trước khi chuyển số thành chữ theo Rupee Ấn Độ bằng mã VBA, bạn có thể cần thêm tab Developer trên thanh công cụ để mở chức năng VBA.

Dưới đây là các bước để bật tab Developer trong Excel:

Bước 1: Mở bảng tính Excel chứa các số bạn muốn chuyển đổi.


Số cần chuyển đổi trong bảng


Bước 2: Nhấp vào File và chọn Options trong danh sách.


Alt File Option: Nút Option


Bước 3: Trong Excel Options, chọn Customize Ribbon.


Tab Options và nút Customize Ribbon


Bước 4: Trong mục Choose commands from, chọn All Tabs.


Danh sách Choose commands from với tab All Tabs đã chọn


Bước 5: Tìm Developer trong danh sách và nhấp Add.


Tab Developer và nút Add


Bước 6: Nhấp OK.


Tab Developer đang được thêm và nút OK


Dùng Word, Excel và PPT MIỄN PHÍ

Bây giờ là các bước để chuyển số thành chữ theo Rupee Ấn Độ bằng mã VBA:

Bước 1: Mở bảng tính Excel chứa các số bạn muốn chuyển đổi.


Số cần chuyển đổi trong bảng


Bước 2: Nhấp vào tab Developer. Nếu bạn không thấy tab này, hãy làm theo các bước ở trên để bật tab.


Tab Developer


Bước 3: Nhấp vào Visual Basic hoặc dùng phím tắt Alt + F11.


Nút Visual Basic


Bước 4: Nhấp Insert và chọn Module.


Nhấp vào tùy chọn Insert > Module


Bước 5: Dán mã VBA được cung cấp trong phần tham khảo.

Public Function RupeeFormat(SNum As String)

'Cập nhật bởi Extendoffice

Dim xDPInt As Integer

Dim xArrPlace As Variant

Dim xRStr_Paisas As String

Dim xNumStr As String

Dim xF As Integer

Dim xTemp As String

Dim xStrTemp As String

Dim xRStr As String

Dim xLp As Integer

xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")

On Error Resume Next

If SNum = "" Then

RupeeFormat = ""

Exit Function

End If

xNumStr = Trim(str(SNum))

If xNumStr = "" Then

RupeeFormat = ""

Exit Function

End If

xRStr = ""

xLp = 0

If (xNumStr > 999999999.99) Then

RupeeFormat = "Digit exceeded Maximum limit"

Exit Function

End If

xDPInt = InStr(xNumStr, ".")

If xDPInt > 0 Then

If (Len(xNumStr) - xDPInt) = 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))

ElseIf (Len(xNumStr) - xDPInt) > 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))

End If

xNumStr = Trim(Left(xNumStr, xDPInt - 1))

End If

xF = 1

Do While xNumStr <> ""

If (xF >= 2) Then

xTemp = Right(xNumStr, 2)

Else

If (Len(xNumStr) = 2) Then

xTemp = Right(xNumStr, 2)

ElseIf (Len(xNumStr) = 1) Then

xTemp = Right(xNumStr, 1)

Else

xTemp = Right(xNumStr, 3)

End If

End If

xStrTemp = ""

If Val(xTemp) > 99 Then

xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)

If Right(Trim(xStrTemp), 3) <> "Lac" Then

xLp = xLp + 1

End If

ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then

xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))

ElseIf Val(xTemp) < 10 Then

xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))

End If

If xStrTemp <> "" Then

xRStr = xStrTemp & xArrPlace(xF) & xRStr

End If

If xF = 2 Then

If Len(xNumStr) = 1 Then

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

End If

ElseIf xF = 3 Then

If Len(xNumStr) >= 3 Then

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

Else

xNumStr = ""

End If

ElseIf xF = 4 Then

xNumStr = ""

Else

If Len(xNumStr) <= 2 Then

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 3)

End If

End If

xF = xF + 1

Loop

If xRStr = "" Then

xRStr = "No Rupees"

Else

xRStr = " Rupees " & xRStr

End If

If xRStr_Paisas <> "" Then

xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"

End If

RupeeFormat = xRStr & xRStr_Paisas & " Only"

End Function

Function RupeeFormat_GetH(xStrH As String, xLp As Integer)

Dim xRStr As String

If Val(xStrH) < 1 Then

RupeeFormat_GetH = ""

Exit Function

Else

xStrH = Right("000" & xStrH, 3)

If Mid(xStrH, 1, 1) <> "0" Then

If (xLp > 0) Then

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "

Else

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "

End If

End If

If Mid(xStrH, 2, 1) <> "0" Then

xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))

Else

xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))

End If

End If

RupeeFormat_GetH = xRStr

End Function

Function RupeeFormat_GetT(xTStr As String)

Dim xTArr1 As Variant

Dim xTArr2 As Variant

Dim xRStr As String

xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

Result = ""

If Val(Left(xTStr, 1)) = 1 Then

xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))

Else

If Val(Left(xTStr, 1)) > 0 Then

xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)

End If

xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))

End If

RupeeFormat_GetT = xRStr

End Function

Function RupeeFormat_GetD(xDStr As String)

Dim xArr_1() As Variant

xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")

If Val(xDStr) > 0 Then

RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)

Else

RupeeFormat_GetD = ""

End If

End Function


Mã VBA được chèn trong phần tham khảo


Bước 5: Lưu (Ctrl + S) và đóng trình soạn thảo VBA. Khi lưu, hãy chọn Excel Macro-Enabled Workbook.


Lưu dưới dạng


Bước 6: Nhập công thức =RupeeFormat(display cell) vào ô mà bạn muốn hiển thị chữ và nhấn Enter.


Công thức =RupeeFormat(display cell)


Bước 7: Kết quả sẽ được hiển thị. Kéo xuống để áp dụng công thức cho các ô khác.


Kết quả xuất hiện ở tất cả các ô


Các số trong phạm vi đã chọn sẽ được chuyển thành chữ theo Rupee Ấn Độ.

Phương pháp 2: Chuyển số thành chữ theo Rupee Ấn Độ trong Excel (Phương pháp phổ biến)

Tìm hiểu cách phổ biến để chuyển số thành chữ theo Rupee Ấn Độ trong Excel, một bước hữu ích khi bạn chuẩn bị hóa đơn cho công việc kế toán sổ sách.

Bước 1: Mở bảng tính Excel chứa các số bạn muốn chuyển đổi.


Số cần chuyển đổi trong bảng


Bước 2: Nhấp chuột phải vào tên sheet và chọn View Code để mở ứng dụng VBA. Cách này cũng hữu ích cho việc phân tích dữ liệu trong Excel.


Tab Sheet và nút View Code


Bước 3: Nhấp Insert và chọn Module.


Nhấp vào tùy chọn Insert > Module


Bước 4: Dán mã VBA được cung cấp trong phần tham khảo.

Public Function RupeeFormat(SNum As String)

'Cập nhật bởi Nirmal

Dim xDPInt As Integer

Dim xArrPlace As Variant

Dim xRStr_Paisas As String

Dim xNumStr As String

Dim xF As Integer

Dim xTemp As String

Dim xStrTemp As String

Dim xRStr As String

Dim xLp As Integer

xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")

On Error Resume Next

If SNum = "" Then

RupeeFormat = ""

Exit Function

End If

xNumStr = Trim(Str(SNum))

If xNumStr = "" Then

RupeeFormat = ""

Exit Function

End If

xRStr = ""

xLp = 0

If (xNumStr > 999999999.99) Then

RupeeFormat = "Digit exceeded Maximum limit"

Exit Function

End If

xDPInt = InStr(xNumStr, ".")

If xDPInt > 0 Then

If (Len(xNumStr) - xDPInt) = 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))

ElseIf (Len(xNumStr) - xDPInt) > 1 Then

xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))

End If

xNumStr = Trim(Left(xNumStr, xDPInt - 1))

End If

xF = 1

Do While xNumStr <> ""

If (xF >= 2) Then

xTemp = Right(xNumStr, 2)

Else

If (Len(xNumStr) = 2) Then

xTemp = Right(xNumStr, 2)

ElseIf (Len(xNumStr) = 1) Then

xTemp = Right(xNumStr, 1)

Else

xTemp = Right(xNumStr, 3)

End If

End If

xStrTemp = ""

If Val(xTemp) > 99 Then

xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)

If Right(Trim(xStrTemp), 3) <> "Lac" Then

xLp = xLp + 1

End If

ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then

xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))

ElseIf Val(xTemp) < 10 Then

xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))

End If

If xStrTemp <> "" Then

xRStr = xStrTemp & xArrPlace(xF) & xRStr

End If

If xF = 2 Then

If Len(xNumStr) = 1 Then

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

End If

ElseIf xF = 3 Then

If Len(xNumStr) >= 3 Then

xNumStr = Left(xNumStr, Len(xNumStr) - 2)

Else

xNumStr = ""

End If

ElseIf xF = 4 Then

xNumStr = ""

Else

If Len(xNumStr) <= 2 Then

xNumStr = ""

Else

xNumStr = Left(xNumStr, Len(xNumStr) - 3)

End If

End If

xF = xF + 1

Loop

If xRStr = "" Then

xRStr = "No Rupees"

Else

xRStr = " Rupees " & xRStr

End If

If xRStr_Paisas <> "" Then

xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"

End If

RupeeFormat = xRStr & xRStr_Paisas & " Only"

End Function

Function RupeeFormat_GetH(xStrH As String, xLp As Integer)

Dim xRStr As String

If Val(xStrH) < 1 Then

RupeeFormat_GetH = ""

Exit Function

Else

xStrH = Right("000" & xStrH, 3)

If Mid(xStrH, 1, 1) <> "0" Then

If (xLp > 0) Then

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "

Else

xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "

End If

End If

If Mid(xStrH, 2, 1) <> "0" Then

xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))

Else

xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))

End If

End If

RupeeFormat_GetH = xRStr

End Function

Function RupeeFormat_GetT(xTStr As String)

Dim xTArr1 As Variant

Dim xTArr2 As Variant

Dim xRStr As String

xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

Result = ""

If Val(Left(xTStr, 1)) = 1 Then

xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))

Else

If Val(Left(xTStr, 1)) > 0 Then

xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)

End If

xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))

End If

RupeeFormat_GetT = xRStr

End Function

Function RupeeFormat_GetD(xDStr As String)

Dim xArr_1() As Variant

xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")

If Val(xDStr) > 0 Then

RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)

Else

RupeeFormat_GetD = ""

End If

End Function


Mã VBA được chèn trong phần tham khảo


Bước 5: Khi lưu, hãy chọn Excel Macro-Enabled Workbook trong mục Save as type. Đóng cửa sổ trình soạn thảo VBA.


Lưu dưới dạng


Bước 6: Nhập công thức =RupeeFormat(display cell) vào ô đã chọn để hiển thị kết quả.


Công thức =RupeeFormat(display cell)


Bước 7: Kéo xuống để áp dụng công thức cho các ô khác sau khi kết quả xuất hiện trong ô đã chọn.


Kết quả xuất hiện ở tất cả các ô


Các số trong phạm vi đã chọn sẽ được chuyển thành chữ theo Rupee Ấn Độ.

Tải Office miễn phí
  • Dùng Word, Excel và PPT MIỄN PHÍ, không quảng cáo.

  • Chỉnh sửa tệp PDF bằng bộ công cụ PDF mạnh mẽ.

  • Giao diện giống Microsoft. Dễ học. Tương thích 100%.

  • Nâng cao năng suất với kho mẫu Word, Excel, PPT và CV miễn phí phong phú của WPS.

Ảnh đại diện
Algirdas Jasaitis

Giải pháp thay thế miễn phí tốt nhất cho Microsoft Office - WPS Office

Bên cạnh Microsoft Office, tôi sẽ giới thiệu cho bạn một ứng dụng khác. Đó là WPS Office. Vậy WPS là gì?


WPS Office


WPS Office là bộ ứng dụng văn phòng mã nguồn mở miễn phí tương thích với Microsoft Office. Bộ ứng dụng bao gồm trình xử lý văn bản, bảng tính, phần mềm trình chiếu và trình đọc PDF, giúp bạn dễ dàng mở, chỉnh sửa và lưu tệp. Phần mềm cũng rất dễ sử dụng, ngay cả với những người chưa từng dùng bộ ứng dụng văn phòng nào.

Không chỉ vậy, WPS Office còn là bộ ứng dụng văn phòng mạnh mẽ với nhiều tính năng đa dạng. Đây là giải pháp thay thế tốt cho NeoOffice, đặc biệt dành cho học sinh, sinh viên và doanh nghiệp có ngân sách hạn chế.

Hãy cùng điểm nhanh một số tính năng của WPS:

●  Miễn phí sử dụng Word, Excel và PPT. Bộ công cụ PDF mạnh mẽ

●  Kho mẫu phong phú

●  Nhiều tính năng đa dạng, có trợ lý tạo CV, biểu mẫu thông minh, quay màn hình, sửa tệp và các công cụ nhỏ khác được tích hợp trong sản phẩm

●  Dung lượng sản phẩm chỉ 200 MB và chiếm ít bộ nhớ máy tính.

●  Phiên bản WPS Office trên Mac rất mạnh mẽ. Microsoft Office thường bỏ qua trải nghiệm của người dùng Mac, và WPS Office có thể bù đắp điều đó.

●  Hỗ trợ tài liệu trực tuyến (WPS AirPage), nhiều người cùng chỉnh sửa cộng tác

●  WPS Office cũng hỗ trợ Linux, Android và iOS. Để sử dụng sản phẩm WPS Office trên các hệ thống khác nhau, bạn chỉ cần đăng nhập vào cùng một tài khoản và mọi tệp sẽ được đồng bộ.


Tải xuống miễn phí trên nhiều nền tảng


Bạn cảm thấy WPS Office là lựa chọn tốt nhất cho mình và muốn tải xuống? Vui lòng truy cập trang web chính thức: https://www.wps.com và tải xuống ngay.

Cách tải xuống WPS Office

Bước 1: Truy cập trang web WPS Office: wps.com.

Bước 2: Nhấp vào nút "Tải xuống miễn phí"


Chọn


Bước 3: Chọn vị trí bạn muốn lưu WPS Office -> Lưu


Lưu tệp WPS Office


Bước 4: Nhấp đúp vào tệp WPS Office trong thư mục Download, nhấp "Run" và làm theo hướng dẫn trên màn hình để cài đặt.


Chạy phần mềm


Bước 5: Sau khi hoàn tất, bạn có thể tận hưởng toàn bộ sức mạnh của WPS Office.

Câu hỏi thường gặp:

Q1: Làm cách nào để chuyển đổi tiền tệ thành chữ trong Excel VBA?

  • Bạn có thể dùng VBA (Visual Basic for Applications) để chuyển tiền tệ thành chữ trong Excel. Bạn sẽ cần viết một macro VBA tùy chỉnh để thực hiện việc chuyển đổi này. Bạn có thể tìm ví dụ và đoạn mã trực tuyến hoặc tham khảo tài liệu Excel VBA để được hướng dẫn.

Q2: Làm thế nào để chuyển tiền tệ thành chữ trong Excel?

  • Để chuyển tiền tệ thành chữ trong Excel, bạn thường sử dụng kết hợp các hàm và định dạng tùy chỉnh. Bạn có thể tìm thấy nhiều hướng dẫn trực tuyến giải thích cách thực hiện điều này.

Q3: Làm thế nào để định dạng số trong Excel theo Rupee Ấn Độ?

  • Để định dạng số trong Excel theo Rupee Ấn Độ, bạn có thể dùng các tùy chọn định dạng tiền tệ có sẵn. Chọn ô hoặc phạm vi bạn muốn định dạng, vào tab "Number" trong hộp thoại Format Cells và chọn mục "Currency". Từ đó, bạn có thể chọn "₹ English (India)" làm ký hiệu tiền tệ.

Q4: Làm cách nào để tự động chuyển số thành chữ trong Excel?

  • Có một số cách để tự động chuyển số thành chữ trong Excel. Bạn có thể dùng các hàm Excel như TEXT, CONCATENATE hoặc định dạng tùy chỉnh. Bạn cũng có thể dùng macro VBA để tự động hóa nâng cao hơn.

Q5: Làm thế nào để chuyển đổi đô la Mỹ sang Rupee Ấn Độ trong Excel?

Để chuyển đổi đô la Mỹ sang Rupee Ấn Độ trong Excel, bạn có thể kết hợp các hàm Excel với dịch vụ web hoặc nguồn dữ liệu bên ngoài cung cấp tỷ giá hối đoái. Định dạng "Currency" của Excel cũng có thể được dùng để hiển thị số tiền bằng Rupee Ấn Độ sau khi có tỷ giá.

Q6. Bạn có muốn dùng Excel Online để làm việc dễ dàng hơn không?

  • Nếu bạn thích làm việc trên đám mây, Excel Online cung cấp các tính năng mạnh mẽ tương tự giúp bạn quản lý và làm sạch dữ liệu từ mọi nơi. Với Excel Online, bạn có thể dùng các hàm tương tự để xóa ký tự bên trái hoặc bên phải dữ liệu, khiến đây trở thành lựa chọn tuyệt vời cho những ai cần sự linh hoạt hoặc không có phiên bản Excel trên máy tính.

Tóm tắt:

Hãy học cách dễ dàng chuyển đổi số tiền thành chữ theo Rupee Ấn Độ trong Excel bằng mã VBA hoặc phương pháp phổ biến. Trước tiên, hãy bật tab Developer trong Excel, thêm mã VBA được cung cấp và sử dụng công thức =RupeeFormat(display cell).

Ngoài ra, hãy nhấp chuột phải vào tên sheet để truy cập VBA, chèn module, dán mã và sử dụng công thức tương tự. Những phương pháp thân thiện với người dùng này cũng tương thích với WPS Office, giải pháp thay thế miễn phí cho Microsoft Office, giúp việc định dạng tài liệu chính xác và chuyên nghiệp trở nên dễ dàng.

Bảo mật 100%


Lê Minh Tuấn

12 năm kinh nghiệm trong lĩnh vực phần mềm văn phòng, đam mê công nghệ và viết đánh giá chuyên sâu. Theo dõi tôi để cập nhật so sánh tính năng, mẹo tối ưu hóa workflow và đề xuất ứng dụng mới phù hợp với người dùng Việt.