excel - 将 Excel 电子表格值设置为在从 VBA 表单插入值时自动换行

Question

我目前正在通过 VBA 表单将一些值插入到 Excel 电子表格中。到目前为止，我所做的一切都很好，但我想知道是否有办法将文本设置为自动换行在每个单元格中？

就目前而言，似乎一切都会相互重叠。

Private Sub btnSubmit_Click()
    Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = Worksheets("main")
    Set rng1 = ws.Cells(Rows.Count, "a").End(xlUp)
    rng1.Offset(1, 0) = cbo_deptCode.Value
End Sub

Answer 1

尝试

With rng1.Offset(1, 0)
    .Value = cbo_deptCode.Value
    .WrapText = True
End With