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 è:
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
