Peter ha sviluppato una macro che elimina tutti i fogli di lavoro in una cartella di lavoro tranne uno denominato “Indice”. Questa macro funziona bene. Tuttavia, dopo aver eseguito la macro, se aggiunge un nuovo foglio di lavoro, si aspetta che venga denominato “Foglio1” come impostazione predefinita, ma in realtà viene denominato un numero successivo, ad esempio “Foglio3” o “Foglio4”. Peter si chiede cosa sia necessario per ripristinare la numerazione dei fogli al valore predefinito previsto.

Il modo più semplice per ripristinare la numerazione dei fogli è semplicemente chiudere la cartella di lavoro e aprirla di nuovo. Ciò, tuttavia, implica un passaggio manuale da parte tua. Se stai aggiungendo i nuovi fogli di lavoro tramite macro, probabilmente non vorrai chiudere e riaprire manualmente la cartella di lavoro.

È possibile, se lo si desidera, creare una semplice macro per eseguire il processo di chiusura e riapertura. Ciò funzionerà finché la macro è archiviata nella cartella di lavoro macro personale e non nella cartella di lavoro che si sta chiudendo.

Sub Reopen()

Dim wb As Excel.Workbook     Dim sPath As String

Set wb = ThisWorkbook     sPath = wb.FullName

Application.OnTime Now + TimeValue("00:00:01"), _       Application.Workbooks.Open(sPth)

wb.Close (True)

End Sub

La macro determina il nome della cartella di lavoro corrente e quindi imposta un evento OnTime per aprire la cartella di lavoro 1 secondo in futuro. Durante quel 1 secondo, tuttavia, la cartella di lavoro viene chiusa e salvata, il che consente di riaprirla correttamente.

Potresti, se lo desideri, anche scegliere di aggiungere i tuoi nuovi fogli di lavoro tramite macro.

La seguente breve macro aggiunge un foglio di lavoro e quindi lo rinomina immediatamente con il nome desiderato.

Sub AddWs()

Worksheets.Add after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = "Sheet" & Sheets.Count - 1 End Sub

Ti consigliamo di giocare con queste soluzioni e trovare quella che funziona meglio per le tue esigenze, in particolare se desideri integrare la soluzione con una macro già esistente.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (6103) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.