none
FORMAT EXCEL x VBA RRS feed

  • Pergunta

  •  

    Prezados,

     

    Olha eu aí de novo.

    Estou com um problema e não estou conseguindo sanar.

     

    Tenho uma textbox onde será digitado um valor (numérico) que alimentará uma celula do Excel.

    Acontece que não estou conseguindo formatar de modo que o excel recebe esse valor em forma de número.

    Quando a informação chega ao excel, chega com um erro:

    "O número nesta célula é formatado como texto ou precedido por um apóstrofo".

    Alguem pode me ajudar ? Como resolver essa questão ?

     

    Grato,

    Fabiano Lima

    quarta-feira, 26 de setembro de 2007 16:26

Respostas

  •  FabianoLima wrote:

     

    Na verdade eu to usando o segunte codigo:

     

    With workshees(Sheet1)

    .cells(x, 1).value =  textbox1.value

    end with

     

    Eu tinha pensado em algo como

    ... .cells(x, 1).value = Fomat(textbox1.value, "###.###,00")

     

    Mas não ta fucnionando.

     

    Como posso encaixar sua insrução no exemplo acima ?

     

    Fabiano Lima.

     

    Fabiano,

     

    Utilize anteriormente uma função de conversão de texto (do textbox) para inteiros (long integer)!

    Fiz os testes e funcionou perfeitamente:

     

    Cells(1, 1).Select
        Selection.Value = CLng(Me.txt1.Value)
        Selection.NumberFormat = "###.##0,00"

     

    Abraços,

    segunda-feira, 8 de outubro de 2007 01:28

Todas as Respostas

  • Você declarou a variavel como o que?
    Será que não é isso?
    quarta-feira, 26 de setembro de 2007 19:31
  • Declarei a variavel como integer.

    Fabiano Lima

    quarta-feira, 26 de setembro de 2007 19:36
  • Ja tento declara como string?!?

    quarta-feira, 26 de setembro de 2007 20:56
  • Ja, ja tentei como string e ainda sim o problema persiste.

    Ja tentei usat as funções de "format" do vba, mas nenhum está funcionando no meu caso.

    quinta-feira, 27 de setembro de 2007 13:40
  • .Selection.NumberFormat = "0.0"

    vc usou assim?
    quinta-feira, 27 de setembro de 2007 13:53
  •  

    Na verdade eu to usando o segunte codigo:

     

    With workshees(Sheet1)

    .cells(x, 1).value =  textbox1.value

    end with

     

    Eu tinha pensado em algo como

    ... .cells(x, 1).value = Fomat(textbox1.value, "###.###,00")

     

    Mas não ta fucnionando.

     

    Como posso encaixar sua insrução no exemplo acima ?

     

    Fabiano Lima.

    quinta-feira, 27 de setembro de 2007 15:19
  • ..cells(x, 1).Selection.NumberFormat = "0"


    Custa nada tentar né?




    quinta-feira, 27 de setembro de 2007 16:17
  • Tentar, tentei ,,, mas não funcionou.

    Valeu a tentativa rsrsrs

    Continuo na busca ...

    Fabiano Lima

     

    quinta-feira, 27 de setembro de 2007 18:29
  •  FabianoLima wrote:

     

    Na verdade eu to usando o segunte codigo:

     

    With workshees(Sheet1)

    .cells(x, 1).value =  textbox1.value

    end with

     

    Eu tinha pensado em algo como

    ... .cells(x, 1).value = Fomat(textbox1.value, "###.###,00")

     

    Mas não ta fucnionando.

     

    Como posso encaixar sua insrução no exemplo acima ?

     

    Fabiano Lima.

     

    Fabiano,

     

    Utilize anteriormente uma função de conversão de texto (do textbox) para inteiros (long integer)!

    Fiz os testes e funcionou perfeitamente:

     

    Cells(1, 1).Select
        Selection.Value = CLng(Me.txt1.Value)
        Selection.NumberFormat = "###.##0,00"

     

    Abraços,

    segunda-feira, 8 de outubro de 2007 01:28
  • Olá!!

     

    Estou com um problema na apresentação de moeda. Por exemplo, o excel está aredondando os valores apresentados. Já tentei usar CCur, Cint...aparece as casas decimais porém o valor é arredondado. Como resolver este problema?

    Segue código que estou utilizando no VBA do Excel:

     

    Private Sub CommandButton1_Click()
    Dim i, num As Integer
    Dim Total As Long

     

    Total = CCur(Worksheets("pedidos").Range("A2", "O5000").Cells(i, 4).Value) + CCur(Worksheets("pedidos").Range("A2", "O5000").Cells(i, 5).Value) + CCur(Worksheets("pedidos").Range("A2", "O5000").Cells(i, 6).Value)
                With Me.List_Pedidos
                    .AddItem Worksheets("pedidos").Range("A2", "O5000").Cells(i, 3).Value
                    .List(j, 1) = Worksheets("pedidos").Range("A2", "O5000").Cells(i, 1).Value
                    .List(j, 2) = VBA.Format(Total, "R$ ###,##0.00")
                   
                End With

     

    Alguém pode me ajudar???

     

    Obrigada.

    quinta-feira, 13 de novembro de 2008 15:10