How to Convert Numbers to Words in Excel ? எக்ஸெல் (Excel) இல் எண்களை வார்த்தைகளாக மாற்றுவது ?

நீங்கள் எப்போதாவது எண்களை வார்த்தைகளாக மாற்ற வேண்டியிருப்பதாக இருந்தால் — இது தவிர வாக்குறுதிகள், படிவங்கள் அல்லது அறிக்கைகள் உருவாக்கும்போது — நீங்கள் அறிந்திருப்பதற்கேற்றதாக எக்ஸெல் உங்களுக்கு கட்டளை செய்ய முடியாது. ஆனால் கவலைப்படவேண்டாம்! ஒரு எளிய VBA (Visual Basic for Applications) ஸ்கிரிப்ட் கொண்டு, நீங்கள் எளிதாக எண்களை வார்த்தைகளாக மாற்ற முடியும்.

1: VBA EDITOR :-

1. Open Excel.
2. Tools மெனுவுக்கு சென்று “Macro” > “Visual Basic Editor” என்பதைத் தேர்வு செய்து திறக்கலாம்.
3. VBA எடிட்டர் இல் மேலே உள்ள மெனுவில் Insert > Module என்பதனைத் தேர்வு செய்யவும்.
4. இதனால் புதிய மொடியூல் ஒன்று திறக்கப்படும், அதில் கீழே கொடுக்கப்பட்டுள்ள குறியீட்டை ஒட்டவும்.

Copy and Paste the below Sample Code :-

Function NumToWords(ByVal MyNumber)

Dim Units As String
Dim SubUnits As String
Dim TempStr As String
Dim DecimalSeparator As String
Dim UnitName As String
Dim SubUnitName As String

DecimalSeparator = "."
UnitName = "Dollars" ' Change this to your unit name
SubUnitName = "Cents" ' Change this to your subunit name

' Convert MyNumber to String and split into Units and SubUnits
TempStr = Trim(CStr(MyNumber))
If InStr(TempStr, DecimalSeparator) > 0 Then
    Units = Trim(Mid(TempStr, 1, InStr(TempStr, DecimalSeparator) - 1))
    SubUnits = Trim(Mid(TempStr, InStr(TempStr, DecimalSeparator) + 1, Len(TempStr)))
Else
    Units = TempStr
    SubUnits = ""
End If

' Convert Units to Words
NumToWords = ConvertHundreds(Units)

' Add SubUnits (Cents) to Words
If SubUnits <> "" Then
    NumToWords = NumToWords & " and " & ConvertHundreds(SubUnits) & " " & SubUnitName
End If

' Add the unit name (Dollars)
NumToWords = NumToWords & " " & UnitName

End Function

Function ConvertHundreds(ByVal MyVal)

Dim Result As String
Dim SubUnit As String
Dim TempStr As String
Dim DecimalSeparator As String

DecimalSeparator = "."
TempStr = MyVal
If Val(MyVal) = 0 Then Exit Function

' Convert Hundreds Place.
If Len(TempStr) >= 3 Then
    Result = Result & GetDigit(Mid(TempStr, 1, Len(TempStr) - 2)) & " Hundred "
    TempStr = Mid(TempStr, Len(TempStr) - 1, 2)
End If

' Convert Tens and Ones Place.
If Val(TempStr) > 0 Then
    Result = Result & GetTens(TempStr)
End If

ConvertHundreds = Result

End Function

Function GetDigit(ByVal MyDigit)

Select Case Val(MyDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select

End Function

Function GetTens(ByVal TensText)

Dim Result As String

If Mid(TensText, 1, 1) = "1" Then   ' If value between 10-19...
    Select Case Val(TensText)
        Case 10: GetTens = "Ten"
        Case 11: GetTens = "Eleven"
        Case 12: GetTens = "Twelve"
        Case 13: GetTens = "Thirteen"
        Case 14: GetTens = "Fourteen"
        Case 15: GetTens = "Fifteen"
        Case 16: GetTens = "Sixteen"
        Case 17: GetTens = "Seventeen"
        Case 18: GetTens = "Eighteen"
        Case 19: GetTens = "Nineteen"
        Case Else

    End Select
Else                               ' If value between 20-99...
    Select Case Val(Mid(TensText, 1, 1))
        Case 2: GetTens = "Twenty "
        Case 3: GetTens = "Thirty "
        Case 4: GetTens = "Forty "
        Case 5: GetTens = "Fifty "
        Case 6: GetTens = "Sixty "
        Case 7: GetTens = "Seventy "
        Case 8: GetTens = "Eighty "
        Case 9: GetTens = "Ninety "
        Case Else: GetTens = ""
    End Select
    If Mid(TensText, 2, 1) <> "0" Then
        Result = Result & " " & GetDigit(Mid(TensText, 2, 1))
    End If
End If
GetTens = Result

End Function

4. Close the VBA Editor.
5. B1 செல்லில் இந்த செயல்பாட்டை பயன்படுத்தவும்:
=NumToWords(A1)

https://youtube.com/shorts/ZxO2v62Jcgc

இந்த வழிமுறைகளை பின்பற்றி எளிதாக எண்களை வார்த்தைகளாக மாற்ற முடியும். உங்கள் நண்பர்களுடன் இந்த தகவலைப் பகிரவும் மற்றும் இந்த நுணுக்கங்களை பயன்படுத்தி எக்ஸெல் மூலம் உங்கள் பணிகளை மேலும் எளிதாக்குங்கள்!

 647 total views