在Excel中自动调整大小和自动换行

Question

So I am looking for some way to auto wrap text in my excel document, posisbly based on number of characters per line.

I would also like for my cells to continue auto sizing, I have used the following VBA code for it:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
For Each Value In Target.Columns
    Worksheets(Sh.Name).Columns(Value.Column).AutoFit
Next Value
Application.ScreenUpdating = True
End Sub

Any ideas?

Answer 1

Is this what you were looking for?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim Val As Range
For Each Val In Target.Columns
    Worksheets(Sh.Name).Columns(Val.Column).AutoFit
    If Len(Val) > 150 Then
        Val.WrapText = True
    End If
Next Value
Application.ScreenUpdating = True
End Sub

Note: I suggest not using Value as a variable, since it's a "reserved word" in VBA. I also assume Value is a cell, so I defined it as a Range. It will check if Value is over 150 characters, and if so, wrap text.

If that doesn't work, here's a general way to check if a cell has over 150 characters, and if so, wrap text:

Sub autoFitCell()
Dim cel As Range
Set cel = Range("A1")
If Len(cel) > 150 Then
    cel.WrapText = True
End If
End Sub