エクセル９５のマクロ

質問

エクセル９５で
Private Sub Worksheet_Change(ByVal Target As Range)
　というのは使えるんでしょうか？
リターン押したときに移るセルを操作したいので
代わりになるものでもあれば教えて頂きたいです。
よろしくお願いします。

回答No.1

taisuke555 · ベストアンサー

あったと思いますが・・・
（１）ある場合
　　　[VisualBasicEditer]の[VBAProject]内の[Sheet1]をダブルクリックして
　　　プログラムを書くエリアの上にある(General)と書いてあるコンボボックスを選択して
　　　[WorkSheet]に変更
　　　隣のコンボボックスに[SelectionChange]を[Change]に変更すると
　　　上記Subが表示されるので、そこに記入すればいいと思います。

（２）なっかた場合
　　　Application.OnKey "{Enter}", "プログラム名"
　　　で変わりになると思います。
　　　サンプルプログラムを以前回答してありますので、そちらを参考にして下さい。

参考URL：「セルＥ1に入力しenterキ-で セルＡ2に移動する方法はありますか。」
http://oshiete1.goo.ne.jp/kotaeru.php3?q=362956

お礼

早速の回答ありがとうございます。
家のＰＣだとＸＰなので試せないので
出勤したら　試してみます。

回答No.2

imogasi

sheet1の（例えば）A7セルにデータをエンターで入れた時
Sheet2のA1に飛ぶように考えました。
Module1に下記コーディングしtest01を実行しておく。
A7にデータを入れると、Sheet2のA1に行く。ただA2にMoveAfterReturnするようであるが。
Sub test01()
ActiveSheet.OnEntry = "test02"
End Sub
Sub test02()
MsgBox ActiveCell.Address & "をエンタ"
addr = ActiveCell.Address
If addr = "$A$7" Then
Application.Goto Worksheets("sheet2").Range("a1")
End If
End Sub
If addr = "$A$7" Then
Worksheets("sheet3").Activate
Range("a1").Select
End If
にしてもA2に行ってしまう。

お礼

出勤したら、試してみます。
また、疑問があったらよろしくお願いします。