How can I convert a pecentage number to percentage text

[Hernan_g_f]

Hello all,

I have the following percentage numbers in column A and I want to convert them to text using vba

A B
1 20 % = worksheetfunction.? Cells(i,1).Value?? text (in %)
2 10 %
3 15 %

How can I do it?

Thanks i advance,
Hernán

 

[Hyakkivn]

Function PercentToWords(ByVal percentValue As Double) As String
    Dim units As String
    Dim tens As String
    Dim result As String
   
    If percentValue < 0 Then
        PercentToWords = "Invalid input"
        Exit Function
    End If
   
    ' Define word forms for units and tens
    units = "Zero One Two Three Four Five Six Seven Eight Nine"
    tens = "Ten Twenty Thirty Forty Fifty Sixty Seventy Eighty Ninety"
   
    ' Convert the percentage to words
    If Int(percentValue * 100) < 10 Then
        result = Split(units, " ")(Int(percentValue * 100))
    Else
        result = Split(tens, " ")(Int(percentValue * 100) \ 10 - 1)
        If Int(percentValue * 100) Mod 10 <> 0 Then
            result = result & " " & Split(units, " ")(Int(percentValue * 100) Mod 10)
        End If
    End If
   
    ' Return the result
    PercentToWords = result & " percent"
End Function

then use:
=PercentToWords("A1") or any cell that contains value you need to convert