Excel VBA自動調整イベントハンドラ

Question

ユーザが自動フィットの列（または行）をトリガしたときに関数をトリガしようとしています。したがって、ユーザーが列ヘッダー間の行をダブルクリックすると、自動的に列幅が変更されます。

私はVBAで機能して列幅を変更することができますコメントで述べたように...

Answer 1

をColumns("D:D").EntireColumn.AutoFitが、私はそれのためにイベントhandler/triggerを持っていると思い、自動調整のためのイベントはありませんしかし、それがあなたが望むのと同じままであることを確認する方法があります。したがって、幅の定数として_Changeイベントを使用することができます。

Private Const STANDARD_WIDTH = 6 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Range("A:A").ColumnWidth <> STANDARD_WIDTH Then 
     Range("A:A").ColumnWidth = STANDARD_WIDTH 
    End If 
End Sub