【エクセル】マクロでのセル移動についてお尋ねしたいのですが。

質問

エクセルで、行数の異なる複数の列に大量のデータを入力しています。

「マクロ実行用のボタン」を１つ作って、そこをクリックする度に、
例えば、セルを「Ｂ２」→「Ｃ２」→「Ｄ２」→「Ｂ２」→繰り返し
のように順番に選択するといった、マクロを作りたいのですが、詳しい方、アドバイスお願いします！

回答No.5

Wendy02 · ベストアンサー

#2の回答者です。

>Ｂ列を何行も入力した後、「ボタン」をクリックすれば、Ｃ列データの頭（Ｃ２）。

まあ、私としては、そのような初歩的なコードは、いくらマクロ初心者でも、ちょっと調べれば分かるはずだと思いますが。

'-------------------------------------------
Private Sub CommandButton1_Click()
　　Select Case ActiveCell.Column
　　　　Case 2: Range("C2").Select
　　　　Case 3: Range("D2").Select
　　　　Case 4: Range("B2").Select
　　　　Case Else: Range("B2").Select
　　End Select
End Sub

ただ、どのセルにあっても、入力した最後の行のセルの境界線の上をダブルクリックすれば、最上行のところに戻りますから、そのようなショートカットでも十分だと思います。

回答No.7

nisemokuge

オプションでエンターキーを押したら下に移動するように設定しておいて、Ｂ２からデータを入力し、横移動をＴＡＢキーで実施し、入力後エンターを押せばＣ２に移動します。
同様に入力してＥ列に来たときに、マクロボタンでＢ２を選択するようにしてみてはいかがですか？

あとマクロ初心者なので不細工なマクロで申し訳ありませんが、
下記のマクロではどうでしょうか？
条件として
・Ｂ列やＣ列の入力完了するところが一致していないとうまく動きません。
・Ｄ１のセルになにかを入れる必要があります。（フォントの色は白色でもかまいません）

動きの説明ですが、
・現在の位置から１０個左へセルを移動します（Ｂ列ならＢ１、Ｃ列ならＣ１に移動するように数字は変更してください。）
（セル位置よりも大きい数字を入れるとマクロが走りません）
・移動先のセルの入力状態を確認します。
・未記入であれば、下に一つ、右に一つ移動するので、Ｃ２やＤ２を選択します。
・Ｄ１に何か入力があればＢ２に移動するようになっています。

Sub 仮()
ActiveCell.Offset(0, -10).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(1, 1).Select
Else
Range("B2").Activate
End If
End Sub

回答No.6

rivoisu

Wendy02さんの回答で質問の内容には十分な回答だとおもいます。

操作性を考えるとボタンよりもショートカットのほうがいいように思います。
マクロは普通に作ってメニューからマクロの起動のオプションで目的のマクロにショートカットを作ります例えばCtrl+ｑで起動するということができます。
操作する人にとってみればキーボードから手を離さずに（マウスを使わずに）
操作できるので面倒がなくていいです。

回答No.4

watabe007

＃１です
>Ｂ列を何行も入力した後、「ボタン」をクリックすれば、Ｃ列データの頭（Ｃ２）。
>Ｃ列を何行も入力した後、同じ「ボタン」をクリックすれば、Ｄ列データの頭（セルＤ２）。
>Ｄ列を何行も入力した後、同じ「ボタン」をクリックすれば、元のＢ列のデータの頭（Ｂ２）に戻る。
>の繰り返しを考えているのです。

そのようになっていませんか？
With ActiveCell
　　Cells(2, (.Column + 2) Mod 3 + 2).Select
End With

回答No.3

rivoisu

例のような移動だったらマクロの必要はありませんね。
マクロでやろうということはA1、B5、C3　というような不規則な移動でしょうか

もしくはB2に移動した後B3,B4などを修正して次にボタンを押すと
C2に移動するというようなことでしょうか。

フォーカスを移動する命令は
range("A1").Activate　’A1に移動する
でできます。

どちらの場合もどこかに移動する先アドレスのリストを作っておいて
マクロが起動されるたびにそこを参照して上記の命令を実行する方法があります

いちいちマクロボタンを押さなくともEnterで任意の場所に移動する方法もありますがいかがでしょう。
たとえばB２でEnterを押すとC2、C2でEnterを押すとD2、D2でEnterを押すとB3
見たいなこともできます。

補足

参考意見ありがとうございます。

ただ、マクロ初心者なので、理解不能です。。。

回答No.2

Wendy02

こんにちは。

>例えば、セルを「Ｂ２」→「Ｃ２」→「Ｄ２」→「Ｂ２」→繰り返し
たぶん、この文章からすると、次はB3ではないでしょうか？
それから、入力の後は、クリックではなく、Enter と思います。
ボタンで、SetKey　を呼び出してください。意味が違っていたら、ご指摘ください。

例：
'シートモジュール
Private Sub CommandButton1_Click()
　Call SetKey
End Sub

二度目は、ブックを開けたときに、設定されます。終了時には、自動的に解除されます。

'標準モジュール
'-------------------------------------------
Sub SetKey()
　 'キーの設定
　Application.OnKey "{Enter}", "CellOrders"
　Application.OnKey "~", "CellOrders"
End Sub
Sub SetOffKey()
　'キーの設定解除
　Application.OnKey "{Enter}"
　Application.OnKey "~"
End Sub
Sub CellOrders()
　　'「Ｂ２」→「Ｃ２」→「Ｄ２」→「Ｂ２」
　　'設定は、Shee1
　　If ActiveSheet.Name = "Sheet1" Then　'←Sheet1
　　　　Select Case ActiveCell.Column
　　　　　　Case 2: Cells(ActiveCell.Row, 3).Select
　　　　　　Case 3: Cells(ActiveCell.Row, 4).Select
　　　　　　Case 4: Cells(ActiveCell.Row + 1, 2).Select　'一行増える
　　　　　　Case Else: Cells(2, 2).Select '関係のないところでEnter すれば、B2に飛びます
　　　　　　'Case Else: Cells(ActiveCell.Row, 2).Select
　　　　End Select
　　Else
　　　　ActiveCell.Offset(1).Select
　　End If
End Sub

補足

分かりずらい質問ですいません。

Ｂ列を何行も入力した後、「ボタン」をクリックすれば、Ｃ列データの頭（Ｃ２）。
Ｃ列を何行も入力した後、同じ「ボタン」をクリックすれば、Ｄ列データの頭（セルＤ２）。
Ｄ列を何行も入力した後、同じ「ボタン」をクリックすれば、元のＢ列のデータの頭（Ｂ２）に戻る。
の繰り返しを考えているのです。

よろしくおねがいします！

回答No.1

watabe007

>そこをクリックする度に例えば、セルを「Ｂ２」→「Ｃ２」→「Ｄ２」→「Ｂ２」→繰り返し

With ActiveCell
　　Cells(2, (.Column + 2) Mod 3 + 2).Select
End With

補足

分かりずらい質問ですいません。

Ｂ列を何行も入力した後、「ボタン」をクリックすれば、Ｃ列データの頭（Ｃ２）。
Ｃ列を何行も入力した後、同じ「ボタン」をクリックすれば、Ｄ列データの頭（セルＤ２）。
Ｄ列を何行も入力した後、同じ「ボタン」をクリックすれば、元のＢ列のデータの頭（Ｂ２）に戻る。
の繰り返しを考えているのです。

よろしくおねがいします！