Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70560 / 76738 ←次へ | 前へ→

【10682】Re:教えて下さい。
回答  ぴかる  - 04/2/6(金) 9:08 -

引用なし
パスワード
   あきさん、こんにちは。

>エクセルの特定のセルに記入をし、enterを押し決定した時に通常は、何もなくカーソルがズレルだけですけど、enterを押したときに別のシートの特定の列の情報と同じ物を探すマクロを組みたいんですが、どのように組んだらよろしいですか?教えて下さい。
Sheet1のA1セルのみの時、Sheet2のA1セルを参照します。
今年やっとの初回答!。こういうので、どやろ?。

Sub AUTO_OPEN()

  Application.OnKey "{ENTER}", "セル移動" 'ENTERを押したらマクロを実行
  Application.OnKey "~", "セル移動"    'テンキーのENTERを押したらマクロを実行

End Sub
Sub AUTO_CLOSE()

  Application.OnKey "{ENTER}"    'ENTERを押しても何も実行しない
  Application.OnKey "~"       '結果として登録したマクロの解除

End Sub
Sub セル移動()

  If (ActiveSheet.Name = "Sheet1") And (ActiveCell.Address = "$A$1") Then
    Sheets("Sheet2").Select
    Range("A1").Select
    MsgBox "Sheet2のA1セルを表示しました。", vbInformation
  Else
    ActiveCell.Offset(1, 0).Select
  End If

End Sub
0 hits

【10677】教えて下さい。 あき 04/2/5(木) 19:24 質問
【10682】Re:教えて下さい。 ぴかる 04/2/6(金) 9:08 回答
【10713】有難う御座います あき 04/2/9(月) 20:31 お礼

70560 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free