10文字目で自動改行

Excelでひとつのセルに入力したとき、10文字ごとに自動的に改行していきたいのですがなにか方法はあるのでしょうか？

よろしくお願いいたします。

No.1 ベストアンサー 回答者： mu2011 回答日時： 2008/03/03 17:41

表示だけですが、次の方法は如何でしょうか。

（１）対象セルの書式設定→配置タブで「全体を折返して表示する」にチェック→ＯＫ
（２）セル幅を調整（出来ればフォントは固定型を使用する、例えば、ＭＳゴシック、ＭＳ明朝等）

この回答へのお礼

お答えありがとうございます！
表示だけだとそれでいけるのですが、
表示だけではなくて、改行させる方法は何かないのでしょうか？

お礼日時：2008/03/03 22:14

No.2 回答者： mu2011 回答日時： 2008/03/04 17:03

NO1です。

実改行までとなるとＶＢＡしかありません。
○ＶＢＡの一例です。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, k, mytxt As String
On Error GoTo err
Application.EnableEvents = False
Target.Value = Application.WorksheetFunction.Clean(Target.Value)
k = Int(Len(Target.Value) / 11)
mytxt = ""
For i = 0 To k
mytxt = mytxt & Mid(Target.Value, (i * 10) + 1, 10)
If i < k Then mytxt = mytxt & vbLf
Next
Target.Value = mytxt
err:
Application.EnableEvents = True
End Sub