Sheets è linsieme di tutti i fogli della cartella di lavoro specificata o attiva,
può contenere l'oggetto Chart (grafico) o Worksheet (foglio di lavoro).
|
|
L'insieme Sheets risulta utile quando si desidera restituire fogli di un qualsiasi tipo.
|
|
Questo esempio stampa tutti i fogli della cartella di lavoro attiva.
Sheets.PrintOut
|
|
Questo esempio aggiunge due fogli grafico alla cartella di lavoro attiva, inserendoli dopo il foglio 2 della cartella di lavoro.
Sheets.Add type:=xlChart, count:=2, after:=Sheets(2)
|
|
Per restituire un singolo oggetto Chart o Worksheet la modalità di utilizzo è Sheets(index),
dove index è il nome o il numero di indice del foglio.
|
|
Questo esempio attiva Foglio1.
Sheets("Foglio1").Activate
|
|
Per specificare più di un foglio, utilizzare Sheets(array). Questo esempio sposta i fogli
Sheet4 e Sheet5 all'inizio della cartella di lavoro.
Sheets(Array("Sheet4", "Sheet5")).Move before:=Sheets(1)
|
|
L'insieme Worksheets
|
|
Linsieme Worksheets è un insieme di tutti gli oggetti Worksheet nella cartella di lavoro specificata o attiva.
Ciascun oggetto Worksheet rappresenta un foglio di lavoro.
|
|
Questo esempio sposta tutti i fogli di lavoro alla fine della cartella di lavoro.
Worksheets.Move After:=Sheets(Sheets.Count)
|
|
Questo esempio aggiunge due nuovi fogli di lavoro prima del
foglio di lavoro 1 della cartella di lavoro attiva.
Worksheets.Add Count:=2, Before:=Sheets(1)
|
|
Per restituire un singolo oggetto Worksheet, utilizzare Worksheets(index), dove index è
il nome o il numero di indice del foglio di lavoro.
|
|
Il numero di indice determina la posizione del foglio di lavoro sulla barra
delle schede della cartella di lavoro. Worksheets(1) è il primo foglio di
lavoro da sinistra della cartella di lavoro, mentre Worksheets(Worksheets.Count)
è l'ultimo. Nel calcolo del numero di indice sono compresi tutti i fogli di lavoro,
anche quelli nascosti.
|
|
Il nome del foglio di lavoro è visualizzato sulla scheda del foglio di lavoro.
Questo esempio nasconde il foglio di lavoro 1 della cartella di lavoro attiva.
Worksheets(1).Visible = False
|
|
|
Questo esempio protegge con una password gli scenari di Foglio1.
Worksheets("Foglio1").Protect password:="secret", scenarios:=True
|
|
Quando il foglio attivo è un foglio di lavoro, per farvi riferimento è possibile
utilizzare la proprietà "ActiveSheet". Questo esempio attiva Foglio1 utilizzando il
metodo Activate e imposta su orizzontale l'orientamento della pagina. Quindi stampa
il foglio di lavoro.
Worksheets("Foglio1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
|
|
Ogni oggetto Worksheet possiede in VBA , moduli di codice (Modulo) che contiene le routine di evento associate,e Moduli di Classe, che contengono il Codice delle Classi del progetto. Se inseriamo un nuovo foglio di lavoro, automaticamente verrà
creato il modulo di codice associato, mentre verrà rimosso se eliminiamo il foglio
di lavoro associato.
La casella degli oggetti contiene l'oggetto "Worksheet" mentre la casella eventi contiene tutti
gli eventi associati alloggetto "Worksheet".
|
|
|
|
L'insieme Range
|
|
Rappresenta una cella, una riga, una colonna,
una selezione di celle contenente uno o più blocchi contigui di celle.
|
|
Per restituire un oggetto Range che rappresenta una singola cella o un intervallo
di celle, la modalità di utilizzo è Range(arg), dove arg determina l'intervallo.
|
|
Questo esempio inserisce il valore della cella A1 nella cella A5.
Worksheets("Foglio1").Range("A5").Value = _
Worksheets("Foglio1").Range("A1").Value
|
|
Quando viene utilizzata senza qualificatore di oggetto (vale a dire un oggetto alla sinistra del punto),
la proprietà Range restituisce un intervallo del foglio attivo, purché il foglio attivo
sia un foglio di lavoro. In caso contrario il metodo non produrrà alcun risultato.
Utilizzare il metodo Activate per attivare un foglio di lavoro prima di utilizzare la proprietà
Range senza un esplicito qualificatore di oggetto. Questo esempio riempie l'intervallo A1:H8
di numeri casuali impostando la formula in ogni cella dell'intervallo.
Worksheets("Foglio1").Activate
Range("A1:H8").Formula = "=Rand()"
|
|
marius44(M.A.)-albatros54(G.A.) © 2016
|