设置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