
No.3ベストアンサー
- 回答日時:
こんにちは!
お示しのコードは標準モジュールにコードを記載していますので、
ご自身でマクロを実行しなければなりません。
単に右へ移動させるだけであれば
Excel2007以降の場合
画面左上のOfficeボタン(Excel2010以降は「ファイル」)→ Excelのオプション(オプション)→
詳細設定 → 「編集設定」の「Enterキーを押した後にセルを移動する」の右▼で「下」となっているところを「右」にしてOK
※ 一定範囲内でそのような操作をしたい!というコトは多々ありますので、
仮にA1~D10セルの範囲内で右へ移動し、最終列(D列)の場合は1行下の最初の列に移動!したい場合は
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペースト → Excel画面に戻りA1~D10セルに何らかのデータを入力 → Enter
としてみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
'▼A1~D10セル以外の場合はなにもしない
If Intersect(Target, Range("A1:D10")) Is Nothing Or Target.Count > 1 Then Exit Sub
'▼D列の場合、1行下の左三列目のセルを選択
If Target.Column = 4 Then
Target.Offset(1, -3).Select
Else
'▼右隣りのセルを選択
Target.Offset(0, 1).Select
End If
End Sub 'この行まで
※ Changeイベントにしていますので、
何らかのデータ入力(消去)などのセル変化が必要です。m(_ _)m
No.2
- 回答日時:
ENTERキーの変わりにTABキーで右隣に移動しますけど
ENTERキーを押した時の移動方向の設定もできます。
http://support.microsoft.com/kb/968151/ja
コードは以下の通りで
シート名のタグ上で右クリックで『コードの表示』を選択し、
以下のコードを貼り付け
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(-1, 1).Select
End Sub
上記コードは、1シートのみ有効です。
複数のシートで同様のことをしたい場合は、
それぞれのシートにコードを貼り付ける必要があります。
この回答へのお礼
お礼日時:2014/11/07 14:57
ありがとうございました。
初心者の私には一番わかりやすいコードと思い、
こちらのコードで試してみました。
思っていた通りのことができました。
また、よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Excel(エクセル) エクセルのマクロが途中の行から適用されない 2 2022/07/09 20:25
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) Excelのマクロについて:コピー→セル移動→貼り付け 3 2022/04/17 20:46
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Excel(エクセル) エクセルのマクロが上手く動きません 4 2022/07/14 13:25
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
VBAでの SendKeysの変数指定方法
-
Excelでプルダウンからフィルタ...
-
Excelマクロ セルを行頭に移動
-
マクロ:エクセルVBAでのワーク...
-
Excel VBA で色付きのセルの値...
-
ダブルクリックでセルに色をつ...
-
Excel VBA:フォーム←→セルのア...
-
IF関数で違う値もTRUEになる
-
【マクロ】1つのセルから結合...
-
マクロの記録で任意の文字を検...
-
ファイルサーバー上のexcelファ...
-
セルをクリックしたら色を変え...
-
excel マクロでの特殊文字入力方法
-
(エクセルVBA)セルを左クリッ...
-
選択されたセルが赤くなる方法...
-
マクロのデータ削除
-
エクセル:セルの色のコード番...
-
Excelのマクロ貼り付けについて
-
エクセルでスピンボタンとスク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセルでセルをクリックする...
-
VBAでの SendKeysの変数指定方法
-
Excelマクロ セルを行頭に移動
-
IF関数で違う値もTRUEになる
-
(エクセルVBA)セルを左クリッ...
-
Excel VBA:フォーム←→セルのア...
-
Excel VBA で色付きのセルの値...
-
ファイルサーバー上のexcelファ...
-
セルをクリックしたら色を変え...
-
Excelでプルダウンからフィルタ...
-
エクセル:セルの色のコード番...
-
エクセルマクロで「セルのサイ...
-
VBA Rangeの足し算
-
マクロのデータ削除
-
【VBA】アクティブセルだけ背景...
-
excel マクロでの特殊文字入力方法
-
【EXCEL-VBA】特定の値の入った...
-
結合されたセルの移動 VBA
-
ExcelVBA コンボボックスに入力...
おすすめ情報