マクロでenterキーを押すと指定のセルに移動したいのですが色んなネット情報で試しましたが今一分かりません、使い方はA1→B1→C1→D1と移動させD1からA2に移動させる方法です。
後はこの動きを400列ぐらい繰り返したいです。
セルが右に行く方法はマクロでもExcel設定の方で出来るのは知っていますが右4つ移動の左一段下の繰り返しプログラムを教えて頂けないでしょうか?
図々しいですがプログラムを書いていただけると幸いかと思います。
みなさま宜しくお願いします。javascript:void(0);
No.4ベストアンサー
- 回答日時:
No.2です。
シートモジュール(シート名タブを右クリックで『コードの表示』で出てくる所)に、
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect(.Cells, Range("D:D")) Is Nothing Then
Cells(.Row + 1, "A").Select
End If
End With
End Sub
で宜しいでしょうか?
No.3
- 回答日時:
こんにちは
範囲や始めるセルなどリセット方法を考える必要がありますが
こんなのはどうでしょう?
対象シートモジュールで入力しない場合の移動はデフォルトです
Option Explicit
Dim n As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If n < 3 Then '4列
Target.Offset(, 1).Select
n = n + 1
Else
Target.Offset(1, -3).Select
n = 0
End If
End Sub
また、
列全体や選択範囲をマウスやショートカットキーなどで選択して
該当シートのみで右移動にするのであれば、オプションから設定すれば良いのではないかと思います。
VBAで行うなら対象シートモジュールに(入力が無くとも移動)
Option Explicit
Dim tmp '念のためデフォルトを取得
Private Sub Worksheet_Activate()
tmp = Application.MoveAfterReturnDirection
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Worksheet_Deactivate()
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = tmp
End Sub
行移動は範囲に依存する
列全体や選択範囲をマウスやショートカットキーなどで選択
Qchan1962さん有難うございます。
データーを書き込んでいただき助かりました。
始めて教えて!gooをやりましたが色んな方々からご教授頂き
有難うございました。(←年齢ばれそう(笑))
No.2
- 回答日時:
>マクロでenterキーを押すと指定のセルに移動したいのですが
Enterキーを押すってのは『セルへの入力確定』なのですか?
それとも『どうでも良いから押した時』なのですか?
早々の返信ありがとうございます。
Enterキーを押すってのは『セルへの入力確定』で会っています。
文章足らずですいません、計測機器をPCに繋いでExcelに計測値を飛ばした後にenterキーを押して次のセルに移動したいのです。
参考になるかどうかわかりませんがoffice2019となっております。
教えて!goo初心者ですが返信方法はこれで良いですか?
No.1
- 回答日時:
こんにちは。
あまりテストしていませんが、例えば下記とかはどうでしょうか?
タブで、E1セルに移動した時に、A2セルへ移動するみたいな。
念のために、移動する前後で、イベントの無効、セルのセレクト、イベント
の有効とした方が安全かも知れませんが。。。
下手すると、無限ループに入る可能性があるので。
マクロでセル移動 → イベント発生 → セル移動 → イベント発生。。。
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Select Case .Address
Case "$E$1"
Range("A2").Select
End Select
End With
End Sub
イベントの無効、有効
https://xtech.nikkei.com/it/pc/article/NPC/20070 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- その他(プログラミング・Web制作) Pythonでexcelのvbaを作成、実行する方法について Pythonで表の自動集計プログラムを 3 2022/07/09 09:58
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Excel(エクセル) Excelのマクロについて:コピー→セル移動→貼り付け 3 2022/04/17 20:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【マクロ】名前を保存する際に...
-
エクセル マクロ チェックボックス
-
Excel 複数列 A列B列C列一致 D...
-
エクセル vbaについて教えてく...
-
エクセルであるセルに数字を入...
-
【Excel】数字を3倍にし、なお...
-
Excel分析ツールでのポアソン回...
-
エクセルVBA、別ブックへ転記す...
-
【マクロ】顧客番号にて一致さ...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセル共有したが、アクセス...
-
エクセル②
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
INDIRECTを使わず excelで複数...
-
Excelで縦軸の書式を0:00形式の...
-
【マクロ】読取専用のファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報