Excel માં આક્ડા ને અંકમાં ફેરવવા માટે આટ્લુ કરો

સો પ્રથમ Excel ખોલો

Step1: press Alt+F11

Step2: MENU: માં જઇ  Insert> Module

Step3: નીચેના  code કોપી કરી પેસ્ટ કરો.

Option Explicit

Public Numbers As Variant, Tens As Variant

Sub SetNums()

    Numbers = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

End Sub

Function WordNum(MyNumber As Double) As String

Dim DecimalPosition As Integer, ValNo As Variant, StrNo As String

Dim NumStr As String, n As Integer, Temp1 As String, Temp2 As String

' This macro was written by Chris Mead - www.MeadInKent.co.uk

If Abs(MyNumber) > 999999999 Then

    WordNum = "Value too large"

Exit Function

End If

SetNums

    ' String representation of amount (excl decimals)

NumStr = Right("000000000" & Trim(Str(Int(Abs(MyNumber)))), 9)

ValNo = Array(0, Val(Mid(NumStr, 1, 3)), Val(Mid(NumStr, 4, 3)), Val(Mid(NumStr, 7, 3)))

For n = 3 To 1 Step -1 'analyse the absolute number as 3 sets of 3 digits

    StrNo = Format(ValNo(n), "000")

    If ValNo(n) > 0 Then

        Temp1 = GetTens(Val(Right(StrNo, 2)))

            If Left(StrNo, 1) <> "0" Then

                Temp2 = Numbers(Val(Left(StrNo, 1))) & " hundred"

                If Temp1 <> "" Then Temp2 = Temp2 & " and "

            Else

        Temp2 = ""

                End If

        If n = 3 Then

            If Temp2 = "" And ValNo(1) + ValNo(2) > 0 Then Temp2 = "and "

                WordNum = Trim(Temp2 & Temp1)

            End If

    If n = 2 Then WordNum = Trim(Temp2 & Temp1 & " thousand " & WordNum)

        If n = 1 Then WordNum = Trim(Temp2 & Temp1 & " million " & WordNum)

            End If

    Next n

    NumStr = Trim(Str(Abs(MyNumber)))

    ' Values after the decimal place

    DecimalPosition = InStr(NumStr, ".")

    Numbers(0) = "Zero"

    If DecimalPosition > 0 And DecimalPosition < Len(NumStr) Then

    Temp1 = " point"

    For n = DecimalPosition + 1 To Len(NumStr)

    Temp1 = Temp1 & " " & Numbers(Val(Mid(NumStr, n, 1)))

    Next n

    WordNum = WordNum & Temp1

    End If

    If Len(WordNum) = 0 Or Left(WordNum, 2) = " p" Then

    WordNum = "Zero" & WordNum

    End If

    End Function

    Function GetTens(TensNum As Integer) As String

    ' Converts a number from 0 to 99 into text.

    If TensNum <= 19 Then

    GetTens = Numbers(TensNum)

    Else

    Dim MyNo As String

    MyNo = Format(TensNum, "00")

    GetTens = Tens(Val(Left(MyNo, 1))) & " " & Numbers(Val(Right(MyNo, 1)))

    End If

End Function

ત્યાર પછી  File Menu >select Save Book > select "Excel 97-2003 Add-In (*.xla) અને બહાર નીકળી જાઓ. હવે એક્ષએલ શીટ માં A1 cell માં  100 લખી B1 cell માં type કરો.  =wordnum(a1) Enter ત્યા હવે તમને one hundred એવુ લખેલ દેખાશે. હવે તમે ૧૦૦ ની  જગ્યાએ કોઇ પણ આક્ડો લખી ને જાતે જ જોય લો.

Share: