Excel VBAで例えばセル"A2"をセレクトしている状態で
「ENTER」を押すとB5に自動的にセレクトすることはできないでしょうか?
Worksheet_Change関数を使おうと思ったのですが
"A2"の中身が変化しないと発動しません。
Worksheet_SelectionChange関数を使って"A2"を選択している状態で「ENTER」を押すと"A3"が選択されることを利用し、
「"A3"が選択されたら"B5"に飛ぶ」
も考えたのですが、マウスやキーボード操作で"A3"を
選択すると"B5"に飛んでしまうので、これも使えません。
何か対策案はないでしょうか。ご教授よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんばんは。
これは、定番のコードですが、私は、それに、もう少し工夫を凝らしてみました。
本来は、クラスによるインスタンスが良いとは思いますが、それを一般的にお勧めするには、ちょっと荷が重いような気がしました。
'<標準モジュール>
Private Sub ReturnDirectrion2SelectCell()
If ActiveCell.Address(0, 0) Like "A2" Then
Range("B5").Select
Else
'Original ReturnDirection の再現
On Error Resume Next
Select Case Application.MoveAfterReturnDirection
Case xlDown
ActiveCell.Offset(1).Select
Case xlToRight
ActiveCell.Offset(, 1).Select
Case xlToLeft
ActiveCell.Offset(, -1).Select
Case xlUp
ActiveCell.Offset(-1).Select
End Select
End If
End Sub
Sub SetKeys()
'設定用
Application.OnKey "~", "ReturnDirectrion2SelectCell"
Application.OnKey "{Enter}", "ReturnDirectrion2SelectCell"
End Sub
Sub SetOffKeys()
'解除用
Application.OnKey "~"
Application.OnKey "{Enter}"
End Sub
'-----------------------------------------
自動設定が必要な場合は、以下のコードを加えてください。
'-----------------------------------------
'<標準モジュール>
Sub Auto_Open()
Call SetKeys
End If
Sub Auto_Close()
Call SetOffKeys
End If
'-----------------------------------------
なお、現在の設定では、全てのブックの全てのシートに同じように適用されます。Auto_Open等の代わりに、例えば、Worksheet_Activate や Workbook_SheetActivateなどに、SetKeysをCall し、Worksheet_DeactivateやWorkbook_SheetDeactivateに、SetOffKeysをCallするようにすると良いと思います。
No.1
- 回答日時:
以下のようにコーディングすればよいのでは
Private blnA2Select As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If blnA2Select Then
Range("b5").Select
Else
End If
If Target.Address = "$A$2" Then
blnA2Select = True
Else
blnA2Select = False
End If
End Sub
【注意】
A2がセレクトされた状態から他のセルをセレクトするとB5が選択されるので、「"A2"を選択されている状態で「ENTER」を押すと"B5"を選択する」という要件から若干外れていますが…
「"A2"からフォーカスが外れると"B5"を選択する(「ENTER」に限らず)」
如何でしょう?
ご返信ありがとうございます。
いただいたプログラムを使ってみたところ
「"A2"を選択している状態でマウス操作で"C10"等を選択すると"B5"に飛んでしまう」
という現象が発生してしまいました。
そこで
If blnA2Select Then
Range("b5").Select
Else
↓
If Target.Address = "$A$3" And blnA2Select = True Then
Range("b5").Select
Else
と変更したところ
「前回"A2"で今回"A3"を選択したときのみ"B5"に飛ぶ」
という動作を作ることが出来ました。
理想に近い状態なのですが、キーボード操作で
「"A2"⇒"A3"と移動すると"B5"に飛んでしまう」等
若干問題が残っています。
他によい対策案等ありましたら、ご教授お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) マクロを教えてください 3 2023/07/31 21:57
- Excel(エクセル) マクロを教えてください 2 2023/07/30 23:05
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
エクセルのVBA 特定のセルでエンターキーでマクロ実行
Excel(エクセル)
-
エクセルでエンターを押すと任意のセルに移動は出来ますか?
その他(コンピューター・テクノロジー)
-
-
4
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
5
Enterキーで順番にセルの移動する。
Visual Basic(VBA)
-
6
エクセルでエンターを押すと隣のセルではなく指定したセルに!
Excel(エクセル)
-
7
EXCELでENTERキーでセルの移動マクロ
Excel(エクセル)
-
8
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
9
excelで セルの移動時にマクロ実行を設定したい。
Excel(エクセル)
-
10
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
11
エクセルVBAを使いセルを指定した順番に異動させ
Excel(エクセル)
-
12
エクセル2010セル入力後指定の離れた場所に移動?
Excel(エクセル)
-
13
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
14
エクセル TABキーの動きをマクロで
Excel(エクセル)
-
15
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
Excel2010でエンターキーにマクロ割り当て
その他(プログラミング・Web制作)
-
19
特定のセルがアクティブになったときのイベント?
Excel(エクセル)
-
20
【VBA】Worksheet_changeイベントで特定のキーが押されたときだけ無効にしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルである行以下全部を削...
-
「無」と「未」の使い方
-
VBAでファイルを開くときにファ...
-
Androidのスマホで毎回毎回ホー...
-
EXCEL VBAで全選択範囲の解除
-
「これが」「これで」いいです...
-
Excel VBA あるセルでENTERを押...
-
Google Earth Pro(グーグルア...
-
Jw-cadの範囲指定で文字が選択...
-
戸惑う、惑うの違いはなんですか。
-
シフトキーを使った範囲選択が...
-
Excel 行列が選択出来ない
-
ipadのpagesでMS明朝を使う方法...
-
Excel VBAでn行毎に行の選択
-
エクセルの重なってしまったエ...
-
選択と採択の違い
-
Word差込印刷で「テーブルを選...
-
Excel2003にて(ツール→オプシ...
-
Word差し込み印刷 初期ディレク...
-
EXCELピボットテーブル(複数ア...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
Androidのスマホで毎回毎回ホー...
-
VBAでファイルを開くときにファ...
-
Excel VBA あるセルでENTERを押...
-
ipadのpagesでMS明朝を使う方法...
-
「無」と「未」の使い方
-
Excel 行列が選択出来ない
-
Jw-cadの範囲指定で文字が選択...
-
「これが」「これで」いいです...
-
Google Earth Pro(グーグルア...
-
Excel VBAでn行毎に行の選択
-
シフトキーを使った範囲選択が...
-
Excel2003にて(ツール→オプシ...
-
Wordでドロップダウンリスト連動
-
Simejiで作ったきせかえを消す...
-
大至急!
-
戸惑う、惑うの違いはなんですか。
-
Word差込印刷で「テーブルを選...
-
ピボットテーブル 矢印が出な...
おすすめ情報