hatena
hatena
2023/05/03 (水) 09:16:10
現状のコードをhirotonさんの回答あった「(元の値)と(転記する値) & vbNewLineを連結して上書きする」というヒントを元に書き換えると、下記になります。
Sub 転記()
Dim memo As String
memo = ""
memo = memo & txt子テキスト_1 & vbNewLine
memo = memo & txt子テキスト_2 & vbNewLine
memo = memo & txt子テキスト_3 & vbNewLine
memo = memo & txt子テキスト_4 & vbNewLine
memo = memo & txt子テキスト_5 & vbNewLine
Forms![F_test2]![txtテキスト_1] = memo
End Sub
これを質問の最初のコードのForループと同じ考え方で書き換えればいいでしょう。
通報 ...