Excel VBA 자동 맞춤 이벤트 처리기

Question

자동 맞춤 열 (또는 행)이 사용자에 의해 트리거 될 때 함수를 트리거하려고합니다. 따라서 사용자가 열 머리글 사이의 줄을 두 번 클릭하면 열 너비가 자동으로 변경됩니다.

내가 VBA에서 함수와 열 너비를 변경할 수 있습니다 Columns("D:D").EntireColumn.AutoFit,하지만 내가 코멘트에서 언급 한 바와 같이

Answer 1

... 경우 그것에 대한 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