10文字目で自動改行

質問

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

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

回答No.1

mu2011 · ベストアンサー

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

お礼

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

回答No.2

mu2011

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