Remoção em branco caixas de texto no Microsoft Excel usando o Visual Basic for Applications (VBA) não é tão complicado como você pode pensar. No VBA , você pode usar o nome da planilha eo nome da caixa de texto para acessar o seu valor. Use o objeto " OLEObject " para remover um objeto, como uma caixa de texto a partir de uma planilha. Este objeto representa um controle ActiveX em uma planilha, que contém a propriedade "Excluir ", que pode ser usado para remover um controle. Coisas que você precisa
Microsoft Excel
Show Mais instruções
1
Abra o Microsoft Excel , clique na guia "Desenvolvedor" e clique no ícone "Inserir" localizado nos Controles painel . Clique em " Caixa de texto " abaixo controles ActiveX e clique em qualquer célula onde você deseja inserir a caixa de texto. Adicione um novo botão usando a mesma técnica .
2
Clique "Macros" e digite " removeBlankTxtBox " abaixo o nome da macro e clique em " Criar" para criar uma nova macro.
3
Digite o seguinte para capturar os erros se houver:
On Error GoTo Err_removeBlankTxtBox :
4
Adicione o seguinte código para verificar se a caixa de texto está em branco e remover ele se é verdade : .
Se ActiveSheet.TextBox1.Value = "" Then
Sheet1.OLEObjects ( " Textbox1 " ) Apagar
End If
< br > 5
Adicione o seguinte código para manipular erros :
Exit_removeBlankTxtBox :
Exit Sub
Err_removeBlankTxtBox :
Retomar Exit_removeBlankTxtBox :
6
Volte para o Microsoft Office Excel e clique com o botão. Clique em " Atribuir macro ... " e clique em " removeBlankTxtBox ". Clique em " OK". Clique em " Button 1 " para executar sua macro e remover a caixa de texto se for em branco.
