Convert Numbers into words(Currency) in Excel

How to convert Numbers into English words as currency in Excel

Open Excel,
Alt + F11
Insert, Module

copy the code below and paste into module(after start line and before end line)
----------------------------------------------
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
    Dim Dirhams, 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))
    ' Position of decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Fils and set MyNumber to Dirham amount.
    If DecimalPlace > 0 Then
        Fils = 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 Dirhams = Temp & Place(Count) & Dirhams
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Dirhams
        Case ""
            Dirhams = "No Dirhams"
        Case "One"
            Dirhams = "One Dirham"
         Case Else
            Dirhams = Dirhams & " Dirhams"
    End Select
    Select Case Fils
        Case ""
            Fils = " and No Fils"
        Case "One"
            Fils = " and One Fil"
              Case Else
            Fils = " and " & Fils & " Fils"
    End Select
    SpellNumber = Dirhams & Fils
End Function
     
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function
     
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""           ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
            Case Else
        End Select
    Else                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty "
            Case 3: Result = "Thirty "
            Case 4: Result = "Forty "
            Case 5: Result = "Fifty "
            Case 6: Result = "Sixty "
            Case 7: Result = "Seventy "
            Case 8: Result = "Eighty "
            Case 9: Result = "Ninety "
            Case Else
        End Select
        Result = Result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = Result
End Function
   
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
        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
---------------------------------------------

Save and exit
Put any number in Cell A1
Type Formulae into A2=Spellnumber(A1)
The number will be spelled into currency

GSM TRACKING

How to find/Track GSM Location:


1. Find MCC and MNC of the Phone

MCC= Mobile Country Code
MNC = Mobile Network Code
(Available online - Google)

2. Find LAC and CID

a. Android = *#*#4636#*#*
b. Iphone = *3001#12345#* 


3. Convert LAC and CID Data to Decimal from this website
4. Input the data to this website

Click send button

See the location in Google maps!


Courtesy: http://boolokam.com/archives/76388


Additional Info:

Get Location Directly entering data

http://www.open-electronics.org/celltrack/cell.php?hex=0&mcc=424&mnc=02&lac=00040311&cid=26429961


Another Alternative:
http://cellphonetrackers.org/gsm/gsm-tracker.php

IPHONE SECRET CODES

Iphone Secret Codes:

 

*#06# - It is use to show IMEI of any phone means it will work on any Smartphone or mobile of any brand.

*#21# - It gives information about the configuration of forwarding (calls, voice and data.)

*#30# - Its functions is to report you either you enable / disabled status of calling line presentation.

*#33# - This secret of iPhone will give you a list with multiple configurations like (call, sms, data, fax, sms, etc) and show whether they are enabled or not.

*#43# - usually use to verify status of call waiting like sms, data, sync data, etc. in your iPhone.

*#61# - Checking of number of missed calls.

*#62# - verifies the number for forwarding calls in case of none of service is available.

*#67# - check the numbers for forwarding calls if your iPhone is busy.

*#76# - By typing this number will give you information about your line presentation enabled or disabled status.

*225# – This code is only available for prepaid lines in order to show the accounts bill balance.

*646# - Tel you information of the minutes remained in your account and only valid for only Postpaid ones.

*777# - You can know detailed information of account balance of prepaid iPhones

*3282# - Get know about the use of data information.

*3001#12345#* - it is use to reveal internal setting like Open the "Field Test" of the iPhone which enables us to learn many advanced data network from our iPhone. GSM, Wireless, 3G ... everything will be exposed here. These codes are applicable to all models of Apple iphone like 1, 3G, 3GS, 4, 4S, and definitely for the upcoming iPhone 5.