To convert numbers to words in Excel 2013, you can use a formula or a VBA (Visual Basic for Applications) code. One common method is to use a custom VBA function. Here is a simple example of a VBA code that converts a numeric value into words:
```vba
Function NumToWords(ByVal MyNumber As Double) As String
Dim Temp As String
Dim NumStr As String
Dim DecimalPlace As Integer
Dim Count As Integer
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' Convert MyNumber to English words.
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
NumStr = Left(MyNumber, DecimalPlace - 1)
Else
NumStr = MyNumber
End If
Count = 1
Do While NumStr <> ""
Temp = ConvertToWords(Val(Right(NumStr, 3)))
If Temp <> "" Then NumToWords = Temp & Place(Count) & NumToWords
If Len(NumStr) > 3 Then
NumStr = Left(NumStr, Len(NumStr) - 3)
Else
NumStr = ""
End If
Count = Count + 1
Loop
' Add cents to the end of the English string.
If DecimalPlace > 0 Then
Temp = " and " & Trim(ConvertToWords(Val(Mid(MyNumber, DecimalPlace + 1))) & " Cents"
NumToWords = NumToWords & Temp
End If
End Function
Function ConvertToWords(ByVal MyNumber As Double) As String
Dim NumStr As String
Dim Units As String
Dim Tens As String
Dim Temp As String
Units = Array("", " One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine")
Tens = Array("", " Ten", " Twenty", " Thirty", " Forty", " Fifty", " Sixty", " Seventy", " Eighty", " Ninety")
If MyNumber < 10 Then
ConvertToWords = Units(MyNumber)
Exit Function
End If
If MyNumber < 20 Then
Select Case MyNumber
Case 10: ConvertToWords = " Ten"
Case 11: ConvertToWords = " Eleven"
Case 12: ConvertToWords = " Twelve"
Case 13: ConvertToWords = " Thirteen"
Case 14: ConvertToWords = " Fourteen"
Case 15: ConvertToWords = " Fifteen"
Case 16: ConvertToWords = " Sixteen"
Case 17: ConvertToWords = " Seventeen"
Case 18: ConvertToWords = " Eighteen"
Case 19: ConvertToWords = " Nineteen"
Case Else
End Select
Exit Function
End If
Temp = Tens(Int(MyNumber / 10))
NumStr = Temp
Temp = Units(MyNumber Mod 10)
ConvertToWords = NumStr & Temp
End Function
```
To use this code in Excel, you need to open the VBA editor (Alt + F11), insert a new module, and paste the code. After that, you can use the `NumToWords` function in your Excel worksheet to convert numeric values to words.
If you need further assistance or clarification on this topic, feel free to ask.