 [ セル内で改行する / chr(10)
]
VBAでセルに文字を入力し、改行するには「chr(10)」を使います。 文字と文字の間に「chr(10)」をいれて「&」でつなげるだけです。 サンプルコードでは、「折り返し」の書式設定もしています。
Sub
myWrapTxt()
'===============
'セル内で改行する
'===============
'**
A1セル***
'折り返しを有効にする
Cells(1, "A").WrapText =
True
'セル内で改行するときは、文字と文字の間を「chr(10)」でつなげます。
Cells(1, "A").Value =
"セル内で改行します。" & Chr(10) &
"--->改行しました。"
End Sub
|