Ir para conteúdo
Fórum Script Brasil
  • 0

Transformar Numero Em Texto


JORGECAMPOGRANDE

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

E aeeee cara beleza??? ;)

Bom....esse foi o jeito que eu achei mais facil. para escrever um numero por extenso....acho que não existe uma formula no excel para isso, então fiz esse código no vba do excel:

Vá no menu "Ferramentas/macro/Editor do Visual Basic".

No lado esquedo, escolha a folha em que quer implementar esse código e cole-o.

Fiz somente até o 50, para você ter uma ideia, mas claro que você quer trabalhar com numeros maiores, mas ai é só copiar o codigo e apenas alterar o valores.

lembrando este código foi implementado na "folha1", caso a sua folha esteja com outro nome tem que altera-lo...

Depois me diga se conseguiu....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Worksheets("folha1").Range("A1").Value < 20 Then

menor_que_dez

Else:

maior_que_dez

End If

End Sub

Function menor_que_dez()

If Worksheets("folha1").Range("A1").Value = 1 Then

Worksheets("folha1").Range("b1").Value = "UM"

ElseIf Worksheets("folha1").Range("A1").Value = 2 Then

Worksheets("folha1").Range("b1").Value = "Dois"

ElseIf Worksheets("folha1").Range("A1").Value = 3 Then

Worksheets("folha1").Range("b1").Value = "Três"

ElseIf Worksheets("folha1").Range("A1").Value = 4 Then

Worksheets("folha1").Range("b1").Value = "Quatro"

ElseIf Worksheets("folha1").Range("A1").Value = 5 Then

Worksheets("folha1").Range("b1").Value = "Cinco"

ElseIf Worksheets("folha1").Range("A1").Value = 6 Then

Worksheets("folha1").Range("b1").Value = "Seis"

ElseIf Worksheets("folha1").Range("A1").Value = 7 Then

Worksheets("folha1").Range("b1").Value = "Sete"

ElseIf Worksheets("folha1").Range("A1").Value = 8 Then

Worksheets("folha1").Range("b1").Value = "Oito"

ElseIf Worksheets("folha1").Range("A1").Value = 9 Then

Worksheets("folha1").Range("b1").Value = "Nove"

ElseIf Worksheets("folha1").Range("A1").Value = 10 Then

Worksheets("folha1").Range("b1").Value = "Dez"

ElseIf Worksheets("folha1").Range("A1").Value = 11 Then

Worksheets("folha1").Range("b1").Value = "Onze"

ElseIf Worksheets("folha1").Range("A1").Value = 12 Then

Worksheets("folha1").Range("b1").Value = "Doze"

ElseIf Worksheets("folha1").Range("A1").Value = 13 Then

Worksheets("folha1").Range("b1").Value = "Treze"

ElseIf Worksheets("folha1").Range("A1").Value = 14 Then

Worksheets("folha1").Range("b1").Value = "Quatorze"

ElseIf Worksheets("folha1").Range("A1").Value = 15 Then

Worksheets("folha1").Range("b1").Value = "Quinze"

ElseIf Worksheets("folha1").Range("A1").Value = 16 Then

Worksheets("folha1").Range("b1").Value = "Dezesseis"

ElseIf Worksheets("folha1").Range("A1").Value = 17 Then

Worksheets("folha1").Range("b1").Value = "Dezessete"

ElseIf Worksheets("folha1").Range("A1").Value = 18 Then

Worksheets("folha1").Range("b1").Value = "Dezoito"

ElseIf Worksheets("folha1").Range("A1").Value = 19 Then

Worksheets("folha1").Range("b1").Value = "Dezenove"

End If

End Function

Function trunc(Number As Double, DecPlaces As Integer) As Double

trunc = Fix(Number * (10 ^ DecPlaces)) / (10 ^ DecPlaces)

End Function

Function maior_que_dez()

If trunc(Worksheets("folha1").Range("A1").Value, -1) = 20 Then

Text = "Vinte"

ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 30 Then

Text = "Trinta"

ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 40 Then

Text = "Quarenta"

ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 50 Then

Text = "Cinquenta"

End If

If Worksheets("folha1").Range("A1").Value > trunc(Worksheets("folha1").Range("A1").Value, -1) Then

num

Worksheets("folha1").Range("b1").Value = Text & " e " & num

Else:

Worksheets("folha1").Range("b1").Value = Text

End If

End Function

Function num()

If Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 1 Then

num = "UM"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 2 Then

num = "Dois"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 3 Then

num = "Três"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 4 Then

num = "Quatro"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 5 Then

num = "Cinco"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 6 Then

num = "Seis"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 7 Then

num = "Sete"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 8 Then

num = "Oito"

ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 9 Then

num = "Nove"

End If

End Function

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --flavia --
Bom dia!!

Gostaria de saber se existe um meio na planilha excell, de informar um numero em uma celula e ela apresentar em uma outr celula esta numero em forma de texto

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...