Bryan ha una cartella di lavoro Excel condivisa nel suo ufficio. Ha creato la cartella di lavoro e impostato il carattere predefinito, ma qualcuno sta cambiando il carattere.

Bryan si chiede se può forzare il carattere sul carattere desiderato quando la cartella di lavoro è chiusa.

Un modo semplice per eseguire questa operazione consiste nell’usare il gestore di eventi BeforeClose per la cartella di lavoro. Puoi fare in modo che il gestore passi attraverso ciascuno dei fogli di lavoro e imposti il ​​carattere per tutte le celle in questo modo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         s.Cells.Font.Name = "Calibri"

Next End Sub

Questo imposta il carattere su Calibri, ma puoi cambiare il nome del carattere, se necessario. Se hai bisogno di cambiare altre caratteristiche del carattere, puoi modificare il gestore di eventi per farlo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         With s.Cells.Font             .Name = "Calibri"

.Size = 10         End With     Next End Sub

Dovrai fare attenzione, però, cambiando troppe caratteristiche dei caratteri, poiché potresti finire per sbarazzarti di alcuni che vuoi mantenere, come il grassetto o il corsivo.

Ricorda che queste macro dovrebbero essere aggiunte all’oggetto ThisWorkbook in Visual Basic Editor.

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

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