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.

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

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

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

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

Bước 6: Nhấp OK.

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.

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.

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

Bước 4: Nhấp Insert và chọn 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 |
|---|

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.

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.

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.

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.

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.

Bước 3: Nhấp Insert và chọn 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 |
|---|

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.

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

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.

Các số trong phạm vi đã chọn sẽ được chuyển thành chữ theo Rupee Ấn Độ.
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 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ộ.

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

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

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.

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.





