none
Converter Números armazenados como texto em Contábil RRS feed

  • Pergunta

  • Pessoal, bom dia!

    Eu tenho um formulário de cadastro que armazena valores nas células da planilha. O problema é que o mesmo estar armazenando como texto. 

    Procurei algumas macros pela internet, mas nenhuma me atendeu.

    A mais próxima do ideal foi:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        'Declaramos a Variavel como Tipo Range
        Dim rngCelula As Range

        'Definimos e setamos o endereço(Fixo) a ser convertido
        Set rngCelula = Range("h5:j50")
        
        'Convertemos todos os valores no endereço definido
        With rngCelula
            .NumberFormat = "General"
            .FormulaLocal = rngCelula.Value
        End With

    End Sub

    Mas preciso que o formato das células seja contábil e não estou conseguindo mudar isto.

    Se alguém puder me dar um Help, serei grato!

     

    sábado, 15 de abril de 2017 13:16

Todas as Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Use: 

     .NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)"


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    sábado, 15 de abril de 2017 20:42
    Moderador