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.
Converta o conteúdo da caixa de texto em uma célula com VBA
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
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:
4. Clique OK. Agora todas as caixas de texto foram convertidas em conteúdo de célula.
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.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!
