AED Amount to Words in Excel — Free VBA Formula for UAE Dirhams & Fils

Step 1: Open the VBA Editor

1. Open your Excel file
2. Press Alt + F11 to open the Visual Basic Editor
3. In the menu, click Insert > Module
4. Paste the code below into the blank module window
5. Press Alt + Q to close the VBA editor

Step 2: Paste this VBA code

Function SpellAED(ByVal Amount As Double) As String
    Dim dirhams As Long
    Dim fils As Long
    
    dirhams = Int(Amount)
    fils = Round((Amount - dirhams) * 100, 0)
    
    Dim result As String
    result = SpellNumber(dirhams) & " Dirhams"
    
    If fils > 0 Then
        result = result & " and " & SpellNumber(fils) & " Fils"
    End If
    
    SpellAED = result & " Only"
End Function

Function SpellNumber(ByVal MyNumber As Long) As String
    Dim Ones(19) As String
    Dim Tens(9) As String
    
    Ones(0) = "": Ones(1) = "One": Ones(2) = "Two"
    Ones(3) = "Three": Ones(4) = "Four": Ones(5) = "Five"
    Ones(6) = "Six": Ones(7) = "Seven": Ones(8) = "Eight"
    Ones(9) = "Nine": Ones(10) = "Ten": Ones(11) = "Eleven"
    Ones(12) = "Twelve": Ones(13) = "Thirteen": Ones(14) = "Fourteen"
    Ones(15) = "Fifteen": Ones(16) = "Sixteen": Ones(17) = "Seventeen"
    Ones(18) = "Eighteen": Ones(19) = "Nineteen"
    
    Tens(0) = "": Tens(1) = "": Tens(2) = "Twenty"
    Tens(3) = "Thirty": Tens(4) = "Forty": Tens(5) = "Fifty"
    Tens(6) = "Sixty": Tens(7) = "Seventy": Tens(8) = "Eighty"
    Tens(9) = "Ninety"
    
    If MyNumber = 0 Then SpellNumber = "Zero": Exit Function
    
    Dim temp As String
    If MyNumber >= 1000000 Then
        temp = SpellNumber(MyNumber \ 1000000) & " Million"
        MyNumber = MyNumber Mod 1000000
        If MyNumber > 0 Then temp = temp & " "
        SpellNumber = temp
    End If
    If MyNumber >= 1000 Then
        temp = SpellNumber(MyNumber \ 1000) & " Thousand"
        MyNumber = MyNumber Mod 1000
        If MyNumber > 0 Then temp = temp & " "
        SpellNumber = SpellNumber & temp
    End If
    If MyNumber >= 100 Then
        temp = Ones(MyNumber \ 100) & " Hundred"
        MyNumber = MyNumber Mod 100
        If MyNumber > 0 Then temp = temp & " and "
        SpellNumber = SpellNumber & temp
    End If
    If MyNumber >= 20 Then
        temp = Tens(MyNumber \ 10)
        If MyNumber Mod 10 > 0 Then temp = temp & " " & Ones(MyNumber Mod 10)
        SpellNumber = SpellNumber & temp
    ElseIf MyNumber > 0 Then
        SpellNumber = SpellNumber & Ones(MyNumber)
    End If
End Function

Step 3: Use in any cell

Once the macro is added, use it as a regular formula. If your invoice total is in cell B5:

Output: One Thousand Two Hundred Fifty Dirhams Only