excel - 自动调整在 Excel 中的 worksheet_active() 中不起作用

Question

我有这些代码让工作簿打开和切换表都将是 wraptext 和 autofit 以使所有长数据成为多链接：

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Me.Sheets
ws.Cells.WrapText = True
ws.Cells.EntireRow.AutoFit
Next ws
End Sub



Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In Me.Sheets
ws.Cells.WrapText = True
ws.Cells.EntireRow.AutoFit
Next ws
End Sub 

工作簿打开部分有效，但 worksheet_activate 部分无效。我的工作簿中有几张纸，一张纸的几个字段依赖于另一张纸。在我进行更改以使字段变长后，另一张工作表结果无法赶上长度并隐藏在框中。我必须重新启动 excel 才能让工作簿打开部分工作，并且所有隐藏的单词都会再次出现。

Answer 1

您需要Private Sub Worksheet_Activate()在每个工作表的代码模块中都有 。此外，每个工作表中的代码需要是：

Private Sub Worksheet_Activate()
    Me.Cells.WrapText = True
    Me.Cells.EntireRow.AutoFit
End Sub

在那个上下文中，我指的是一个Worksheet对象，而不是一个Workbook对象。