Số thành từ trong Excel theo công thức Rupees

Microsoft Excel là một công cụ tuyệt vời để thực hiện các tính toán khác nhau. Nó lần đầu tiên được tạo ra để xử lý các mảng dữ liệu lớn. Tuy nhiên, nó cũng cho phép tạo các tài liệu kế toán nhanh chóng và hiệu quả như hóa đơn, đánh giá hoặc bảng cân đối kế toán. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách chuyển đổi Số thành Chữ trong Excel bằng Rupee

Mục lục

Tải sách bài tập thực hành

Các bạn có thể download tài liệu excel dưới đây để hiểu rõ hơn và tự mình thực hành

Số thành từ tính bằng Rupee. xlsm

Quy trình từng bước để chuyển đổi số thành từ trong Excel bằng Rupee

Khá dễ dàng để xây dựng một hàm macro trong Microsoft Excel để chuyển đổi số thành từ bằng đồng rupee. Ngoài ra, bạn phải sử dụng macro để chuyển số thành chữ trong Microsoft Excel. Bạn sẽ có một công thức hoặc hàm vĩnh viễn để chuyển đổi số thành từ bằng đồng rupee Ấn Độ. Bạn có thể sử dụng nó như một hàm để chuyển đổi bất kỳ cột dữ liệu nào bằng cách kéo và thả công thức. Tại đây, chúng tôi sẽ tạo mã VBA và áp dụng hàm Người dùng xác định để chuyển đổi Số thành Từ trong Excel bằng Rupee. Đầu tiên, giả sử chúng ta có một tập dữ liệu mẫu để chuyển Số thành Chữ trong Excel

Bước 1. Sử dụng tab Nhà phát triển

• Trước tiên, hãy chọn tab Nhà phát triển
• Sau đó, nhấp vào lệnh Visual Basic

Bước 2. Tạo mô-đun mới để tạo mã VBA

• Bây giờ, cửa sổ Ứng dụng Visual Basic sẽ mở ra
• Tiếp theo, chọn tab Chèn
• Cuối cùng, nhấp vào tùy chọn Mô-đun để tạo Mô-đun mới để viết mã VBA

• Bây giờ, dán mã VBA sau vào Mô-đun

Function word[SNum As String]
'Declare the Variables
Dim zDPInt As Integer
Dim zArrPlace As Variant
Dim zRStr_Paisas As String
Dim zNumStr As String
Dim zP As Integer
Dim zTemp As String
Dim zStrTemp As String
Dim zRStr As String
Dim zBp As Integer
zArrPlace = Array["", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", ""]
On Error Resume Next
If SNum = "" Then
  word = ""
  Exit Function
End If
zNumStr = Trim[Str[SNum]]
If zNumStr = "" Then
  word = ""
  Exit Function
End If
 
zRStr = ""
zBp = 0
If [zNumStr > 999999999.99] Then
    word = "Digit excced Maximum limit"
    Exit Function
End If
zDPInt = InStr[zNumStr, "."]
If zDPInt > 0 Then
    If [Len[zNumStr] - zDPInt] = 1 Then
       zRStr_Paisas = word_GetT[Left[Mid[zNumStr, zDPInt + 1] & "0", 2]]
    ElseIf [Len[xNumStr] - xDPInt] > 1 Then
       zRStr_Paisas = word_GetT[Left[Mid[zNumStr, zDPInt + 1], 2]]
    End If
        zNumStr = Trim[Left[zNumStr, zDPInt - 1]]
    End If
    zP = 1
    Do While zNumStr  ""
        If [zP >= 2] Then
            zTemp = Right[zNumStr, 2]
        Else
            If [Len[zNumStr] = 2] Then
                zTemp = Right[zNumStr, 2]
            ElseIf [Len[zNumStr] = 1] Then
                zTemp = Right[zNumStr, 1]
            Else
                zTemp = Right[zNumStr, 3]
            End If
        End If
        zStrTemp = ""
        If Val[zTemp] > 99 Then
            zStrTemp = word_GetH[Right[zTemp, 3], zBp]
            If Right[Trim[xStrTemp], 3]  "Lac" Then
            zBp = zBp + 1
            End If
        ElseIf Val[zTemp]  9 Then
            zStrTemp = word_GetT[Right[zTemp, 2]]
        ElseIf Val[zTemp] < 10 Then
            zStrTemp = word_GetD[Right[zTemp, 2]]
        End If
        If zStrTemp  "" Then
            zRStr = zStrTemp & zArrPlace[zP] & zRStr
        End If
        If zP = 2 Then
            If Len[zNumStr] = 1 Then
                zNumStr = ""
            Else
                zNumStr = Left[zNumStr, Len[zNumStr] - 2]
            End If
       ElseIf zP = 3 Then
            If Len[zNumStr] >= 3 Then
                 zNumStr = Left[zNumStr, Len[zNumStr] - 2]
            Else
                zNumStr = ""
            End If
        ElseIf zP = 4 Then
          zNumStr = ""
    Else
        If Len[zNumStr]  0 Then
        word_GetD = zArr_1[Val[zDStr] - 1]
    Else
        word_GetD = ""
    End If
End Function

Bước 3. Sử dụng Tab Công thức để Tạo Hàm do Người dùng Xác định

• Đầu tiên, chọn tab Công thức
• Thứ hai, nhấp vào lệnh Chèn chức năng
• Bây giờ, chọn chức năng Do người dùng xác định từ danh sách danh mục Chèn chức năng
• Cuối cùng, bấm OK

Bước 4. Áp dụng hàm do người dùng xác định để chuyển đổi số thành từ trong Excel bằng Rupee

• Cuối cùng, hoàn thành Bước 3, bạn sẽ thấy cửa sổ này của chức năng Word
• Ở đây, chọn số đầu tiên từ cột B
• Do đó, hãy nhấp vào OK

• Tại đây, bạn sẽ thấy số đầu tiên được chuyển thành từ bằng đồng rupee

• Cuối cùng, sử dụng công cụ Fill Handle và kéo nó xuống từ ô C5 đến C12. Do đó, chúng tôi nhận được kết quả của các ô khác

Đọc thêm. VBA Excel để chuyển đổi số thành văn bản [4 ví dụ]

Phần kết luận

Trong bài viết này, tôi đã trình bày từng bước quy trình về cách Chuyển đổi Số thành Từ trong Excel bằng Rupee. Tôi chân thành hy vọng bạn thích và học được nhiều điều từ bài viết này. Ngoài ra, nếu bạn muốn đọc thêm các bài viết về Excel, bạn có thể truy cập trang web của chúng tôi, Exceldemy. Nếu bạn có bất kỳ câu hỏi, nhận xét hoặc đề xuất nào, vui lòng để lại trong phần bình luận bên dưới

Làm cách nào tôi có thể chuyển đổi số sang đồng rupee Ấn Độ trong Excel?

Làm cách nào để chuyển đổi số thành chữ trong Excel bằng đồng rupee Pakistan?