Worksheets / ActiveSheet

• .Activate
Worksheets("XXXX").Activate attiva il foglio XXXX
Workbooks("XXX.xls").Worksheets("XXXX").Activate attiva il foglio XXXX del file XXX.xls



• .Name
ActiveSheet.Name rilascia il nome del foglio attivo
Worksheets(x).Name rilascia il nome del foglio in posizione x, utile per cercare l'esistenza del foglio tramite un ciclo for
ActiveSheet.Name ="TESTO" rinomina il foglio attivo in TESTO



• .Paste Incolla ciò che é in memoria (comandi celle)



• .Move before
• .Move before:=Worksheets(X) sposta la scheda attiva prima la scheda n. X
• .Move before:=Worksheets("nome scheda") sposta la scheda attiva prima la scheda nome scheda



• .Move after
• .Move after:=Worksheets(X) sposta la scheda attiva dopo della scheda n. X
• .Move after:=Worksheets("nome scheda") sposta la scheda attiva dopo della scheda nome scheda

esempio: sposto il foglio in ultima posizione trovando il numero di fogli presenti
ActiveSheet.Move After:=Worksheets(Worksheets.Count)

esempio: ciclo che sposta davanti il foglio attivo e cancella il resto
ActiveSheet.Move before:=Worksheets(1)
Dim schede
Application.DisplayAlerts = False toglie i messaggi di errore
For schede = 1 To Sheets.Count - 1

Worksheets(2).Select
ActiveWindow.SelectedSheets.Delete

Next schede

esempio: memorizzo la scheda attuale, creo una scheda e la metto dopo la scheda attuale
Dim nome_scheda As String
nome_scheda = ActiveSheet.Name
Sheets.Add
ActiveSheet.Move After:=Worksheets(nome_scheda)




• .AutoFilterMode = True/False serve per vedere se é applicato un filtro automatico nel foglio attivo

esempio: vedo se é applicato il filtro e se non lo é lo applico, altrimenti tolgo e metto i filtri per fare un refresch
If ActiveSheet.AutoFilterMode = False Then


Cells.Select
Selection.AutoFilter



Else


Cells.Select
Selection.AutoFilter
Selection.AutoFilter



End If




• .EnableCalculation = True/False
  serve per attivare o meno il calcolo automatico delle formule sono nella scheda corrente o indicata

diverso da Application.Calculation

esempio: togliendo e ripristinando il calcolo automatico si fa un aggiona alla scheda
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True




• .Hyperlinks
collegamenti nel foglio


• .Hyperlinks.Delete
toglie i collegamento nel foglio attivo o indicato



• .Hyperlinks.Add
aggiunge un collegamento nel foglio attivo o indicato
come Address su usa lo stesso criterio dei link in HTML nel comando href
ActiveSheet.Hyperlinks.Add Anchor:=Range("indirizzo cella"), Address:="indrizzo collegamento", ScreenTip:="Descrizione", TextToDisplay:="Testo da inserire e sovrascrivere"
esempio: cella A1 link al mio sito
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="http://www.acosani.it", ScreenTip:="Sito di Andrea", TextToDisplay:="Ecco il mio sito"





• .Visible = True/False
nasconde o scopre la scheda
Worksheets("....").Visible = True/False
Worksheets("....").Visible = xlSheetVeryHidden nasconde il foglio in modo che non sia scoprible dall'utente Excel, ma solo da il comando VBA (.Visible=True)

esempio: verifica se una scheda é nascosta ed in caso la scopre
If Worksheets("scheda test").Visible = False Then

Worksheets("scheda test").Visible = True

End If




• .Next scheda dopo
utile per spostarsi nella scheda dopo
ActiveSheet.Next.Select

ActiveWindow

• .SplitRow = X divide lo schermo dalle prima X righe
esempio: ActiveWindow.SplitRow = 1



• .SplitColumn = X divide lo schermo dalle prima X colonne
esempio: ActiveWindow.SplitColumn = 2



• .FreezePanes = True (blocca le celle) False (sblocca le celle)

esempio: blocca la seconda riga
ActiveWindow.SplitRow = 2
ActiveWindow.FreezePanes = True

esempio: macro che fa scendere la riga bloccata di una posizione
ActiveWindow.SplitRow = ActiveWindow.SplitRow + 1
ActiveWindow.FreezePanes = True

esempio: macro che fa salire la riga bloccata di una posizione
If ActiveWindow.SplitRow = 0 Then Exit Sub se non ci sono righe bloccate esce dalla macro

If ActiveWindow.SplitRow = 1 Then se siamo alla riga 1 va tolto lo split prima

ActiveWindow.FreezePanes = False
ActiveWindow.SplitRow = ActiveWindow.SplitRow - 1
Exit Sub

End If

ActiveWindow.SplitRow = ActiveWindow.SplitRow - 1
ActiveWindow.FreezePanes = True



• .NewWindow creo una nuova finestra del file in uso, diviso il file in 2 finestre



• .Caption titolo della finestra attiva

esempio: controllo che il foglio non sia già diviso (nel titolo non ci siano le :) e poi eventualmente creo una nuova finestra
If InStr(ActiveWindow.Caption, ":") = 0 Then

ActiveWindow.NewWindow

End If



• .WindowState modifica le dimensioni finestra
• ActiveWindow.WindowState = xlNormal dimensioni normali
• ActiveWindow.WindowState = xlMaximized ingrandita
• ActiveWindow.WindowState = xlMinimized ad icona



• .SelectedSheets ritorna lista delle schede selezionate
utile per cicli ForEach delle schede selezionate


• .Count
ritorna un int con la quantità delle schede selezionate

esempio: arrey dei nomi delel schede selezionate
Dim scheda As Object
Dim schedesel()
quanteschede = Application.ActiveWindow.SelectedSheets.Count quantità di schede selezionate
x = 0 variabile posizione array
ReDim schedesel(quanteschede) ridimensiono arry in base al numero di schede
For Each scheda In ActiveWindow.SelectedSheets ciclo assegna valore agli elementi dell'array

schedesel(x) = scheda.Name
x = x + 1

Next scheda