Excel：スタートアップ時に列を自動フィリングする方法は？

Question

データを含むオープニングシートのすべての列を自動フィッティングする方法はありますか？私は、特定の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 

あなたはまた、ワークブックのシートの上にループを追加することができます。