Transformar Numero Em Texto

[JORGECAMPOGRANDE]

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

[didex]

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

[RenatoMejias]

didex, tem um jeito mais simples.

http://superdownloads.uol.com.br/download/36/vextenso/

É só instalar essa função no seu Excel. Ai basta usar como função.

[Guest --flavia --]

  JORGECAMPOGRANDE disse:

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

[webdeveloper]

Faz assim:

Range(CelulaComNumeroTexto).Value = Cstr(Range(CelulaComNumero).Value)