このコードは標準モジュールにあり、正常に動作します。
Public Sub AutofitRows()
ThisWorkbook.Worksheets("Data").Cells.EntireRow.AutoFit
End Sub
次に、データ ワークシート モジュールに次のコードがありますが、何らかの理由ですべての行が自動調整されません。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Call AutofitRows
End If
End Sub
誰かがこれを修正する方法を説明できますか?
ありがとう。