Note: The other languages of the website are Google-translated. Back to English

Como converter texto em caixa de texto em conteúdo de célula no Excel?

Se houver algumas caixas de texto em uma planilha e você quiser converter o conteúdo das caixas de texto em células separadamente, como mostrado na imagem abaixo, há alguma maneira rápida de resolver esse trabalho, exceto inserir um por um no Excel? Neste artigo, apresento uma macro para fazer um favor a você nesse problema.
doc converter caixa de texto para célula 1

Converta o conteúdo da caixa de texto em uma célula com VBA


seta azul bolha direita Converta o conteúdo da caixa de texto em uma célula com VBA

Exceto o código de macro, não há truque que possa converter rapidamente caixas de texto em conteúdo de célula.

1. Pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código abaixo no Módulo script.

VBA: converter caixas de texto em células

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

doc converter caixa de texto para célula 2

3. Pressione F5 para executar o código, uma caixa de diálogo é exibida para lembrá-lo de selecionar uma célula para exportar o conteúdo da caixa de texto. Veja a imagem:
doc converter caixa de texto para célula 3

4. Clique OK. Agora todas as caixas de texto foram convertidas em conteúdo de célula.
doc converter caixa de texto para célula 4

Dica: Acima do VBA removerá as caixas de texto após a execução, se você quiser manter as caixas de texto, altere o código xTxtBox.Delete para 'xTxtBox.Delete.

Extensão:Se você deseja converter rapidamente entre número e texto, tente usar o Kutools para Excel Converter entre texto e número como mostrado na imagem a seguir. É função completa sem limitação em

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 
dias, faça o download e tenha um teste gratuito agora.
doc converter caixa de texto para célula 5


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório

 

Comentários (14)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
VBA não está funcionando?!
Este comentário foi feito pelo moderador no site
Funciona perfeitamente aqui. O que acontece enquanto você executa o código? Não muda nada? Se puder, descreva mais sobre seus dados e problema. Obrigada.
Este comentário foi feito pelo moderador no site
Também não funciona aqui. Selecione a célula de destino, clique em OK e nada acontece.
Este comentário foi feito pelo moderador no site
Eu tentei no Win10 Excel2016 e no Win8 Excel2010, funciona nos dois. Qual ambiente de trabalho você usa?
Este comentário foi feito pelo moderador no site
Eu tenho muitas caixas em planilhas diferentes, existem 4 planilhas que estão tendo eventos específicos em um dia específico e eu gostaria de levar essas caixas de texto de um dia específico para uma nova planilha combinada para esse dia, como funciona, não tenho ideia de como obter esses dados de 4 folhas diferentes para uma folha.
Este comentário foi feito pelo moderador no site
Ok, eu tenho o Textbox dentro do Textbox que precisa ser extraído.
Este comentário foi feito pelo moderador no site
Muito obrigado! Bom aporte. Me ayudó muito.
Este comentário foi feito pelo moderador no site
Não me funcionó. Hago todo lo señalado y não passa nada después de apretar enter. Intente algunos cambios in the programación y tampoco
Este comentário foi feito pelo moderador no site
Oi, Juan, não há tecla Enter mencionada no método acima, copie e cole o vba, pressione a tecla F5 ou clique no botão Executar para habilitar o código.
Este comentário foi feito pelo moderador no site
oi, tentei no Excel365 e não funciona, recebo o popup e depois preencho mas depois não acontece nada, obrigado pela ajuda, Michel
Este comentário foi feito pelo moderador no site
Oi, Michel, testei o código no Excel 365, funciona corretamente. Você poderia me dar uma foto sobre sua versão do Excel assim (Arquivo > Conta)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, e a imagem sobre o conteúdo das suas caixas de texto?
Este comentário foi feito pelo moderador no site
Olá, ensolarado. Eu quero uma solução em excel. Copiei e colei uma página da web contendo dados. nisso, cada caixa de texto contém alguns números. Não consigo convertê-lo como um número regular em uma célula do Excel que contém uma coluna específica. Estou usando o Excel 2007.
Este comentário foi feito pelo moderador no site
Olá, ensolarado. Eu quero uma solução em excel. Copiei e colei uma página da web contendo dados. nisso, cada caixa de texto contém alguns números. Não consigo convertê-lo como um número regular em uma célula do Excel que contém uma coluna específica. Estou usando o Excel 2007.Seu texto para link
Este comentário foi feito pelo moderador no site
I am using this script (thanks by the way), but i am trying to get it so that it populates a specific cell and not ask for a cell input each time. what would I change so that it auto populates for example cell B2.

Saúde
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL