none
Formatar caixa de texto como 'número' RRS feed

  • Pergunta

  • Oi pessoal.

    Criei uma caixa de texto (não aquela comum, mas sim aquela de formulário, na aba DESENVOLVEDOR).

    Linquei a caixa com uma célula, de modo que quando a caixa for preenchida, a célula é preenchida igualmente.

    Até aí tudo bem, acontece que a célula é preenchida no formato 'texto', porém eu preciso que seja preenchida em formato 'número'.

    Se eu digito o número '2' na caixa, aparece o número '2' normalmente na célula. Mesmo não tendo nenhuma diferença visual, eu preciso que seja formatado como número, porque tem outras células que dependem dessa célula como 'número'.

    Vlw!!

    sábado, 1 de março de 2014 15:24

Respostas

Todas as Respostas

  • Imagino que você deve ter feito algo como

    Sheets("Plan1").Cells(1,1) = textbox1

    porém como é usa Textbox realmente a saída será em texto então basta converter para double fazendo assim:

    Sheets("Plan1").Cells(1,1) = CDBL(textbox1)

    Se resolveu marque como resposta!

    sábado, 1 de março de 2014 19:58
  • Acontece que sou iniciante nisso e não fiz dessa forma como você disse. Na verdade, eu inseri a textbox já pronta na planilha e usando o atributo 'linkedcell' vinculei a box com a célula. 

    De que forma eu deveria inserir esse seu código?

    Vlw

    sábado, 1 de março de 2014 20:23
  • Deste modo aí não vai mesmo, eu coloquei para inserir os dados na célula A1, se for em outra célula e planilha me avise para trocar.

    Segue:

    http://www.sendspace.com/file/j3vixm

    sábado, 1 de março de 2014 21:11
  • Já consegui adaptar ela aqui para o meu caso.

    Deu certinho, muito obrigado fera.

    Abrç e td de bom

    sábado, 1 de março de 2014 22:24