Gestire la selezione in VBA

Dopo aver selezionato una cella o un intervallo di celle, è possibile fare riferimento all’oggetto Selection per manipolare queste celle. Il codice seguente seleziona le celle A1:C1 e imposta il carattere di queste celle su Arial, il peso del carattere su grassetto, lo stile del carattere su corsivo e il colore di riempimento su verde.

 
Sub FormatSelection()
Range("A1:C1").Select

Selection.Font.Name = "Arial"
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Interior.Color = vbGreen

End Sub 

Il risultato è:

Gestire la selezione in VBA 1

 

Utilizzare il costrutto With … End With

Possiamo ripetere l’esempio sopra usando “With” per fare riferimento all’oggetto Selection una sola volta. Ciò consente di risparmiare tempo e in genere semplifica la lettura del codice.

 
Sub UsingWithEndWithSelection()
Range("A1:C1").Select

With Selection
.Font.Name = "Arial"
.Font.Bold = True
.Font.Italic = True
.Interior.Color = vbGreen
End With

End Sub