Đánh vần số trong Excel không có macro

Cách kích hoạt công thức =SpellNumber( ) mọi lúc trong Excel mà không cần sử dụng mã hoặc không bật macroQuasử dụng máy tính1-30 Tháng Bảy, 2019FacebookTwitterPinterestWhatsAppliên kếtđiện tínCách kích hoạt công thức =SpellNumber( ) mọi lúc trong Excel mà không cần sử dụng mã hoặc không bật macro

Công thức SpellNumber là gì

SpellNumber Công thức sử dụng để Chuyển đổi Số thành Word trong Excel. Cái này mặc định không Active trong Excel nếu bạn muốn đổi Number sang Word thì bạn dùng công thức này chứ Excel không Active công thức này nên bạn có thể tự thêm công thức này khi bạn thêm công thức này bằng VBA Coding hoặc Macro Đã bật công thức này

Cách tự động thêm SpellNumber trong Ms Excel

1. Tải xuống tệp Nhấp vào nút Tải xuống

2. Chuyển đến Máy tính của tôi và nhấp vào Sắp xếp hiển thị ở trên cùng bên trái và nhấp vào thư mục và tùy chọn tìm kiếm

3. sau đó nhấp vào xem và nhấp vào hiển thị các tệp, thư mục và ổ đĩa ẩn sau đó nhấp vào Áp dụng rồi ok

4. có hai tùy chọn để nhận thư mục AddIns

• đi tới thanh Tìm kiếm và nhập *AddIns vào thanh tìm kiếm
• đi đến c. drive nhấp vào thư mục người dùng sau đó nhấp vào quản trị viên sau đó nhấp vào thư mục AppData sau đó nhấp vào thư mục Roaming rồi nhấp vào Microsoft rồi nhấp vào AddIns

5. Tệp trước đây trong thư mục AddIns bây giờ hãy chuyển đến Excel, nhấp vào nút chính thức, sau đó nhấp vào tùy chọn Excel

6. sau đó nhấp vào Bổ trợ, sau đó nhấp vào số chính tả sau đó nhấp vào nút bắt đầu

7. bây giờ đánh dấu vào số chính tả, sau đó nhấp vào nút ok, đây là bước cuối cùng để sử dụng công thức số chính tả

nếu bạn muốn thay đổi tiền tệ, hãy nhấp vào đây

Nếu bạn có bất kỳ câu hỏi xin vui lòng gửi tin nhắn Cảm ơn bạn

Facebook

Twitter

Pinterest

WhatsApp

liên kết

điện tín

Bài viết trước Cách chuyển đổi số bằng đơn vị tiền tệ của bạn trong Excel như (10 thành 10) trong Excel 2007 , 2010

Bài viết tiếp theo Phím tắt tốt nhất cho Excel. Tất cả phím tắt hữu ích trong tệp PDF

sử dụng máy tính1

Sl số 2) 1,525,489. 256 (Một triệu năm trăm hai mươi lăm nghìn bốn trăm tám mươi chín rial và hai trăm năm mươi sáu baisa. )

bất kỳ ai có thể vui lòng sửa công thức dưới đây theo (Sl No -2)

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rials, Baisa, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Baisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rials = Temp & Place(Count) & Rials
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rials
Case ""
Rials = "No Rials"
Case "One"
Rials = "One Rials"
Case Else
Rials = Rials & " Rials"
End Select
Select Case Baisa
Case ""
Baisa = " and No Baisa"
Case "One"
Baisa = " and One Baisa"
Case Else
Baisa = " and " & Baisa & " Baisa"
End Select
SpellNumber = Rials & Baisa
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19…
Chọn Case Val(TensText)
Case 10: Result = "Ten"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99…
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Satyam nói.
29 tháng 5 năm 2022 lúc 10. 45 giờ sáng

Chào ngài,

Yêu cầu của tôi (1.525.489. 256) Oman Rials trong lời nói.
Một triệu năm trăm hai mươi lăm nghìn bốn trăm tám mươi chín rial và hai trăm năm mươi sáu baisa.
Bạn có thể vui lòng sửa các Công thức bên dưới không.

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rials, Baisa, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Baisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rials = Temp & Place(Count) & Rials
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rials
Case ""
Rials = "No Rials"
Case "One"
Rials = "One Rials"
Case Else
Rials = Rials & " Rials"
End Select
Select Case Baisa
Case ""
Baisa = " and No Baisa"
Case "One"
Baisa = " and One Baisa"
Case Else
Baisa = " and " & Baisa & " Baisa"
End Select
SpellNumber = Rials & Baisa
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19…
Chọn Case Val(TensText)
Case 10: Result = "Ten"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99…
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Rajesh nói.
Ngày 20 tháng 8 năm 2022 lúc 2. 33 giờ chiều

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rials, Baisa, Temp< .
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Vị trí của chữ số thập phân 0 nếu không có.
DecimalPlace = InStr(MyNumber, ". ")
' Chuyển đổi Baisa và đặt MyNumber thành số tiền.
Nếu DecimalPlace > 0 Thì
Baisa = GetHundreds(Left(Mid(MyNumber, DecimalPlace + 1) & _
"000
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rials = Temp & Place(Count) & Rials
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rials
Case ""
Rials = "No Rials"
Case "One"
Rials = "One Rials"
Case Else
Rials = Rials & " "
End Select
Select Case Baisa
Case ""
Baisa = "Only"
Case "One"
Baisa = "and Baisa One Hundred"
Case Else
Baisa = "and Baisa " & Baisa & " Only"
End Select
SpellNumber = Rials & Baisa
End Function

' Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Chuyển đổi một số từ 10 đến 99 thành văn bản.
Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

' Chuyển đổi một số từ 1 đến 9 thành văn bản.
Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

amir nói.
11 tháng 4 năm 2021 lúc 10. 56 giờ chiều

Có Lỗi ????

Tùy chọn rõ ràng

'Chức năng chính

Hàm SpellNumber(ByVal MyNumber)

Đô la mờ, xu, nhiệt độ

Dim DecimalPlace, Count

ReDim Place(9) dưới dạng chuỗi

Place(2) = " Nghìn "

Vị trí(3) = " Triệu "

Vị trí(4) = "Tỷ"

Vị trí(5) = "Nghìn tỷ"

' Chuỗi đại diện cho số tiền

MyNumber = Trim(Str(MyNumber))

' Vị trí của số thập phân 0 nếu không có

DecimalPlace = InStr(MyNumber, ". ")

' Chuyển đổi xu và đặt MyNumber thành số tiền đô la

Nếu DecimalPlace > 0 thì

Cents = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))

MyNumber = Trim(Trái(MyNumber, DecimalPlace - 1))

kết thúc nếu

Đếm = 1

Thực hiện trong khi MyNumber ""

Temp = GetHundreds(Right(MyNumber, 3))

Nếu Temp "" Thì Dollars = Temp & Place(Count) & Dollars

Nếu Len(MyNumber) > 3 Thì

MyNumber = Trái(MyNumber, Len(MyNumber) - 3)

Khác

Số của tôi = ""

kết thúc nếu

Đếm = Đếm + 1

Vòng

Chọn trường hợp đô la

Trường hợp ""

Đô la = "Không có đô la"

Trường hợp "Một"

Đô la = "Một đô la"

trường hợp khác

Đô la = Đô la và "Đô la"

Kết thúc chọn

Chọn trường hợp xu

Trường hợp ""

Xu = "và Không có xu"

Trường hợp "Một"

Xu = "và Một xu"

trường hợp khác

Xu = " và " & Xu & " Xu"

Kết thúc chọn

SpellNumber = Đô la & Xu

chức năng kết thúc

' Chuyển đổi một số từ 100-999 thành văn bản

Hàm GetHundreds(ByVal MyNumber)

Kết quả mờ dưới dạng chuỗi

Nếu Val(MyNumber) = 0 Thì Thoát Chức Năng

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

' Đổi chỗ hàng trăm

Nếu Mid(MyNumber, 1, 1) "0" Thì

Kết quả = GetDigit(Mid(MyNumber, 1, 1)) và " Hundred "

kết thúc nếu

' Đổi chỗ cho hàng chục và hàng đơn vị

Nếu Mid(MyNumber, 2, 1) "0" Thì

Kết quả = Kết quả & GetTens(Mid(MyNumber, 2))

Khác

Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3))

kết thúc nếu

GetHundreds = Kết quả

chức năng kết thúc

' Chuyển đổi một số từ 10 đến 99 thành văn bản

Hàm GetTens(TensText)

Kết quả mờ dưới dạng chuỗi

Kết quả = "" ' Null giá trị hàm tạm thời

Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19

Chọn Trường hợp Val (TensText)

Trường hợp 10. Kết quả = "Mười"

Trường hợp 11. Kết quả = "Mười một"

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ả = "Mười bảy"

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 khác

Kết thúc chọn

Khác ' Nếu giá trị giữa 20-99

Chọn Case Val(Trái(TensText, 1))

trường hợp 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 khác

Kết thúc chọn

Kết quả = Kết quả & GetDigit _

(Right(TensText, 1)) ' Truy xuất địa điểm

kết thúc nếu

GetTens = Kết quả

chức năng kết thúc

' Chuyển đổi một số từ 1 đến 9 thành văn bản

Hàm GetDigit(Chữ số)

Chọn Case Val(Digit)

Trường hợp 1. GetDigit = "Một"

trường hợp 2. GetDigit = "Hai"

Trường hợp 3. GetDigit = "Ba"

Trường hợp 4. GetDigit = "Bốn"

Trường hợp 5. GetDigit = "Năm"

Trường hợp 6. GetDigit = "Sáu"

Trường hợp 7. GetDigit = "Bảy"

Trường hợp 8. GetDigit = "Tám"

Trường hợp 9. GetDigit = "Chín"

trường hợp khác. GetDigit = ""

Kết thúc chọn

chức năng kết thúc

lakshman nói.
17 tháng 2 năm 2021 lúc 5. 34 giờ sáng

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Trong mã này, có gì đó không đúng khi chúng tôi sử dụng đơn vị tiền tệ của Ấn Độ, ở đó nó phải là "một laksh hai mươi sáu nghìn bảy trăm rupee thôi" nhưng đầu ra lại là
"một trăm hai mươi .

chính xác mã phải thay đổi ở đâu. bất cứ ai có thể hỗ trợ tôi để làm rõ vấn đề

lakshman nói.
17 tháng 2 năm 2021 lúc 5. 33 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Vòng lặp
Chọn trường hợp Rupees
Trường hợp ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupee"
End Select
Select Case Paise
Case ""
Paise = " Only"
Case "One"
Paise = " One Paise Only"

Trường hợp khác
Paise = " và " & Paise & " Chỉ Paise"
Chọn kết thúc
Số chính tả =
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Trong mã này, có gì đó không đúng khi chúng tôi sử dụng đơn vị tiền tệ của Ấn Độ, ở đó nó phải là "một laksh hai mươi sáu nghìn bảy trăm rupee thôi" nhưng đầu ra lại là
"một trăm hai mươi .

chính xác mã phải thay đổi ở đâu. bất cứ ai có thể hỗ trợ tôi để làm rõ vấn đề

LINDO ALEX nói.
Ngày 6 tháng 2 năm 2021 lúc 2. 33 giờ chiều

3 Thập phân.
Dinar Bahrain

Tùy chọn rõ ràng
'Chức năng chính
Số chính tả của hàm(ByVal MyNumber)
Dinar Dinar, fils, Temp< .
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Vị trí của chữ số thập phân 0 nếu không có.
DecimalPlace = InStr(MyNumber, ". ")
' Chuyển đổi xu và đặt MyNumber thành số tiền Dinar.
Nếu DecimalPlace > 0 Thì
fils = GetHundreds(Left(Mid(MyNumber, DecimalPlace + 1) & _
"000
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dinar = Temp & Place(Count) & Dinar
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dinar
Case ""
Dinar = "No Dinar"
Case "One"
Dinar = "One Dinar"
Case Else
Dinar = Dinar & " Dinar"
End Select
Select Case fils
Case ""
fils = " and No fils"
Case "One"
fils = " and One fils"
Case Else
fils = " and " & fils & " fils"
End Select
SpellNumber = Dinar & fils
End Function

' Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Chuyển đổi một số từ 10 đến 99 thành văn bản.
Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

' Chuyển đổi một số từ 1 đến 9 thành văn bản.
Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Santhosh Kumar Tirunahari nói.
31 tháng 1 năm 2021 lúc 8. 34 giờ chiều

chào md. Delwar,

Hãy thử điều này cho đồng rupee và paise của Ấn Độ

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Vòng lặp
Chọn trường hợp Rupees
Trường hợp ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupee"
End Select
Select Case Paise
Case ""
Paise = " Only"
Case "One"
Paise = " One Paise Only"

Trường hợp khác
Paise = " và " & Paise & " Chỉ Paise"
Chọn kết thúc
Số chính tả =
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Delin Davy nói.
16 tháng 1 năm 2021 lúc 9. 51 giờ sáng

Đúng cho Rupee Ấn Độ

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupees, Paisa, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "No Rupees"
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paisa
Case ""
Paisa = " and No Paisa"
Case "One"
Paisa = " and One Paise"
Case Else
Paisa = " and " & Paisa & " Paisa"
End Select
SpellNumber = Rupees & Paisa
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

ALI HAIDER KHAN nói.
19 tháng 12 năm 2020 lúc 7. 59 giờ sáng

excel ma
1) Alt+f11
2) chèn mô-đun ma click karain us ma jo window open hogi us ma nicha jo diya ha woh
3) ab koi bhi cell na ja kar =spellNumber(A)
4) A ki jaga woh cell number dalain jis ko convert karna hai

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp< .
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lac "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Vị trí của chữ số thập phân 0 nếu không có.
DecimalPlace = InStr(MyNumber, ". ")
' Chuyển đổi Paise và đặt MyNumber thành số tiền rupee.
Nếu DecimalPlace > 0 Thì
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "No Rupees"
Case "One"
Rupees = "One Rupees"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paise
Case ""
Paise = " and No Paise"
Case "One"
Paise = " and One Paise"
Case Else
Paise = " and " & Paise & " Paise"
End Select
SpellNumber = Rupees & Paise
End Function

' Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Chuyển đổi một số từ 10 đến 99 thành văn bản.
Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

' Chuyển đổi một số từ 1 đến 9 thành văn bản.
Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Chivar Pilones nói.
7 tháng 1 năm 2021 lúc 4. 22 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Số chính tả hàm(ByVal MyNumber)
Dim Pesos, Cents, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Pesos = Temp & Place(Count) & Pesos
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Pesos
Case ""
Pesos = "No Pesos"
Case "One"
Pesos = "One Pesos"
Case Else
Pesos = Pesos & " Pesos"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Pesos & Cents
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Marosh nói.
22 tháng 11 năm 2020 lúc 11. 42 giờ chiều

Đánh số theo từ bằng đồng rupee Pakistan

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupees, Paisa, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "No Rupees"
Case "One"
Rupees = "One Dollar"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paisa
Case ""
Paisa = " and No Paisa"
Case "One"
Paisa = " and One Paisa"
Case Else
Paisa = " and " & Paisa & " Paisa"
End Select
SpellNumber = Rupees & Paisa
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Nuwan nói.
12 tháng 10 năm 2020 lúc 11. 23 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Rupee, Cents, Temp<
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "No Rupees"
Case "One"
Rupees = "One Dollar"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Rupees & Cents
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Nuwan nói.
12 tháng 10 năm 2020 lúc 11. 25 giờ sáng

Tùy chọn rõ ràng
'Chức năng chính
Hàm SpellNumber(ByVal MyNumber)
Dim Ấn Độ Rupee, Cent, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

MyNumber = Trim(String(A Number))
Số thập phân = InStr(My Number, ". ")
Nếu DecimalPlace > 0 Thì
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Indian Rupees = Temp & Place(Count) & Indian Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Indian Rupees
Case ""
Indian Rupees = "No Indian Rupees"
Case "One"
Indian Rupees = "One Dollar"
Case Else
Indian Rupees = Indian Rupees & " Indian Rupees"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Indian Rupees & Cents
End Function

Hàm GetHundreds(ByVal MyNumber)
Kết quả mờ dưới dạng chuỗi
Nếu Val(MyNumber) = 0 thì thoát hàm
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
Nếu Mid(MyNumber, 1, 1) "0" Thì
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
Nếu Mid(MyNumber, 2, 1) "0" Thì
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Hàm GetTens(TensText)
Kết quả mờ dưới dạng chuỗi
Result = "" ' Null giá trị hàm tạm thời.
Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19.
Chọn Trường hợp Val (TensText)
Trường hợp 10. Kết quả = "Mười"
Trường hợp 11. Kết quả = "Mười một"
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ả = "Mười bảy"
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 khác
Kết thúc Chọn
Khác ' Nếu giá trị trong khoảng 20-99.
Chọn Trường hợp Val(Trái(TensText, 1))
Trường hợp 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 khác
Chọn kết thúc
Kết quả = Kết quả & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
Kết thúc nếu
GetTens = Kết quả
Kết thúc chức năng

Hàm GetDigit(Digit)
Chọn Case Val(Digit)
Trường hợp 1. GetDigit = "Một"
Trường hợp 2. GetDigit = "Hai"
Trường hợp 3. GetDigit = "Ba"
Trường hợp 4. GetDigit = "Bốn"
Trường hợp 5. GetDigit = "Năm"
Trường hợp 6. GetDigit = "Sáu"
Trường hợp 7. GetDigit = "Bảy"
Trường hợp 8. GetDigit = "Tám"
Trường hợp 9. GetDigit = "Chín"
Trường hợp khác. GetDigit = ""
Kết thúc chọn
Kết thúc chức năng

Có cách nào nhanh chóng để chuyển đổi văn bản thành Số trong Excel không?