Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 14: Exemplos de Programação em VBA
217
‘ Processe as constantes
Set ConstantCells = Selection _
.SpecialCells(xlConstants)
For Each cell In ConstantCells
If cell.Value > 0 Then
cell.Font.Bold = True
End If
Next cell
‘ Processe as fórmulas
Set FormulaCells = Selection
.SpecialCells(xlFormulas)
For Each cell In FormulaCells
If cell.Value > 0 Then
cell.Font.Bold = True
End If
Next Cell
End Sub
O procedimento SkipBlanks funciona na mesma velocidade, independente
do que você seleciona. Por exemplo, você pode selecionar
a faixa, todas as colunas na faixa, todas as linhas na faixa ou mesmo
toda a planilha. É um grande aperfeiçoamento sobre o procedimento
ProcessCells, apresentado anteriormente nesta seção.
Veja que eu uso a seguinte declaração neste código:
On Error Resume Next
Esta declaração diz ao Excel para ignorar quaisquer erros que ocorram
e simplesmente processar a seguinte declaração (veja no Capítulo 12
uma discussão sobre como lidar com erros). Esta declaração é necessária,
porque o método SpecialCells produz um erro se nenhuma das
células se qualificar.
Usar o método SpecialCells é equivalente a escolher o comando Página
inicial➪Edição➪Localizar e Selecionar➪Ir para Especial e selecionar a
opção Constantes ou a opção Fórmulas. Para ter uma noção de como
isso funciona, grave as suas ações enquanto executa tal comando e
seleciona as várias opções.
Como fazer loop eficientemente
através de uma faixa (Parte II)
E agora, a continuação. Esta seção demonstra uma outra forma de
processar células de uma maneira eficiente. Ela tem a vantagem da
propriedade UsedRange (Faixa Usada) — a qual retorna um objeto
Range que consiste apenas da área usada da planilha. Ela também usa o
método Intersect, que retorna um objeto Range que consiste de células
que duas faixas têm em comum.