vba自动换行代码

新速特源码 6月12日 35 0

Sub AutoWrap()
Dim cell As Range
For Each cell In Selection
cell.WrapText = True
Next cell
End Sub

这段代码可以将选定区域内的所有单元格自动换行。

如果你想要在VBA中编写自动换行的代码，可以使用WrapText属性。WrapText属性是一个布尔值，如果设置为True，则单元格中的文本将自动换行。以下是一个简单的示例代码，可以将选定区域内的所有单元格自动换行：

Sub AutoWrap()
    Dim cell As Range
    For Each cell In Selection
        cell.WrapText = True
    Next cell
End Sub

在这个代码中，我们使用了For Each循环来遍历选定区域内的每个单元格。然后，我们将WrapText属性设置为True，以启用自动换行。最后，我们使用Next语句来结束循环。

你可以将这个代码保存在一个新的模块中，并将其命名为AutoWrap。然后，你可以在Excel中打开一个工作簿，选择需要自动换行的单元格，然后运行这个宏。这将自动将选定区域内的所有单元格自动换行。