Do Básico ao Avançado
Home  Tutoriais  Artigos  Contato

Localizar e mostrar as células vazias de uma tabela.

Neste tutorial criaremos uma macro para localizar e mostrar em uma caixa de mensagem a localização da célula ou células vazias de uma tabela.

Observe na imagem da tabela abaixo que algumas células estão vazias. Criaremos o código para localizar quais células estão vazias com base na ideia de que uma célula vazia consiste em uma marca de parágrafo seguida por Chr (7).

tabela com células vazias

Abra o Editor do Visual Basic acionando a Guia Desenvolvedor e no Grupo Código clique em Visual Basic ou use o atalho ALT+F11.

acessar o Editor do Visual Basic

No editor do Visual Basic clique no menu Inserir e depois em Módulo.

inserir novo módulo

Adicione o código abaixo:

Sub localizacelvazias()
Dim sCel As Cell
Dim sCol As Row
For Each sCol In Selection.Tables(1).Rows
For Each sCel In sCol.Cells
If sCel.Range.Text = Chr(13) & Chr(7) Then
MsgBox "A Célula" &" " & sCel.RowIndex & " " & "daColuna" & " " & sCel.ColumnIndex & " está vazia."
End If
Next sCel
Next sCol
End Sub

Deverá ficar como na imagem abaixo:

Código VBA para localizar células vazias

Feche o Editor do Visual Basic para voltar ao Word clicando no menu Arquivo e depois em Fechar e voltar para Microsoft Word.

Fechar e voltar ao Word

Agora vamos testar a nossa macro pra vê-la em funcionamento.

Na Guia Desenvolvedor, no Grupo Código, clique em Macros.

macro localizar células vazias

Selecione a macro localizacelvazias e clique no botão Executar.

Macro em Execução

Como podemos ver na imagem acima a macro exibe o número da célula e em qual coluna se encontra a primeira célula vazia da tabela e ao clicar em OK será exibido a localização da próxima célula vazia e assim sucessivamente.




Formação Pacote Office



eBook Word 2010 VBA

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados