MacroFacili: Oggetto Range

Rappresenta una cella, una colonna, una riga, una selezione di celle anche non contigue.

Azione	Come fare
Dichiarazione	Dim Ra As Range
Assegnazione	Set Ra = Ws.Range("A1")

su oggetto Range	Propietà o metodo	Possibili valori	Oggetto/Valore restituito
Rendere ativa la cella	Activate
Indirizzo in testo del range	Address		String
Singole aree contenute nel range	Areas		Range
Celle contenute nel range	Cells		Range
Cancellare il commenti	ClearComments
Cancellare il contenuto	ClearContents
Cancellare il formato	ClearFormats
Insieme dei caratteri del testo	Characters(Start,Length)		Characters
Indice delle prima colonna	Column		Integer
Numero di celle del range	Count		Integer
Accedere alla formula	Formula	valore String
Verifica se la cella contiene una formula	HasFormula		boolean
Accedere al formato numerico	NumberFormat	valore String
Indice delle prima riga	Row		Integer
Seleziona il range	Select	Range
Selezione di range particolari	SpecialCells	costianti Type e Value	Range
Accedere alla valore	Value	valore Variant
Range ridotto	Resize (NrRighe, NrColonne)		Range

su oggetto Worksheet	Propietà o metodo	Possibili valori	Oggetto/Valore restituito
Cella da indice di riga e colonna	Ws.Cells(Riga,Colonna)	valore integer, integer	Range
Colonne dell'intervallo	Ws.Columns(indice) Ws.Columns(intervallo)	Valore Integer Valore String	Range
Range da intervallo tipo B2:C3	Ws.Range(intervallo)	Valore string	Range
Righe dell'intervallo	Ws.Rows(indice) Ws.Rows(intervallo)	Valore Integer Valore String	Range

su oggetto Application	Propietà o metodo	Possibili valori	Oggetto/Valore restituito
La cella attiva	Application.ActiveCell		Range
Unione di intervalli	Application.Union (Ra1,Ra2,...)	Range	Range

Alcuni esempi di utilizzo delle funzioni riferite a l'oggetto Range.

Cells e areas

Il codice qui sotto mostra le possibili selezioni delle celle contenute in un range di celle non contigue.

Dim Ra As Range, Ce As Range, Ar As Range
' selezione di un range con intervalli non contigui
Set Ra = Range("B2:C3,G3:H3,e4:f5")
' seleziona tutte le celle del range
Ra.Select
' selezione delle singole arre del range multiplo
For Each Ar In Ra.Areas
Ar.Select
Next Ar
' selezione delle singole celle del range
For Each Ce In Ra.Cells
Ce.Select
Next Ce

Union

l'esempio qui sotto mostra come si può utilizzare il metodo union per unire due range:

Dim Ra1 As Range, Ra2 As Range, Ra12 As Range
Set Ra1= Range("A1:B2")
Set Ra2= Range("C5:D7")
Set Ra12= Union(Ra1, Ra2)
Ra12.Select

Address

I diversi risultati possibili per la propietà address

Set Ce = ActiveSheet.Cells(1, 1)
Ce.Address() ' $A$1
Ce.Address(RowAbsolute:=False) ' $A1
Ce.Address(ReferenceStyle:=xlR1C1) ' R1C1

Characters

Restituisce un oggetto Characters che consente la formattazione dei singoli caratteri del testo; nell'esempio qui sotto viene formattata in grassetto solo la parola Testo.

Set Ce = ActiveSheet.Cells(1, 1)
Ce.Value = "Prova Testo"
Ce.Characters(7, 5).Font.Bold = True