| |
あきさん、こんにちは。
>エクセルの特定のセルに記入をし、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
|
|
