Como examinar células com uma macro
Você gostaria de avaliar as células e determinar quantas células são preenchidas em um intervalo e quantas não são? A figura a seguir mostra um exemplo:
O marcador A1: B7 contém algumas células vazias e algumas células preenchidas. Se quiser avaliar isso em uma macro, você pode usar o seguinte código de programa:
Sub CountsFilledCells ()
Dim Number Enquanto Long
Dim Number2 enquanto longo
Dim area As Range
Dim a As String
Definir área = Seleção
Número = Application.CountA (área)
Contagem2 = área.Células.Contagem - número
a = MsgBox ("Na seleção atual estão" _
& Número & "células preenchidas e" & número2 _
& "Células vazias.", VbOKOnly, "avaliar células")
End Sub
A macro define a função CountA para contar o número de células não vazias em um intervalo. O resultado salva a variável número. Para determinar o número de células preenchidas, este valor é subtraído do número total de células examinadas. A macro salva este valor em Número 2.
Após o início, o código do programa determina o número de células preenchidas e vazias na marcação ativa e exibe o resultado em uma janela:
Se você deseja processar um intervalo de sua escolha em vez da seleção atual, adapte a atribuição de valor à variável área no. É usado na macro com a propriedade Seleção conectado. Se você quiser definir um intervalo sozinho, substitua o definir- Atribuição à variável área por uma expressão da seguinte forma:
Definir intervalo = intervalo ("A1: B5")
A especificação do intervalo sempre se refere à planilha ativa. Se você quiser endereçar outra planilha, coloque na frente do FaixaComande as referências aos métodos Cadernos de exercícios e Lençóis fixo.
