VBA Excel - 自动换行

Question

我正在创建一小段具有特定公式的VBA代码,但是它有几个if语句,其中一个语句来自双线字符串(有vbNewLine)问题是我看不到文本.

所以我想把它包装好,但每次我设置它ActiveCell.WrapText = True,都没有任何反应.

我查了一个消息框.我设置WrapText为True,我返回属性值与MessageBox确认,它仍然是False.

我被告知也可以使用ActiveCell.Rows.AutoFit,但AutoFit如果文字没有被包裹,则什么都不做.

知道我在这里做错了什么吗？

Answer 1

尝试:

Sub WrapandFit()

    ActiveCell.WrapText = True
    ActiveCell.EntireRow.AutoFit

End Sub

它对我有用.确保您的screenupdating也设置为true.

Answer 2

对我来说，下面的代码有效。（仅设置为更改标题行，（更改范围））

ActiveSheet.Range("A1:R1").Select
With Selection
    .WrapText = True
End With