[[20190301115833]]　『転記時に任意の位置で改行させる』（りり）　ページの最後に飛ぶ

『転記時に任意の位置で改行させる』（りり）

いつもお世話になっております。
ユーザーフォーム（リストボックス）を使って、印刷時にシート上のセルにある長い文字列を別のシートに転記する際、任意の位置で改行させたいと考えています。

具体的に言うと、リスト.List(i, 5)の文字列に全角のスペースが２つ入っていた場合、転記する際にその位置で改行されるようにしたいのです。

どうかお力添えをお願いします。

Private Sub 印刷_Click()

    Dim i As Long, flg As Boolean

    With Worksheets("データベース")
        For i = 0 To リスト.ListCount - 1
            If リスト.Selected(i) Then
                .Range("B6").Value = "　　　　〒" & Me.リスト.List(i, 13) & "-" & Me.リスト.List(i, 14)
                .Range("B7").Value = Me.リスト.List(i, 6)
                .Range("B8").Value = Me.リスト.List(i, 15)

　　　　　　　　’ここで処理のコード？’

                .Range("B9").Value = Me.リスト.List(i, 5)

　　　　　　　　Sheets("データベース").Activate

                Application.Dialogs(xlDialogPrint).Show Arg4:=1, Arg13:="プリンタ1"

                flg = True
            End If
        Next
        If Not flg Then
            MsgBox "印刷する項目を選択してください。"
            Exit Sub
        End If
    End With
End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

if instr(Me.リスト.List(i, 5),"　　")>0 then
.Range("B9").Value = split(Me.リスト.List(i, 5),"　　")(0) & vblf & split(Me.リスト.List(i, 5),"　　")(1)
else
.Range("B9").Value = Me.リスト.List(i, 5)
end if

（mm） 2019/03/01(金) 13:13

mmさん
ちゃんとできました！
ありがとうございましたm(__)m
（りり） 2019/03/01(金) 16:36

コメント返信：

[ 一覧(最新更新順) ]

[[20190301115833]] 『転記時に任意の位置で改行させる』（りり） ページの最後に飛ぶ

[[20190301115833]]　『転記時に任意の位置で改行させる』（りり）　ページの最後に飛ぶ