|
はじめまして、DONPONと申します。
初めて投稿させていただきます。
Excelのセル内で改行しようとするとき、通常は、「Alt+Enter」で
できますが、これを「Enter」だけで改行できるように、VBAで作ろうと
思いました。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
Range("$D$4").Select
SendKeys "{F2}", True
SendKeys "%{ENTER}", True
End If
End Sub
上記のように、コードを作ってみました。
セル(D4)で「Enter」を押すだけでセル内で改行されるようになったのですが、
この場合、「Enter」でなくても、セルからフォーカスがなくなると
実行されてしまいます。(「Escape」を押したときのみ、実行されません)
これを「Enter」を押したときだけ、実行されるようにしたいのですが、
TextBoxなどのように、セルでも「KeyPress」や「KeyDown」のような
機能があればいいのですが・・・。
どなたかいい方法を教えていただけないでしょうか?
よろしくお願いいたします。
|
|