エクセル セルの入力文字数固定

質問

エクセル2002を使用しております。

ワードのように何行何文字というレイアウトで作業したいのですが、
１セルあたりの入力文字数を固定し、それ以上の場合は次の下セルへ自動的に送られるようなことはできますでしょうか？
書式設定の折り返しの場合は、1セルに複数行になってしまいますが、１セル１行という感じです。

現在は、折り返に設定にして、下行とセルの結合をして２行セル分にしていますが、この設定を自動化することはできますでしょうか？
どうぞよろしくお願いします。

回答No.4

mitarashi

Excelに多くを望みすぎる発想が面白かったので、試しに作ってみました。
10文字単位に分割して、余りの文字のセルに移動し、編集状態にします。
全角も半角も一文字扱いですので、実用的ではないと思います。
また、新規入力の場合に限ります。既存の文字まで考慮しようとすると、エディターを開発（大げさ）することになってしまいそうです。
Excel2000のコードですので、上位バージョンでの動作は？です。
シートモジュールに記述してください。
エラーが発生したらとにかく抜けるいい加減な作りです(^^;)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim targetString As String
Dim divResult As Long
Dim remain As Long
Dim i As Long
Const limitLength As Long = 10

Application.EnableEvents = False
On Error GoTo ErrorHandle:
targetString = Target.Value
If Len(targetString) > limitLength Then
divResult = Len(targetString) \ limitLength
remain = Len(targetString) Mod limitLength
For i = 1 To divResult
If i = 1 Then
Target.Value = Left(targetString, limitLength)
Else
Target.Offset(i - 1, 0).Value = Mid(targetString, limitLength * (i - 1) + 1, limitLength)
End If
Next i
If remain > 0 Then
Target.Offset(divResult, 0).Value = Mid(targetString, limitLength * divResult + 1, limitLength)
Target.Offset(divResult, 0).Activate
Else
Target.Offset(divResult, 0).Activate
End If
SendKeys "{F2}"
End If
ErrorHandle:
Application.EnableEvents = True
End Sub

お礼

まったくもって素人の思いつきでお恥ずかしい限りです(^^;)
入力しながら改セルができると、文字数を意識しながら作業できそうなので便利そうです。
しかし、関数といえば「合計」しか使ったことがないものですから、
結果はもうしばらくお待ち下さい。必ず結果を報告させていただきます。
とりいそぎ、回答のお礼まで。
ありがとうございます。