入力したいセルへEnterをクリックして移動

Question

入力したいセルのみEnterキーで移動したいのですが、
出来ますか。
D4からスタートし(D4からH4)まで結合
D5              (D5からH5)まで結合
D6              (D6からH6)まで結合
A7              (A7からC7)まで結合
D7              (D7からH7)まで結合
D8              (D8からH8)まで結合
D9              (D9からH9)まで結合
D10             (D10からH10)まで結合
D12             (D12からH12)まで結合
D14-E14-F14-G14-H14
D16-E16-F16-G16-H16
B19             (B19,C19)結合
B20             (B20,C20)結合
B21             (B21,B22)結合
C21             (C21,C22)結合
D19             (D19からD22)まで結合されています
まだ続きが沢山ありませが、上記の順で移動させようと、
過去の質問回答をいろいろ実行したところ、
私には、VBAは難しくてエラーが出たり、
セルの結合がある場合思うように移動してくれなかったりして
どうにも成りません、何方か出来るだけ簡単に解り易く説明して頂けませんか。

taisuke555 · Accepted Answer

修正しました。
法則性があるようなので、全てのセルを書かず、計算で求める様にしました。
（初歩的な命令を複雑に組み合わせているだけですので
　少し勉強すれば、読めるようになると思います。）
（勉強の為、少し統一性の無い書き方をしてあります。
　いろいろな書き方が出来る例です）
デバッグしやすいように、全てのマクロを修正（追加）しています。 
（Set_cellのマクロ以外は、Debug.Printの１文を追加しただけです） 
Debug.Printはデバッグの為の命令です。
プログラムが、目的通り動いたら（いろいろな状況を試した後）削除してください。

方法が書いていないものは、既に教えてあるものですので、 
今までの回答を見てください。
１．まずは下のコード（マクロ・プログラム）を規定の位置に貼り付けてください。 

２．VBEの画面で、「イミディエイト ウィンドウ」が表示されているか確認し、無ければ表示してください。 

３．EXCELの画面に戻り、EXCELの画面を小さくし、 
　　VBEの「イミディエイト ウィンドウ」が見える状態にして下さい。 

４．「Sheet(Ver(2))」シートをアクティブにし、 
　　ブックを上書き保存してブックを閉じ再度開いてみてください。 

５．「イミディエイト　ウィンドウ」に「Workbook_Activate マクロセット」 
　　と表示されれば、Workbook_Activateが起動されています。 

６．D4にカーソルを移し、[ENTER]を押してください。 

７．「イミディエイト　ウィンドウ」に「Set_Cell:D4」 
　　と表示されれば、Set_Cellが起動されています。 

８．順に[ENTER]を押して、希望通りの動きをするか確認してください。 

９．他のシートを選択したり、新規ブックを開いたりした時に 
　　「イミディエイト　ウィンドウ」にマクロ解除の文字がでるか 
　　また「Sheet(Ver(2))」シートに戻った時にマクロセットの 
　　文字が出るか確認してください。 

'***************** Sheet(Ver(2)) 内 *********** 
'シートがアクティブになった（選択された）時 
Private Sub Worksheet_Activate() 
　　Debug.Print "Worksheet_Activate マクロセット" 
　　Application.OnKey "{ENTER}", "Set_Cell" 
　　Application.OnKey "~", "Set_Cell" 
End Sub 

'シートがアクティブでなくなった時 
Private Sub Worksheet_Deactivate() 
　　Debug.Print "Worksheet_Deactivate マクロ解除" 
　　Application.OnKey "{ENTER}" 
　　Application.OnKey "~" 
End Sub 

'***************** ThisWorkbook 内 *********** 
'ブックがアクティブになった時 
Private Sub Workbook_Activate() 
　　Debug.Print "Workbook_Activate "; 
　　'アクティブになっているシートが、処理シートの時 
　　If (ActiveSheet.Name = "Sheet(Ver(2))") Then 
　　　　Debug.Print "マクロセット"; 
　　　　Application.OnKey "{ENTER}", "Set_Cell" 
　　　　Application.OnKey "~", "Set_Cell" 
　　End If 
　　Debug.Print 
End Sub 

'ブックがアクティブでなくなった時 
Private Sub Workbook_Deactivate() 
　　Debug.Print "Workbook_Deactivate "; 
　　'アクティブだったシートが、処理シートの時 
　　If (ActiveSheet.Name = "Sheet(Ver(2))") Then 
　　　　Debug.Print "マクロ解除"; 
　　　　Application.OnKey "{ENTER}" 
　　　　Application.OnKey "~" 
　　End If 
　　Debug.Print 
End Sub 

'***************** 標準モジュール 内 *********** 
Private Sub Set_Cell() 
　　With ActiveCell 
　　　　Debug.Print "Set_Cell:" & .AddressLocal(False, False) 
　　　　Select Case .AddressLocal(False, False) 
　　　　　　'１つ下に移動するセル 
　　　　　　Case "D4", "D5", "D7", "D8", "D9" 
　　　　　　　　.Offset(1, 0).Select 
　　　　　　'２つ下に移動するセル 
　　　　　　Case "D10", "D12" 
　　　　　　　　.Offset(2, 0).Select 
　　　　　　'１つ右に移動するセル 
　　　　　　Case "D14", "E14", "F14", "G14", "D16", "E16", "F16", "G16" 
　　　　　　　　.Offset(0, 1).Select 
　　　　　　'その他　１８行目までの不規則な移動のセル 
　　　　　　Case "D6": Range("A7").Select 
　　　　　　Case "A7": Range("D7").Select 
　　　　　　Case "H14": Range("D16").Select 
　　　　　　Case "H16": Range("B19").Select 
　　　　　　'最後のセル 
　　　　　　Case "N215": Range("D4").Select 
　　　　　　Case Else '１９行目から　２１７行目までのセル 
　　　　　　　　If (.Row >= 19 And .Row <= 217) Then 
　　　　　　　　　　Select Case (.Row Mod 4) 
　　　　　　　　　　　　Case 3 '４で割ったら３余る行（１９、２３、２７・・・） 
　　　　　　　　　　　　　　Select Case .Column 
　　　　　　　　　　　　　　　　Case 2 'B列 
　　　　　　　　　　　　　　　　　　.Offset(1, 0).Select '１つ下へ 
　　　　　　　　　　　　　　　　Case 4 To 13 'E列～M列 
　　　　　　　　　　　　　　　　　　.Offset(0, 1).Select '１つ右へ 
　　　　　　　　　　　　　　　　Case 14 
　　　　　　　　　　　　　　　　　　Cells(.Row + 4, "B").Select '４行下のB列へ 
　　　　　　　　　　　　　　End Select 
　　　　　　　　　　　　Case 0 '４で割り切れる行（２０、２４、２８・・・） 
　　　　　　　　　　　　　　If (.Column = 2) Then .Offset(1, 0).Select 'B列ならば、１つ下のセルへ 
　　　　　　　　　　　　Case 1 '４で割ったら１余る行（２１、２５、２６・・・） 
　　　　　　　　　　　　　　Select Case .Column 
　　　　　　　　　　　　　　　　Case 2 'B列 
　　　　　　　　　　　　　　　　　　.Offset(0, 1).Select '１つ右へ 
　　　　　　　　　　　　　　　　Case 3 'C列 
　　　　　　　　　　　　　　　　　　Cells(.Row - 2, "D").Select '２行上のD列へ 
　　　　　　　　　　　　　　End Select 
　　　　　　　　　　End Select 
　　　　　　　　End If 
　　　　End Select 
　　End With 
End Sub

まだ、おかしければ補足してください。

taisuke555 · Answer

＞＃９の内容以外何も入っていません。 
　Subユーザーフォームの実行とは何だったのでしょう？

＞Workbook_Activateだけ表示せれます。 
ブック名が違っていると思います。

シート名は、Sheet(Ver(2))でいいのでしょうか？
Ver(2)　でしょうか？

'ブックがアクティブになった時 
Private Sub Workbook_Activate() 
　　Debug.Print "Workbook_Activate "; 
　　'アクティブになっているシートが、処理シートの時 
　　If (ActiveSheet.Name = "Sheet(Ver(2))") Then 
　　　　Debug.Print "マクロセット"; 
　　　　Application.OnKey "{ENTER}", "Set_Cell" 
　　　　Application.OnKey "~", "Set_Cell" 
　　End If 
　　Debug.Print 
End Sub 

このマクロは、「ブックが開かれた時」と、
「他のブックが選択されていてこのブックを選択した時」に発生します。

まず、　　Debug.Print "Workbook_Activate "; 
の部分で、イミディエイトウィンドウに
Workbook_Activate と表示されます。
（この表示がでれば、このマクロが実行されたという事です。

　　If (ActiveSheet.Name = "Sheet(Ver(2))") Then 
の部分で、選択されたブックの表示されているシートが
Sheet(Ver(2))と言う名前なら
　　　　Debug.Print "マクロセット"; 
で、イミディエイトウィンドウの
Workbook_Activateの後ろに[マクロセット]という言葉が追加されます。

シート名が全角、半角、大文字、小文字、１文字でも間違えていると、
この[マクロセット]という言葉が追加されません。

もう１度、シート名を確認して、＃７の後半１．の部分に書かれている部分を
正しく修正してみてください。

「Workbook_Activate マクロセット」と表示されれば、
＃９の６．以下を試してください。

・[マクロセット]という言葉が表示されたら[ENTER]を押した時の
　マクロが動きます。
　[マクロ解除]という言葉が表示されたら、[ENTER]を押しても
　マクロは動きません。
　（ブックを開いた直後は、[マクロ解除]になっていると思ってください。）

taisuke555 · Answer

＞＞５．「イミディエイト　ウィンドウ」に「active」 
＞　　と表示されれば、Workbook_Activateが起動されています。 

＞　　＊　「active」と表示されず、Workbook_Activateと表示されます、同じ意味でしょうか。 

？？？
５．「イミディエイト　ウィンドウ」に「Workbook_Activate マクロセット」 
　　と表示されれば、Workbook_Activateが起動されています。 

ですよ？　

＞D4にカーソルを移し、Subユーザーフォームの実行を押したら出ました。 

？？？　ユーザーフォームの実行って何でしょう？
他にもマクロを入力されているのですか？

＞＊　シートを一度閉じ再度開いたら何も残っていません。 
シートを閉じるのではなく、他のシートを選択するのです。

＃８にも書きましたが、私の方と違うものは、私の方では判断つきません。
＃９のプログラムのみになるようにして下さい。
（うまく動いてから少しづつ変更するようにして下さい。）

１度うまく動いたからといって、すぐに次の作業には入らないようにしてください。
プログラムというのは、今回のようにIF文やSELECT文の様に
条件分岐されます。（条件によって、異なる処理をする事）
ですから、いろいろな場合を想定し、いろいろと試さないと
（実際には、条件分岐に対する全てのテスト）
ある場合には、うまく処理されていない事も考えられるのです。

とりあえず、４までは出来ているみたいですので、
私の提示した、プログラムのみにしてから
５以降を順番に実行し、イミディエイトウィンドウにどのように
表示されているか補足してください。

taisuke555 · Answer

１つ断っておきます。（１つではないですけど） 
＃５で、「とりあえず落ち着いて、１つづつ片付けましょう！ 」 

と書いてあるのは、１つの問題をクリアしてから、 
先に進みましょう！と言う意味です。 

マクロが動かないのに、入力セルをどんどん追加して、 
どうなるのでしょうか？ 
（追加する事により、このプログラムでは、処理できない事も出てきますが 
　まずは、マクロが動くようになる為にはどうするかを 
　考えるべきだと思います。） 

＃６の補足で、入力セルは終わっている物と思ってました。 
それについては、もう一度、マクロを作成しなおします。 
とにかく、何故動かないのかを考えましょう。 

＞起動するには、ただ、ブックを開いてマクロを有効にする。だけで良いのでしょうか。 
だけでいいと思います。（マクロを作るにあたって、VBEの設定を変更したことは、ほとんどないです。）

＞、"0x77f580db"命令が”0x0c0c0c0c"のメモリを参照しました、、、、、。と出て強制終了してしまいます。 

これに付いては、もう私の手には負えません。 
（エラーの再現もできませんし、できてもわからないと思います。） 
とりあえず、WINDOWSを立ち上げなおし、 
マクロの入力セル（InpCL）を＃６の補足まで戻してください。 
こちらのマクロと違うマクロのエラーを推測して回答するのは困難です。 

＞VBE画面は昨日初めて開いたしマクロを使うのも初めてです。 
　それは、無謀というものです。 
　少なくとも、VBEの使い方を勉強してから行うべきです。 
　VBAはあきらめて、入力シート（単純に左から右や上から下に入力できるシート）を作成し、 
現在のシートから参照できるようにしたらどうですか？ 
（D4セルで =入力!A1　のように参照する） 

これらを踏まえた上で、どうしてもVBAでやりたい。 
ということでしたら、 
移動させる全てのセルを補足してください。 
作り変えて回答します。

taisuke555 · Answer

＞このプロジェクトのマクロは無効に設定されたいます
＞ブックを開くとセキュリティレベルが高に設定されています、、、、、とでます。 

１．EXCELのメニューから
　　「ツール」→「マクロ」→「セキュリティ」
　　で中を選んでください。

２．ブックを開いたときに出るメッセージで、
　　「マクロを有効にする」を選んでください。

このメッセージを表示しない方法は、過去ログにあると思うので、
調べてみてください。
（とりあえず動くようにする事を目指します。）

＞シート名は　Sheet(Ver(2))です。 
１．最初は動いたという事ですので、直してあるのかもしれませんが、
　　ThisWorkbookの２ヶ所のシート名を変更してください。

Private Sub Workbook_Activate() の中の
　　If (ActiveSheet.Name = "Sheet(Ver(2))") Then 

Private Sub Workbook_Deactivate() の中の
　　If (ActiveSheet.Name = "Sheet(Ver(2))") Then 

２．処理したいシート Sheet(Ver(2)) に
　　Private Sub Worksheet_Activate() 
　　Private Sub Worksheet_Deactivate() 
　　およびコードが記述されているか確認します。

ここまで出来れば、動くと思いますがどうでしょうか？

taisuke555 · Answer

一応、エラーは無くなったという事ですね。

デバッグの方法ですが、
マクロが、「動いていない」、「動いているが、何も処理されない」
の２種類が、考えられます。

動いているか動いていないかを調べるには、
Private Sub Set_Cell() 
　　Dim InpCL As Variant 
　　Dim i As Integer 

　　Msgbox "Enter"   '←追加

を追加してください。
マクロが動いていれば、メッセージが表示されます。

メッセージが表示されれば、マクロは動いていますが、
処理がうまくいっていません。
この場合は、実際のマクロを補足してください。
（多分、こちらではないと思いますが）

メッセージが表示されない場合、マクロが動いていません。

ちょっと、マクロを説明しますと、
Private Sub Worksheet_Activate() 
Private Sub Workbook_Activate() 

の中の、

Application.OnKey "{ENTER}", "Set_Cell"

を行っています。
[ENTER],~(テンキーの[ENTER]）が押された時に
Set_Cellというマクロを実行するという意味です。

ですから、このマクロを通れば、マクロを実行するはずです。

Private Sub Worksheet_Activate() 
・・・
End Sub
この間にカーソルを移し、[F5]（ファンクションキー）
を押してから、エクセル画面に戻って、[ENTER]を押してみてください。

後、入力処理をしたい、シート名は、[Sheet1]でいいですか？
違う場合は、補足にシート名を書いてください。

taisuke555 · Answer

とりあえず落ち着いて、１つづつ片付けましょう！ 

１．＞初めて開いた時に出ていた物が出なくなっただけだと思います、初期画面に戻す方法を教えてください。 

　　VBEの画面ですね？
　　「メニュー」バーの「表示」から 
　　・「プロジェクト　エクスプローラ」 
　　・「プロパティ　ウィンドウ」 
　　・「イミディエイト　ウィンドウ」 
　　・「ローカル　ウィンドウ」 
　　・「ウォッチ　ウィンドウ」 
　　あたりを選択すれば出ると思います。（こういう事と違いますか？）　 

　　コード（プログラム）を書く画面は、 
　　「プロジェクト」の中のシートなりThisWorkbookなりを 
　　ダブルクリックすれば表示されます。 

２．＞"N19",)までで一区切りで、後はこのパターンを繰り返すだけですが、 

　　意味が分かりません。 
　　・一区切りなんてありません。 
　　・) の前が , で終わっていますが最後の , はいりません。 
　　実際にどのように入力したか、入力した部分を 
　　そのまま貼り付けてください。 

３．＞マクロが動きません 
　　これについてはいろいろ原因が考えられますが、実際に 
　　その場にはいないので判断がつきません。 

　　とりあえず、 
　　（１）黄色く表示されている行があるなら、マクロ中断中です。 
　　　　　「メニュー」→「実行」→「リセット」か 
　　　　　ツールバーの■をクリックしマクロをリセットしてください。 
　　（２）２．の部分が赤色である以上、マクロは動きません。 
　　　　まずは、２．をクリアしてください。 
　　（３）他のシートに移動し、元のシートに戻り、まだ動かないようなら、 
　　　　　もう一度、補足してください。 
　　　　　デバッグの方法をアドバイスします。 

ここで、プログラムの作り方を教える事は、何とか出来ますけど、 
VBAの使い方を教える事は、難しいですし、 
何より必要以上に文章が長くなってしまいます。 
＃１さんも仰ってますが、ご自分でも、少し勉強するしかないですよ。

次の補足は、どの番号まで出来て、
どこで分からなくなっているか、又は、
どの番号がどのようにうまくいかないのかを補足してください。

taisuke555 · Answer

あせっているのは、伝わってくるのですが、何がなんだかわかりません。

＞InpCL = Array("D4", "D5",、、、が赤くなり 
赤くなるのは、文法が間違っています。
作成した　InpCL = Array(・・・）までを補足してください。

＞一度Excelを閉じて再度開いたら元に戻ってしまったので
何が、どう戻ってしまったのでしょう？
保存しなかったという事ですか？

＞再度同じ手順で入力しましたが、出来ません。 
何を同じ手順で入力したのでしょう？マクロですか？
何が出来ないのでしょう？
マクロが動かないという事でしょうか？
他のシート又は他のブックを選択して、元のシートに戻ってみてください。

＞VBEもいじっていたら初期画面に戻らなくなってしまいました
VBEの画面がおかしくなったのでしょうか？
マクロがおかしな結果を招いているのでしょうか？

ちょっと落ち着いて、整理して補足してください。

taisuke555 · Answer

どのようなエラーが出ているのか分からないので 
なんとも言えないんですが、 
追加する場合は、 
InpCL = Array("D4", "D5", .... ,"D19","セルアドレス","セルアドレス") 

の様に追加していきます。 
（それは多分分かっていると思います。） 

InpCL = Array("D4", "D5", "D6", "A7", "D7", "D8", "D9", _ 
　　　　　　　　"D10", "D12", "D14", "E14", "F14", "G14", "H14", _ 

の _（アンダーバー）は１つの文を２行にわたって書く場合の接続語（？）ですので、 
行の１番最後に　スペースを入れて_を記入します。 
１行で書く場合には、必要ありませんし、 
最後の文字以外でも、_の前にスペースが入っていなくてもエラーになります。 

そういう事でなく「沢山」書いたらという事だと、Arrayの制限があるかもしれません。
（確認してみましたがよく分かりませんでした。）

もし、どうしても分からない様なら、どの様に入力したのかを
補足して頂ければ、どこがおかしいか分かるかもしれません。

入力セルが、沢山あるようですが、法則がない以上、計算式を使用する事も 
できませんので、頑張って入力するしかありません。 

ただ、入力補助のマクロを作って、入力するセルを順番にクリックし、
そのアドレスをシート上に書き出すなどの事はできると思います。

taisuke555 · Answer

もう１つの質問の方で回答しているものです。
　　http://oshiete1.goo.ne.jp/kotaeru.php3?q=827458
もう１つの方では、他の方が回答しているので、
少し違う方法を記述します。

こちらは、[ENTER]が押された時のみ処理をする方法です。
もう１つの方は、[セルの値が変更されてセルが移動した時に処理をする方法です。
できる限りコメントを入れたので少し長くなってしまいました。

１．[Alt]+[F11]でVBEに移ります。

２．左上の「プロジェクトに」
　　VBAProject(ブック名)
　　　├Sheet1(シート名)
　　　・・・
　　　└ThisWorkbook
　　とあると思うので、
　　（１）処理したいシートをダブルクリックし、右上に以下をコピー

******************この下から********************
'シートがアクティブになった（選択された）時
Private Sub Worksheet_Activate()
　　Application.OnKey "{ENTER}", "Set_Cell"
　　Application.OnKey "~", "Set_Cell"
End Sub

'シートがアクティブでなくなった時
Private Sub Worksheet_Deactivate()
　　Application.OnKey "{ENTER}"
　　Application.OnKey "~"
End Sub
******************この上まで********************

　　（２）[ThisWorkbook]をダブルクリックし、右上に以下をコピー

******************この下から********************
'ブックがアクティブになった時
Private Sub Workbook_Activate()
　　'アクティブになっているシートが、処理シートの時
　　If (ActiveSheet.Name = "Sheet1") Then
　　　　Application.OnKey "{ENTER}", "Set_Cell"
　　　　Application.OnKey "~", "Set_Cell"
　　End If
End Sub

'ブックがアクティブでなくなった時
Private Sub Workbook_Deactivate()
　　'アクティブだったシートが、処理シートの時
　　If (ActiveSheet.Name = "Sheet1") Then
　　　　Application.OnKey "{ENTER}"
　　　　Application.OnKey "~"
　　End If
End Sub
******************この上まで********************

３．挿入→標準モジュール　でモジュールを追加
　　プロジェクトに
   └標準モジュール
　　　└Module1
　　が追加されていると思うのでダブルクリックし、右上に下記をコピー

******************この下から********************
'[ENTER]が押された場合に、処理されるマクロ
Private Sub Set_Cell()
　　Dim InpCL As Variant
　　Dim i     As Integer
    
　　'移動セル
　　InpCL = Array("D4", "D5", "D6", "A7", "D7", "D8", "D9", _
　　　　　　　　"D10", "D12", "D14", "E14", "F14", "G14", "H14", _
　　　　　　　　"D16", "E16", "F16", "G16", "H16", "B19", "B20", _
　　　　　　　"B21", "C21", "D19")
    
　　'[ENTER]が押されたセルがInpCL(移動セル)に登録されているかチェック
　　For i = 0 To UBound(InpCL)
　　　　'InpCL(移動セル)に登録されているセルの場合、
　　　　If (ActiveCell.AddressLocal(False, False) = InpCL(i)) Then
　　　　　　If (i = UBound(InpCL)) Then
　　　　　　　　'最終の入力セルの場合１番最初の入力セルに移動
　　　　　　　　Range(InpCL(0)).Select
　　　　　　Else
　　　　　　　　'それ以外の場合は次の入力セルに移動
　　　　　　　　Range(InpCL(i + 1)).Select
　　　　　　End If
　　　　　　Exit For
　　　　End If
　　Next i
End Sub
******************この上まで********************

入力の続き部分は、InpCL を追加していけばいいようになっています。
（結合セルは、左上のセルでいいと思います。）

入力セル以外のセルで[ENTER]が押された場合は、
どのようにするのか分かりませんので、記載していません。
（現在は、[ENTER]が押されても動きません。）

何か分からなかったり、間違っていたら補足してください。

入力したいセルへEnterをクリックして移動

修正しました。

この回答への補足

＞＃９の内容以外何も入っていません。

＞＞５．「イミディエイト ウィンドウ」に「active」

この回答への補足

１つ断っておきます。

この回答への補足

＞このプロジェクトのマクロは無効に設定されたいます

この回答への補足

一応、エラーは無くなったという事ですね。

この回答への補足

とりあえず落ち着いて、１つづつ片付けましょう！

この回答への補足

あせっているのは、伝わってくるのですが、何がなんだかわかりません。

この回答への補足

どのようなエラーが出ているのか分からないので

この回答への補足

もう１つの質問の方で回答しているものです。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

＞＞５．「イミディエイト　ウィンドウ」に「active」