エクセルにて指定文字数以上の時、自動で改行する方法について御存知であれば御教示下さい。

質問

エクセルにて（当方エクセル2000使用）
例えば　A1のセルに100文字の日本語（かな、カタカナ、漢字、数字含む）を入力したとします。
A1のセルに10文字、B1に10文字、C1に10文字・・・J1に10文字と
自動で横のセルに入力をさせたいのですが
設定方法に付いて御存知の方、是非お教え下さい。
宜しくお願いします。

回答No.2

okormazd · ベストアンサー

vbaを使わなければできない。
シートのコードモジュールに下記のような感じのコードを書けば、そのようなことができるが、それまで。

Private Sub Worksheet_Change(ByVal Target As Range)

r = Target.Row
c = Target.Column
If c = 1 Then
tstr = Target.Value
lst = Len(Target)
pst = 10
If lst >= 100 Then
For c = 0 To lst / pst
Cells(r, c + 1) = Mid(tstr, c * pst + 1, pst)
Next
End If
End If

End Sub

お礼

有難う御座います。
vbaについては無知識ですが、試してみようと思います。

回答No.1

orangezzzz

こんにちは。
それは無理というものですよ。
文字入力機能はエクセルと別の制御ですから。