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

質問

お世話になります。
以前に質問（http://oshiete1.goo.ne.jp/qa3611973.html）されたものに関連した質問です。
この質問ではある文字数を超えた場合、文章を分割して次行に自動的に改行するにはとの質問でしたが、次行ではなく１行空けて分割させるには良回答（＃５）のどこをどのように修正したらよろしいでしょうか。

＊１行目に１～２０文字、２行目は空白行、３行目は２１文字以降の２０文字、４行目は空白行。以下同様に表示される。と言うような分割方法です。

＊空白行を２行にした場合の変更方法も併せてお願いいたします。
使用環境はＸＰ２・ＥＸＣＥＬ２００２です。

勉強のために解説を加えていただけると助かります。
よろしくお願いいたします。

回答No.1

myRange · ベストアンサー

人の書いたコードを直すのは大変なので。。(^^;;;
以下のコードと入れ替えてください。

'--------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Count > 1 Then Exit Sub
　Application.EnableEvents = False

　Dim myStr As String
　Dim i As Long

　Const 行間隔 As Long = 3
　Const 行桁数 As Integer = 20

　myStr = Target.Value

　For i = 0 To (Len(myStr) - 1) \ 行桁数
　　Target.Offset(i * (行間隔 + 1)).Value = Mid(myStr, i * 行桁数 + 1, 行桁数)
　Next i

　Application.EnableEvents = True
End Sub
'----------------------------------------------

（説明）
●If Target.Count > 1 Then Exit Sub
これは、複数セルに同時に値を入力した場合には処理の対象にしないため。
例えば、A1～A10を選択して、Delキーを押して消去したときなど

●Const 行間隔 As Long = 3
行をあける間隔です。上記の場合は、３行空きます。
間隔を変えるためには、この数値を変えてやります。

●Const 行桁数 As Integer = 20
一行の最大桁数です。

●上記コードでは全セルが処理の対象になります。
もし、Ａ列だけ対象にしたければ
先頭に、

If Target.Column <> 1 Then Exit Sub

を追加してください。

以上です。

お礼

早速のご回答ありがとうございます。
汎用性のあるコードでしたので大変便利に使わせていただきました。ありがとうございました。
また、解説を加えていただき改めて御礼申し上げます。
ついでで申し訳ないのですが、文章を入力し実行した後に次行にセルが移動しますが、これを分割した最終行に合わせることは可能でしょうか。
おそらく可能だと思うのですが・・・。この場合どのようなコードを追加したらよろしいのでしょうか。

回答No.2

myRange

またまた登場、myrangeです。

＞これを分割した最終行に合わせることは可能でしょうか。

１　あああ
２　いいい
３　ううう
４

と分割されたと仮定して

最終行は、３行目ですから、そこをアクティブにするには

Target.Offset((i - 1) * (行間隔 + 1)).Select

最終行の次の行、上記例では、４行目をアクティブにするには

Target.Offset((i - 1) * (行間隔 + 1) + 1).Select

を次の位置に入れてやります。

'-------------------------------
　Next i

●●●ここに入れる　

　Application.EnableEvents = True
End Sub
'--------------------------------

以上です。

お礼

打てば響くようなご回答ありがとうございます m(_ _)m 。
完璧に希望どおりの動きをしてくれました。
また汎用性があるようにご回答していただけると、私のような初心者には非常に助かります。

早速ご回答をいただいたのですが、動作の確認が遅れて申し訳ありませんでした。
今後も機会がありましたらよろしくお願いいたします。