Excel VBA自动调整事件处理程序

Question

我正在尝试在用户触发自动调整列（或行）时触发函数。因此，当用户双击列标题之间的行时，为了自动更改列宽。

我可以使用VBA中的函数更改列宽：Columns("D:D").EntireColumn.AutoFit，但我希望事件为handler / trigger ...

Answer 1

正如评论中所提到的，没有自动调整的事件，但有一种方法可以确保它保持不变。因此，您可以使用带宽度常量的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 事件：

{{1}}