Exibindo números como palavras excel

Video: Localizar ou substituir palavras ou numeros no excel - MiTutoriais

Se você já precisava para exibir um número escrito como texto, você provavelmente descobriu que Excel não oferece tal função. Quando o Excel não entregar, muitas vezes é possível corrigir a deficiência usando VBA. Aqui está uma função VBA, chamado SPELLDOLLARS, que você pode usar em fórmulas de planilha.

Video: Aula de Excel 2013 - Contagem de palavras (cont.se)

exemplos do Excel

Aqui estão alguns exemplos de SPELLDOLLARS.

Video: Converter números armazenados como texto em números

O código VBA

Para usar esse código, pressione Alt + F11 para ativar o Editor do Visual Basic. Em seguida, escolha Inserir → Módulo para inserir um novo módulo VBA. Copie o código e cole-o para o novo módulo.

SPELLDOLLARS função (celulares) As Variant` Retorna um valor, soletrada para fora em dólares wordsDim As String, Cents Como StringDim TextLen As Long, Pos Como LongDim Temp Como StringDim iHundreds As Long, Itens As Long, IONES como os LongDim As Variant, adolescentes, Variant, Dezenas Como VariantDim Units (2 a 5) Como StringDim Bhit As Boolean, NegFlag As Boolean` é um não-número ou célula vazia? Se não IsNumeric (celular) ou célula = ‘’ ThenSPELLDOLLARS = CVErr (xlErrValue) Exit FunctionEnd Se` é negativo? Se a célula lt; 0 ThenNegFlag = Truecell = Abs (celular) End IfDollars = Format (celular, “### 0.00”) TextLen = Len (Dólares) - 3‘ É muito grande Se TextLen? gt; 15 ThenSPELLDOLLARS = CVErr (xlErrNum) Exit FunctionEnd Se ‘As centavos partCents = Right (Dólares, 2) & “/ 100 dólares” Se celular lt; 1 ThenSPELLDOLLARS = CentsExit FunctionEnd IfDollars = Esquerda (Dólares, TextLen) Ones = Array ( ““, ‘One’, ‘Two’, ‘Three’, ‘Four’, _ ‘Five’, ‘Six’, ‘Seven’, “ oito”,‘Nove’) Adolescentes = array (‘dez’,‘onze’,‘Doze’,‘Treze’,‘Catorze’, _‘Quinze’,‘dezesseis’,‘Dezassete’,‘Dezoito’,“Dezanove “) dezenas = array (““,‘’,‘Vinte’,‘Trinta’,‘Quarenta’,‘Cinquenta’, _‘’,‘Setenta’,‘’,‘Noventa’) Unidades Oitenta Sessenta (2) = Unidades “mil” (3) = “milhão” Unidades (4) = “bilhões de” unidades (5) = “Trillion” Temp = ““Para Pos = 15 Para Passo 3 -3If TextLen gt; = Pos - 2 ThenbHit = FalseIf TextLen gt; = Pos TheniHundreds = Asc (Mid $ (Dólar, TextLen - pos + 1, 1)) - 48If iHundreds gt; 0 ThenTemp = Temp & ““ & Ones (iHundreds) & “Cem” Bhit = TrueEnd IfEnd IfiTens = 0iOnes = 0If TextLen gt; = Pos - 1 TheniTens = Asc (Mid $ (Dólar, TextLen - pos + 2, 1)) - 48End IFIF TextLen gt; = Pos - 2 TheniOnes = Asc (Mid $ (Dólar, TextLen - Pos + 3, 1)) - 48End IFIF ITENS = 1 ThenTemp = Temp & ““ & Adolescentes (IONES) Bhit = TrueElseIf Itens gt; = 2 = ThenTemp Temp & ““ & Dezenas (Itens) Bhit = TrueEnd IFIF IONES gt; 0 ThenIf Itens gt; = 2 = ThenTemp Temp & “-” ElseTemp = Temp & ““End IfTemp = Temp & Ones (IONES) Bhit = TrueEnd IfEnd IFIF Bhit E Pos gt; 3 ThenTemp = Temp & ““ & Unidades (Pos 3) Fim IfEnd IfNext PosSPELLDOLLARS = guarnição (Temp) & “E“ & CentsIf NegFlag Então SPELLDOLLARS = “(” & SPELLDOLLARS & “)” End Function