エクセル９５のマクロ

解決済

質問者：Mr-J
質問日時：2002/11/03 02:11
回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： taisuke555
回答日時：2002/11/03 03:04

あったと思いますが・・・

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

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

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

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2002/11/03 03:26

No.2

回答者： imogasi
回答日時：2002/11/03 10:36

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に行ってしまう。