excel - VBAフォームから値を挿入するときにテキストを自動的に折り返すようにExcelスプレッドシートの値を設定する

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