Menu

Excel Macro: Inserire contatore di apertura di un file excel

3 agosto 2016 - Excel macro

Potrebbe essere necessario a volte avere un contatore di quante volte sia stato aperto un determinato file. Il VBA ci viene in contro con l’evento workbook_open a cui assegneremo una macro che legge il valore di una determinata cella che noi decideremo di usare come contatore ne incrementa il valore e poi salva il foglio.

Iniziamo con aggiungere un nuovo foglio

2016.08.03-15:49:20Spazio di lavoro 1

Verrà creato un foglio di nome Foglio4 che noi rinomineremo in Log

2016.08.03-15:50:17Spazio di lavoro 1 2016.08.03-15:50:21Spazio di lavoro 1

Nella cella A1 mettiamo “Aperto” B1 lasciamo vuota perchè farà da contatore ed in C1 scriviamo “volte”

Volendo possiamo nascondere il foglio Log da occhi indiscreti

2016.08.03-15:51:29Spazio di lavoro 1 2016.08.03-15:56:00Spazio di lavoro 1

Ora andiamo all’editor VBA premendo ALT+F11 doppio click nel riquadro di sinistra sulla scritta “Questa_cartella_di_lavoro” e nel menù a tendina al posto di “Generale” selezioniamo “Workbook” e al posto di “Dichiarazioni” scegliamo “Open”

2016.08.03-16:34:08Spazio di lavoro 1

Verrà creata la Private Sub Workbook_Open()  ed incolleremo il seguente codice VBA. Usiamo la variabile Aperto come contatore che incrementiamo e salviamo. In fine aggiungiamo ActiveWorkbook.Save per fare in modo che il file si salvi automaticamente appena aperto in modo da non perdere il conteggio delle volte che il file viene chiuso senza salvare

2016.08.03-15:56:33Spazio di lavoro 1

 

2016.08.04-00:32:57Spazio di lavoro 1

Aperto = Worksheets("Log").Range("B1").Value
Worksheets("Log").Range("B1").Value = Aperto + 1
ActiveWorkbook.Save

Lascia un commento