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

Hàm SpellNumber Indian Rupees là một hàm Excel được tạo thủ công bằng mã VBA để thay đổi một số đã cho thành các từ được viết bằng đồng Rupee Ấn Độ. Nói cách khác, nó chuyển đổi một giá trị số của INR thành các từ cùng với paise

Microsoft Excel không có chức năng sẵn có để hiển thị giá trị số bằng chữ. Theo yêu cầu của rất nhiều người dùng Microsoft đã cung cấp mã SpellNumber VBA

Nó có thể được chèn vào bảng tính Excel của bạn. Hàm này đánh vần giá trị số thành từ như tên gợi ý

Nói một cách đơn giản, để hiển thị $2,345. 50 dưới dạng "Đô la hai nghìn ba trăm bốn mươi lăm năm mươi xu", bạn có thể sử dụng Hàm SpellNumber

Trong khi đó, để hiển thị 2.345 INR. 50 dưới dạng ” Hai nghìn ba trăm bốn mươi lăm Rupee và Năm mươi Paise ” bằng cách sử dụng Hàm SpellNumber Indian Rupees

Chúng tôi đã chỉnh sửa mã tương tự với một số thay đổi cho kết quả được yêu cầu

Trong bài viết này, chúng ta sẽ thảo luận toàn bộ quy trình từng bước về cách tạo Hàm SpellNumber này cho đồng Rupee Ấn Độ bằng VBA

Bạn cũng có thể kiểm tra SpellNumber Không có Tiền tệ và SpellNumber của chúng tôi cho UAE Dirham

Cách tạo SpellNumber Chức năng Rupee Ấn Độ

Bước 1. Mở một sổ làm việc mới

Bước 2. Trong Dải băng trên cùng, Chuyển đến tab Nhà phát triển

Bước 3. Nhấp vào “Visual Basic” trong Mã

Bước 4. Click vào “Module” trong menu Insert như hình bên dưới

Một trang mô-đun trống sẽ mở ra

Bước 4. Sao chép mã dưới đây và dán nó vào bảng Mô-đun này

Mã cho hàm SpellNumber cho INR

Tệp này chứa văn bản Unicode hai chiều có thể được diễn giải hoặc biên dịch khác với nội dung hiển thị bên dưới. Để xem lại, hãy mở tệp trong trình chỉnh sửa hiển thị các ký tự Unicode bị ẩn
Tìm hiểu thêm về các ký tự Unicode hai chiều

Hiển thị ký tự ẩn

Tùy chọn rõ ràng'Chức năng chính www. ExcelDataPro. comHàm SpellNumberEDP2[ByVal MyNumber, Optional MyCurrency As String = ""]Dim Dollars, Cents, TempDim DecimalPlace, Count, xReDim Place[9] As StringPlace[2] = " Thousand "Place[3] = " Lacs "Place[4] = " Crores "Place[5] = " Hundred Crores "' String representation of amount.MyNumber = Trim[Str[MyNumber]]' Vị trí của chữ số thập phân . Số thập phân = InStr[Số của tôi, ". "]' Chuyển đổi xu và đặt MyNumber thành số tiền đô la. Nếu Số thập phân > 0 Thì . Cents = GetTens[Left[Mid[MyNumber, DecimalPlace + 1] & _"00", 2]]MyNumber = Trim[Left[MyNumber, DecimalPlace – 1]]End IfCount = 1Do While MyNumber ""If Count = 1 Thenx = 3Elsex = 2End IfTemp = GetHundreds[Right[MyNumber, x]]If Temp "" Then Dollars = Temp & Place[Count] & DollarsIf Len[MyNumber] > x ThenMyNumber = Left[MyNumber, Len[MyNumber] – x]ElseMyNumber = ""End IfCount = Count + 1LoopDim str_amount, str_amountsDim str_cent, str_centsSelect Case UCase[MyCurrency]Case "INR"str_amount = "Rupee"str_amounts = "Rupees"str_cent = "Paisa"str_cents = "Paisas"Case "PKR"str_amount = "Rupee"str_amounts = "Rupees"str_cent = "Paisa"str_cents = "Paisas"Case "BDT"str_amount = "Taka"str_amounts = "Takas"str_cent = "Poysha"str_cents = "Poysha"End SelectSelect Case DollarsCase ""Dollars = "No " & str_amountsCase "One"Dollars = "One " & str_amountCase ElseDollars = Dollars & " " & str_amountsEnd SelectSelect Case CentsCase ""Cents = " and No " & str_centsCase "One"Cents = " and One " & str_centCase ElseCents = " and " & Cents & " " & str_centsEnd SelectSpellNumberEDP2 = Dollars & CentsEnd Function' Converts a number from 100-999 into textFunction GetHundreds[ByVal MyNumber]Dim Result As StringIf Val[MyNumber] = 0 Then Exit FunctionMyNumber = Right["000" & MyNumber, 3]' Convert the hundreds place.If Mid[MyNumber, 1, 1] "0" ThenResult = GetDigit[Mid[MyNumber, 1, 1]] & " Hundred "End If' Convert the tens and ones place.If Mid[MyNumber, 2, 1] "0" ThenResult = Result & GetTens[Mid[MyNumber, 2]]ElseResult = Result & GetDigit[Mid[MyNumber, 3]]End IfGetHundreds = ResultEnd Function' Converts a number from 10 to 99 into text.Hàm GetTens[TensText]Làm mờ Kết quả As StringResult = "" ' Null out the temporary function value.If Val[Left[TensText, 1]] = 1 Then ' If value between 10-19…Select Case Val[TensText]Case 10: Kết quả = "Mười"Trường hợp 11: Kết quả = "Eleven"Trường hợp 12: Kết quả = "Mười hai"Trường hợp 13: Kết quả = "Mười ba"Trường hợp 14: Kết quả = "Mười bốn"Trường hợp 15: Kết quả = "Mười lăm"Trường hợp 16: Kết quả = "Mười sáu"Trường hợp 17: Kết quả = "Seventeen"Trường hợp 18: Kết quả = "Mười tám"Trường hợp 19: Kết quả = "Mười chín"Trường hợp ElseEnd SelectElse ' If value between 20-99…Select Case Val[Left[TensText, 1]]Case 2: Kết quả = "Hai mươi "Trường hợp 3: Kết quả = "Ba mươi "Trường hợp 4: Kết quả = "Bốn mươi " Trường hợp 5: Kết quả = "Năm mươi " Trường hợp 6: Kết quả = "Sáu mươi "Trường hợp 7: Kết quả = "Bảy mươi "Trường hợp 8: Kết quả = "Tám mươi "Trường hợp 9: Kết quả = "Chín mươi "Trường hợp ElseEnd SelectResult = Result & GetDigit _[Right[TensText, 1]] ' Retrieve ones place.Kết thúc NếuGetTens = Kết quả . End Function' Converts a number from 1 to 9 into text.Hàm GetDigit[Digit]Chọn Trường hợp Val[Digit]Case 1: GetDigit = "One"Trường hợp 2: GetDigit = "Hai"Trường hợp 3: GetDigit = "Ba"Trường hợp 4: GetDigit = "Four"Trường hợp 5: GetDigit = "Five"Trường hợp 6: GetDigit = "Six"Trường hợp 7: GetDigit = "Seven"Trường hợp 8: GetDigit = "Eight"Trường hợp 9: GetDigit = "Chín"Trường hợp Else: GetDigit = ""Kết thúc SelectEnd Function

xem thô

được lưu trữ với ❤ ​​bởi GitHub

Sửa lỗi

Nếu đoạn mã trên không chạy hoặc đưa ra lỗi sau "BIÊN TẬP LỖI" thì hãy làm theo các bước sau

1. Nhấp vào “xem thô” bên dưới mã
   

2. Một cửa sổ mới sẽ mở ra với mã
3. Sao chép mã đó và dán vào mô-đun VBA thay vì sao chép trực tiếp và dán

Bước 5. Nhấp vào nút "Lưu" hoặc nhấn Ctrl + S. Màn hình sẽ hiển thị hộp thoại như hình bên dưới

Tệp của bạn hiện bao gồm một macro, do đó bạn cần nhấp vào tùy chọn “Không”

Bước 6. Chọn “Lưu dưới dạng”

Chọn vị trí mong muốn nơi bạn muốn lưu tệp này và chọn “Lưu dưới dạng” dưới dạng “Sổ làm việc hỗ trợ macro Excel”

Hàm SpellNumber cho INR [Rupee Ấn Độ] hiện đã được tạo và lưu trong sổ làm việc của bạn

Sử dụng hàm Ấn Độ SpellNumber

Hãy để chúng tôi thử đoạn mã trên mà chúng tôi đã tạo trong sổ làm việc của mình

Chèn số vào cột A. Trong cột B chèn công thức. = SpellNumberEDP2[A1, “INR”]. Sử dụng chức năng xử lý điền để sao chép công thức trong tất cả các hàng

Nó sẽ hiện chữ Indian rupees dạng như hình bên dưới

Ghi chú. Xin lưu ý rằng chức năng này sẽ chỉ khả dụng trong sổ làm việc này. Thực hiện theo các spets trên để có được chức năng này trong một sổ làm việc khác.  

Xin lưu ý rằng mỗi khi bạn mở sổ làm việc này hoặc bất kỳ sổ làm việc nào khác có hỗ trợ macro, bạn sẽ nhận được cảnh báo bảo mật bên dưới dải băng. Xem hình ảnh bên dưới

Chọn “Bật nội dung này” và nhấp vào “OK”. Nếu không, mã sẽ không hoạt động

Chúng tôi cảm ơn độc giả đã thích, chia sẻ và theo dõi chúng tôi trên các nền tảng truyền thông xã hội khác nhau

Nếu bạn có bất kỳ câu hỏi hoặc đề xuất nào, vui lòng chia sẻ trong phần bình luận bên dưới. Tôi sẽ rất vui khi được hỗ trợ bạn

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

Làm cách nào để chuyển đổi Số thành từ bằng đồng rupee Ấn Độ trong Excel?

Làm thế nào có thể chèn đồng rupee Ấn Độ trong Excel?