સો પ્રથમ 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 એવુ લખેલ દેખાશે. હવે તમે ૧૦૦ ની જગ્યાએ કોઇ પણ આક્ડો લખી ને જાતે જ જોય લો.
