エクセルで前のシートと同じ位置にポインタを移動

エクセルで複数のシートに入力するのですが、前のシートと同じ位置に次のシートでセルを移動させるショートカットキーはありますか？
また、入力が必要なセルはシートの右上隅なのですがこの位置に移動させるショートカットやいい方法がありましたら教えてください。

No.1 ベストアンサー 回答者： ASIMOV 回答日時： 2007/07/03 18:19

＞入力が必要なセルはシートの右上隅なのですがこの位置に移動させるショートカット

入力セルが Z1 として

標準モジュールに次のコードを書きます
--------------------------
Sub セル移動()
Range("Z1").Select
End Sub
--------------------------
後、ツール -> マクロ -> マクロ、で「セル移動」を選び
「オプション」で、 Ctrl+ に c と入れておくと、コントロール＋C で、Z1に移動できます

標準モジュールは、シートの下のタブを右クリック、
「コードの表示」、「挿入」「標準モジュール」で出ます

この回答へのお礼

ありがとうございます。
丁寧な説明でわかりやすかったです。
おかげで作業が速くできます。

お礼日時：2007/07/04 11:54

No.2 回答者： imogasi 回答日時： 2007/07/03 19:49

キー操作ではぴったりのものを考え付かず、ＶＢＡでやってみました。

シートが３つしかないい例で説明します。
Sheet1のシートモジュールに
Private Sub Worksheet_Change(ByVal target As Range)
s = ActiveSheet.Index
a = target.Address
Module1.test01 s, a
End Sub
ー
Sheet２のシートモジュールに
Private Sub Worksheet_Change(ByVal target As Range)
s = ActiveSheet.Index
a = target.Address
Module1.test01 s, a
End Sub
ーー
Ｓｈｅｅｔ３のシートモジュールに
Private Sub Worksheet_Change(ByVal target As Range)
s = ActiveSheet.Index
a = target.Address
Module1.test01 s, a
End Sub
ーー
モジュール１のモジュールに
Sub test01(n, a)
If n = 3 Then
Sheets(1).Select
r = Range(a).Row
ActiveSheet.Cells(r + 1, 1).Select
Else
Sheets(n + 1).Select
ActiveSheet.Range(a).Select
End If
End Sub
ーー
データを入れてＥＮＴＥＲする都度、順次
Ｓｈｅｅｔ１！Ａ１
Ｓｈｅｅｔ２！Ａ１
Ｓｈｅｅｔ３！Ａ１
Ｓｈｅｅｔ１！Ａ２
Ｓｈｅｅｔ２！Ａ２
Ｓｈｅｅｔ３！Ａ２
Ｓｈｅｅｔ１！Ａ３
Ｓｈｅｅｔ２！Ａ３
Ｓｈｅｅｔ３！Ａ３
・・
と動きますが。
拙いもので、色々な操作に耐えられるか心配で、お勧めできません。
本質問は特殊な二ーズでは無いでしょうか。
ーーー
シートタブの移動は
ＣＴＲＬ＋ＰａｇｅＵｐキーです。
一番右のシートに１度で戻るキー操作は無いのでは。
また一番左のシートで、１つ下の行に自動的に移るシー操作も無いのでは。
操作でも

この回答へのお礼

ありがとうございます。
ＶＢＡはよくわからないのでちょっと私には難しい内容ですが。

お礼日時：2007/07/04 11:56