excel - 如何在文本输入期间自动调整 Excel 中的列宽

Question

我通常会尝试避免在 Excel 中使用 VBA，但如果能够在单元格中键入文本，并使其列变宽或变窄以容纳输入或删除时剩余的文本，会很方便。

当然，这取决于该列中其他单元格中文本的长度。

“键入时自动调整”，我想您可能会这样调用它。

有没有一种简单的方法可以在合适的处理程序中做到这一点？

Answer 1

我不确定是否有办法在您打字时执行此操作。我认为 Excel 通常会在触发 worksheet_change 事件之前拉伸(stretch)单元格 View 以显示所有文本。

在您更改目标并将目标移动到新范围后，此代码将调整列的大小。将其放入工作表模块中。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim nextTarget As Range

    Set nextTarget = Range(Selection.Address) 'store the next range the user selects

    Target.Columns.Select 'autofit requires columns to be selected
    Target.Columns.AutoFit

    nextTarget.Select
End Sub

如果您只是想针对特定列执行此操作，则需要像这样检查目标列:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim nextTarget As Range

    Set nextTarget = Range(Selection.Address) 'store the next range the user selects

    If Target.Column = 1 Then

        Target.Columns.Select 'autofit requires columns to be selected
        Target.Columns.AutoFit

        nextTarget.Select
    End If
End Sub