MacroFacili: Comandi in pillole

Un riassunto in un unica pagina di alcun comandi e metodi spesso utili.

Aggiornamento delle finestre

Disattivare e riattivare il calcolo automatico:

Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic

Impostare il cursore sulla "clessidra" e poi di nuovo a normale:

Application.Cursor = xlWait
Application.Cursor = xlNormal

Disattivare e riattivare l'aggiornamento della finestra:

Application.ScreenUpdating = False
Application.ScreenUpdating = True

Disattivare e riattivare l'aggiornamento della barra di stato:

Application.DisplayStatusBar = False
Application.DisplayStatusBar = True

Possono essere utilizzati insieme all'inizio e alla fine di una procedura la cui esecuzione è lunga come nell'esempio qui sotto

Application.Calculation = xlManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.Cursor = xlWait
'procedura
Application.Cursor = xlDefault
Application.DisplayStatusBar = true
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

Per aggiornare comunque la finestra (ad esempio dopo la cancellazione dei valori precedenti e prima della compilazione dei nuovi) si può utilizzare un codice come questo:

Application.ScreenUpdating = True
DoEvents
Application.ScreenUpdating = False

Per gli intervalli

Trovare l'ultima riga compilata di una colonna

UltimaRiga = Cells(Rows.Count, "A").End(xlUp).Row

Per i file

Per trovare la cartella (directory) in cui è salvato il file su cui stiamo lavorando:

Folder = Application.ThisWorkbook.Path

Per trovare la cartella (directory) temporanea del pc:

Folder = Environ("temp")

Disabilitare i "warning"

Application.DisplayAlerts = False
Application.DisplayAlerts = True

Scegiere un file e aprirlo (se non è stato usato il bottone annulla)

fName = Application.GetOpenFilename("File (*.xls*), *.xls*")
If (fName <> falso) Then
Set Wbi = Workbooks.Open(Filename:=fName, UpdateLinks:=0)

Per i fogli

Scansione di tutti i fogli di un file:

Dim Ws As Worksheet
For Each Ws In Worksheets
' azione su Ws
Next

Verifica se il nome è già stato utilizzato per un foglio:

Function FoglioEsiste(nomefoglio As String) As Boolean
  On Error Resume Next
  FoglioEsiste = Worksheets(nomefoglio).Name = nomefoglio
  On Error GoTo 0
End Function

Celle unite

Per creare un range di celle unite: l'esempio unisce le celle dalla B2 alla C5

Range("B2:C5").Merge

Per separare delle celle unite: il comando UnMerge su una delle celle dell'intervallo

Range("B2").UnMerge

Verifica se una cella fa parte di un range di celle unite

If (Range("B3").MergeCells) Then
...
End If

Trovare il range delle celle unite a cui appartiene la cella:

Set Rng = Range("B3").MergeArea

Verifica se la cella è la prima (in alto a sx) di un range di celle unite:

Set Cella = Range("c2")
If (Cella.Address = Cella.MergeArea.Cells(1, 1).Address) Then
...
End If