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

218 Parte III: Conceitos de Programação
Eis uma variação do procedimento SkipBlanks da seção anterior:
Sub SkipBlanks2()
Dim WorkRange As Range
Dim cell As Range
Set WorkRange = Intersect _
(Selection, ActiveSheet.UsedRange)
For Each cell In WorkRange
If cell.Value > 0 Then
cell.Font.Bold = True
End If
Next cell
End Sub
O objeto variável WorkRange consiste de células que são comuns à
seleção do usuário, e a faixa usada da planilha. Portanto, se toda uma
coluna estiver selecionada, WorkRange contém apenas as células que
estão dentro da área usada da planilha. Rápido e eficiente, sem ciclos
de CPU desperdiçados no processamento de células que estão fora da
área usada na planilha.
Solicitando o valor de uma célula
Conforme mostrado na Figura 14-2, você pode usar a função InputBox
do VBA para obter um valor do usuário. Depois, você pode inserir
aquele valor em uma célula. O seguinte procedimento demonstra como
pedir um valor ao usuário e colocar o valor na célula A1 da planilha
ativa, usando apenas uma declaração:
Sub GetValue()
Range(“A1”).Value = InputBox _
(“Entre o valor da célula A1”)
End Sub
Figura 14-2:
Use a
função
InputBox do
VBA para
obter um
valor do
usuário.