excel - 通过单击其中的单元格来显示列

Question

我有一个子(在工作表上)，当我单击单元格时会放大列。问题是当我离开它时我无法返回列的原始大小。

我尝试使用一些默认参数，但这以错误结束。

Then rngDEwidh.Columns.ColumnWidth = rngDEwidh.Columns.ColumnWidth
Then rngDEwidh.Columns.ColumnWidth = xlNone
Then rngDEwidh.Columns.ColumnWidth = ActiveCell.width

这是一个子:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static rngDEwidh As Range
    If Not rngDEwidh Is Nothing Then rngDEwidh.Columns.ColumnWidth = xlNone
    Set rngDEwidh = Target
    rngDEwidh.Columns.ColumnWidth = 25
End Sub

使用 xlNone 时出错，如果我使用任何值(例如 10)就可以了。但我需要列的原始大小。

Answer 1

The problem is I can't back original size of the column when I leaving it.

这是你正在尝试的吗？这将先前的宽度和列号存储在变量中。

Dim prevWidth As Long
Dim prevCol As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If prevWidth <> 0 And prevCol <> 0 Then
        Columns(prevCol).ColumnWidth = prevWidth
    End If

    On Error Resume Next
    prevWidth = Target.ColumnWidth
    prevCol = Target.Column
    Columns(prevCol).EntireColumn.AutoFit
    On Error GoTo 0
End Sub