【EXCEL2003】文章の出力について

質問

セルA１に文章を入力すると、セルA2～A11に一行ずつ表示されるようにしたいです。

　　　１．A2～A11セルの一行当りの文字数は10文字
　　　　　一行当り10文字を超える場合は次の行に表示
　　　２．A1セル内でAlt＋Enterで改行した場合も次の行に表示

という条件で出力させるにはどうすればよろしいでしょうか。

具体的には現在A1に入力されている文章を

　　　A2：あいうえお
　　　A3:かきくけこさしすせそ
　　　A4：なにぬねの
　　　A5：は
　　　A6：ひふへほ
　　　A7～A11：空白

というように入力させたいです。

OSはWindowsXP、Office　Excel2003を使用しています。
VBAはわかりませんので、教えていただけると幸いです。
どうぞよろしくお願いします。

回答No.1

keithin · ベストアンサー

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim s
　Dim sx As String
　Dim i, j
　If Target.Address <> "$A$1" Then Exit Sub
　If Target = "" Then Exit Sub
　Range("A2:A11").ClearContents

　s = Split(Range("A1"), vbLf)
　For i = 0 To UBound(s)
　　j = 11
　　Do While j <= Len(s(i))
　　　s(i) = Application.Replace(s(i), j, 0, vbLf)
　　　j = j + 11
　　Loop
　Next i
　sx = Join(s, vbLf)
　s = Split(sx, vbLf)
　Range("A2").Resize(UBound(s) + 1, 1) = Application.Transpose(s)
End Sub

ファイルメニューから終了してエクセルに戻る
A1セルに文章を入力する。

お礼

ありがとうございました。
うまくいきました！