痔になりやすい生活習慣とは?

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

A 回答 (2件)

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


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


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

参考URL:「セルE1に入力しenterキ-で セルA2に移動する方法はありますか。」
http://oshiete1.goo.ne.jp/kotaeru.php3?q=362956
    • good
    • 0
この回答へのお礼

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

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

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に行ってしまう。
    • good
    • 0
この回答へのお礼

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

お礼日時:2002/11/03 14:29

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング