FormatPercent

Descrição:

A função FormatPercent em VBA é uma ferramenta poderosa que facilita a formatação de valores como porcentagens. Ela converte um número em sua representação percentual, multiplicando o valor por 100 e adicionando o símbolo de percentagem (%).
Essa função é especialmente útil em situações em que é necessário apresentar valores percentuais de forma clara e legível para os usuários. Por exemplo, em relatórios financeiros, apresentações de dados estatísticos, ou em qualquer contexto onde a representação percentual seja relevante.
A função FormatPercent oferece a opção de especificar o número de casas decimais desejadas para a porcentagem, proporcionando um controle preciso sobre a formatação.
Em resumo, a função FormatPercent é uma ferramenta essencial para qualquer programador VBA que trabalha com manipulação de valores percentuais e deseja apresentá-los de forma formatada e compreensível.
Exemplos:

Sub Exemplo1()
    Dim valor As Double
    valor = 0.75
    
    Dim valorFormatado As String
    valorFormatado = FormatPercent(valor)
    
    MsgBox "O valor formatado é: " & valorFormatado
End Sub
    

Neste exemplo, a função FormatPercent é utilizada para formatar o valor 0.75 como uma porcentagem.

Sub Exemplo2()
    Dim valor As Double
    valor = 0.5
    
    Dim valorFormatado As String
    valorFormatado = FormatPercent(valor, 2)
    
    MsgBox "O valor formatado é: " & valorFormatado
End Sub
    

Neste exemplo, a função FormatPercent é utilizada para formatar o valor 0.5 como uma porcentagem com 2 casas decimais.

Sub Exemplo3()
    Dim valor As Double
    valor = 0.1234
    
    Dim valorFormatado As String
    valorFormatado = FormatPercent(valor, 3)
    
    MsgBox "O valor formatado é: " & valorFormatado
End Sub
    

Neste exemplo, a função FormatPercent é utilizada para formatar o valor 0.1234 como uma porcentagem com 3 casas decimais.

Sub Exemplo4()
    Dim valor As Double
    valor = 0.98765
    
    Dim valorFormatado As String
    valorFormatado = FormatPercent(valor, 0)
    
    MsgBox "O valor formatado é: " & valorFormatado
End Sub
    

Neste exemplo, a função FormatPercent é utilizada para formatar o valor 0.98765 como uma porcentagem sem casas decimais.

Sub Exemplo5()
    Dim valor As Double
    valor = 2
    
    Dim valorFormatado As String
    valorFormatado = FormatPercent(valor, -1)
    
    MsgBox "O valor formatado é: " & valorFormatado
End Sub
    

Neste exemplo, a função FormatPercent é utilizada para formatar o valor 2 como uma porcentagem sem especificação de casas decimais.