Excel 特定のセルだけEnterでセル内改行

質問

• Excelの特定のセルだけEnterキーでセル内改行できる方法を探しています。VBAを使っても形を崩さずにできる方法が望ましいです。
• 他のセルではAlt+Enterで改行できるのに、特定のセルではAltキーを押しながら改行する必要があります。そのため、このセルのみでEnterキーだけで改行できる方法を見つけたいです。
• 特定のセルのみでセル内改行をするために、VBAの機能であるApplication.MoveAfterReturnを試しましたが、うまくいきませんでした。他の方法があれば教えてください。

回答No.2

matsu_jun

tetsusiさん こんにちわ

該当シートのWorksheet_Changeイベントを利用します。
文面からすると、それなりにVBAを活用されているようですので、コードの貼り付け方法は割愛しますが、もし分からない際は、私の過去の解答
http://okwave.jp/qa/q7499581.html
の、「記入が終わったら・・・」のくだり以降を参照ください。

では、コメントつきでコードを紹介します。ここでは対象セルをA1としています。対象セルを変更したい場合は、If分の後の$A$1を任意のセルに変更してください。（絶対参照($付き)で指定してください）

'--------------------ここから----------------------
Private Sub Worksheet_Change(ByVal Target As Range)　　 'シート上のセルの値に変化があった際に発生するイベント
　　'セルA1が変化し、かつ、現在のカーソルが1行下にあるときのみ実施
　　'つまり、セルA1を編集し、Enterを押されたときのみ実施ということになる
　　If Target.Address = "$A$1" And ActiveCell.Address = Target.Offset(rowoffset:=1).Address Then
　　　　Application.EnableEvents = False　　　　'イベント発生の抑止（再帰動作抑制）
　　　　Target.Value = Target.Value & Chr(10)　 '該当セルの値の最後尾に改行を付加
　　　　Target.Activate　　　　　　　　　　　　 'カーソル位置を元に戻す
　　　　SendKeys "{F2}"　　　　　　　　　　　　 'F2キーを押すのと同じ動作（該当セルを編集状態に戻す）
　　　　Application.EnableEvents = True　　　　 'イベント発生の復帰
　　End If
End Sub
'--------------------ここまで----------------------

これでお望みの動作になると思います。編集状態から抜けるには、該当セルと該当セルの下のセル以外のセル（上の例であればA1とB1以外のセル）をクリックします。

お礼

ありがとうございます
Changeの所でもできるのですね