vba - Selecton.Rows.AutoFit 不起作用 - 为什么？

Question

我对一段 VBA 代码有疑问：

    Sub Macro3()
    Sheets("Output").Select
    Rows("5:160").Select
    Selection.Rows.AutoFit
    End Sub

什么 - 从我的角度来看它应该做的 - 将 Autosize 应用于工作表“输出”中的行 5:160。我将代码添加到工作表“输出”中，因此每当我打开它时，它应该会自动正确调整大小。然而，什么也没有发生。但是，如果我手动选择行并按 CRTL+C+H+O+A 自动调整行的大小，它可以正常工作。

有谁猜出错误在哪里？将是一个巨大的帮助！

预先感谢！

Answer 1

每当我打开它时，它应该会自动正确调整大小。

为此，您必须将代码放在ThisWorkbook代码区域中，并且您必须使用Workbook_Open()事件

看到这个

Private Sub Workbook_Open()
    Sheets("Output").Rows("5:160").Rows.AutoFit
End Sub

快照