自動調整不worksheet_active（）在Excel

Question

工作，我有這些代碼同時擁有打開工作簿和開關板必須全部爲wraptext，並自動調整，以使所有長數據是穆蒂鏈接：

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部分不工作。我在工作簿中有幾張紙，一張紙的幾個字段取決於另一張紙。在我做出更改以使字段變長之後，另一個表單結果無法追上長度並隱藏在框中的下方。爲了讓工作簿開放部分工作，所有隱藏的單詞都會再次出現，我必須重新開始工作。

Answer 1

你需要Private Sub Worksheet_Activate()每個表的代碼模塊。此外，在各工作表中的代碼需要：

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

在這方面中，Me是指Worksheet對象，而不是Workbook對象。