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

Question

我遇到一段VBA代码问题：

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

什么 - 从我的观点来看应该做的 - 是在工作表“输出”中应用自动调整到行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

<强>快照