Excel：如何在啓動時自動調整列？

Question

有沒有一種方法可以自動調整打開工作表中包含數據的所有列？我正在尋找一種解決方案，它不依賴於某個excel文件的修改，但它適用於每個excel文件，並在excel啓動時運行。

Answer 1

您可以使用，將收到應用程序事件（見Chip Pearson's website詳細信息）的對象模塊。

這是你必須將代碼複製，粘貼到文件PERSONAL.XLSB的模塊ThisWorkbook：

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 

你也可以在工作簿紙張添加一個循環。