Excel: come montare automaticamente le colonne all'avvio?

Question

C'è un modo per autofit tutte le colonne nel foglio di apertura che contengono i dati? Sto cercando una soluzione che non dipenda dalle modifiche su un determinato file Excel ma che funzioni su ogni file Excel e funzioni all'avvio di Excel.

Answer 1

È possibile utilizzare un modulo oggetto che riceverà un evento applicazione (vedere ulteriori informazioni su Chip Pearson's website).

Questo è il codice è necessario copiare e incollare al modulo ThisWorkbook del file PERSONAL.XLSB:

Option Explicit 

Private WithEvents App As Application 

Private Sub Workbook_Open() 
    Set App = Application 
End Sub 

Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 
    'Statement to show that it works 
    MsgBox "Opened Workbook: " & Wb.Name 
    'Statement to autofit columns 
    ActiveSheet.UsedRange.Columns.AutoFit 
End Sub 

Si potrebbe anche aggiungere un loop sulle lenzuola della cartella di lavoro.