Rinominare il nome del modulo foglio di lavoro utilizzando VBA in Microsoft Excel
In questo articolo, creeremo una macro per rinominare il nome del modulo del foglio di lavoro.
Ogni foglio di lavoro ha un modulo associato ad esso, noto come modulo del foglio di lavoro. Il modulo Foglio di lavoro contiene codice VBA per eventi relativi al foglio di lavoro e codice per eventi collegati a qualsiasi controllo Active X inserito nel foglio di lavoro. Ogni modulo del foglio di lavoro ha un nome univoco.
In questo esempio, abbiamo una cartella di lavoro con molti fogli di lavoro e i nomi dei moduli del foglio di lavoro sono come Foglio10, Foglio11, ecc.
Vogliamo rinominare il nome del modulo del foglio di lavoro in una sequenza come Foglio1, Foglio2, ecc.
Spiegazione logica
Abbiamo scritto la procedura “ChangeAllWorksheetCodenames” per rinominare il modulo del foglio di lavoro.
Poiché vogliamo rinominare il nome del modulo del foglio di lavoro di tutti i fogli di lavoro presenti nella cartella di lavoro, abbiamo utilizzato il ciclo FOR per scorrere tutti i fogli di lavoro presenti all’interno della raccolta FOGLI DI LAVORO.
Per rinominare il nome del modulo del foglio di lavoro del foglio di lavoro, abbiamo assegnato un nuovo nome al modulo del foglio di lavoro modificando la proprietà CODENAME di VBCOMPONENT.
Segui sotto per il codice
Option Explicit
Sub ChangeAllWorksheetCodenames()
'Code for renaming worksheet codemodule names
Dim ws As Worksheet, i As Integer
i = 0
'Looping through all the worksheets in the active workbook
For Each ws In ActiveWorkbook.Worksheets
i = i + 1
'Putting a check over error occurence while renaming
'If error occurs at runtime, code will skip the error and
'Start executing from next line
On Error Resume Next
'Code for renaming codemodule name
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = _
"Sheet" & i
'Cancelling the effect error check statement we used earlier,
'Code will not skip the code if any runtime error occurs
On Error GoTo 0
Next ws
Set ws = Nothing
End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]