Excel内でのセル間のカーソル移動について質問です。

質問

Excel内でのセル間のカーソル移動について質問です。
セルにカーソルが乗っている状態で、キーボードの矢印キーを押すと、
その方向にカーソルが移動すると思いますが、
現在、A1にカーソルが乗っている状態で↓キーを押し続けると、
カーソルが19行目まで移動した時点で改行（列）されてB1に移動します。
そのまま↓キーを押し続けていると、B19に達した後C1に、C19に達した後D1に、
というように、
最下段が19行目であるかのような振る舞いをします。
どういった原因（機能）でこのようなことが発生しているのでしょうか。

この19行目を1行選択し「削除」することで、20行目が最下段になるようです。
つまり何か設定されているのだと思うのですが。
なお、19行目以降に数値の入力は可能ですし、保護もかけておりません。
また、このファイルはそれなりにマクロを組んでいます（新規で開いたものではない、と言いたいだけで、マクロが影響しているかどうかわかりません）。

何かわかる方いましたらよろしくお願いします。

回答No.5

imogasi · ベストアンサー

>ThisWorkBookに書かれたマクロで起動時に何かの設定をしている・・
ようであれば、ThisWorkbookのコードを出し、
ActiveSheet.ScrollArea＝の特にScrollAreaの語が見つからないか、VBE画面で編集ー検索で検索してみては。あるいは「19"」など無いですか。＜－19行目まで移動した
あと、別でProtectというコードも無いですか。

お礼

回答ありがとうございます。

ご指摘のScrollAreaや19といった文字列は無いのですが、「Protect」に関してはThisWorkbook内にあります。
ただし、問題（カーソルが一部に乗らない）が発生しているのはSheet1で、
ThisWorkbook内で保護をかけるように書いているのはSheet2です。
だから無関係だと思ったのですが、
実際にこのThisWorkbook内の「Protect」の行、
　Worksheets("Sheet2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
　Worksheets("Sheet2").EnableSelection = xlUnlockedCells
をコメントアウトしてみましたところ、現象は発生しなくなりました。

この2行をコピーし、
新規BookのThisWorkbook内に、
Private Sub Workbook_Open()
　Worksheets("Sheet2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
　Worksheets("Sheet2").EnableSelection = xlUnlockedCells
End Sub
のように書き込んだところ、
同じ現象を確認できました。
つまり、
・ファイルを開いた時にSheet2に保護をかけるようにマクロを組む。
・ファイルを開いた時にSheet2以外が開かれる。
という状態だと、そのシートにも一時的に保護がかかってしまうようです。

このThisWorkbookへの書き方が問題なんだろうと思い、
http://oshiete.goo.ne.jp/qa/6068320.html
に別途質問させていただきました。
こちらは閉じます。
ありがとうございました。

回答No.4

imogasi

考えられるのは
マクロ説
保護説
です。
マクロ説が怪しいような。
標準モジュールは、チェックして見たとして、シートモジュールにコードは入っていませんか。
別に
標準モジュールに
Sub test03()
Application.EnableEvents = False
' Application.EnableEvents = True
End Sub
を入れて実行し、質問の情況が起こるかどうか報告してみてください。
最終的にはApplication.EnableEvents = Trueにしておくこと。
エクセル（ブック）全体で諸イベントを効かなくする。これで抑止できないならイベントの仕業ではなかろう。
ーーー
参考で
Googleで「エクセル　カーソル移動」で照会すると沢山記事が出ます。
参考になるものが無いか少数読んでみるとか。

お礼

回答ありがとうございます。

Sub test03()
　Application.EnableEvents = False
End Sub

を標準モジュールに入れ、
現象が発生している状態でこれをツール＞マクロから実行してみましたが、
現象は消えませんでした。
つまり、
　・マクロでリアルタイムにカーソルの動きを規制しているのではない。
ということですよね。
それと合わせまして、１つ前の返事にも書きましたが、
ThisWorkBookのコードをすべて消して開きなおすことで現象の停止を確認できたので、
　・ThisWorkBookに書かれたマクロで起動時に何かの設定をしている
ということみたいです。
Googleのほうも参考にしつつ、
１つ１つ停止させて試してみようと思います。

回答No.3

myRange

そのシートに、ScrollAreaが設定されているのかも？
試しに、以下を。。

'---------------------------------------
Sub test()
　　Sheets(該当シート).ScrollArea = ""
End Sub
'--------------------------------------

以上です。

お礼

回答ありがとうございます。

結論から言いますと、ご指摘のコードでは変化がなかったですが、マクロが原因のようです。

ご指摘のコードを該当シートの「コードの表示」の中に書き込んでからシートを切り替えてみたところ、
確かに現象はなくなったのですが、
コードを書き込んだままファイルを保存し開きなおしてみたら、
該当コード書き込まれているにも関わらず現象が発生しました。
また、コードを書き込んでいない状態（質問した時点）のまま、
現象を確認後にシートを切り替えて、元に戻してみただけで、現象は消えておりました。
要するに、開いたシートでのみ発生している、ということのようです。

現象はSheet1で発生しており、ファイルを開いた時はSheet1が開くようになっていたのですが、
Sheet2に切り替えた状態で保存し、開きなおしてみたところ、
今度はSheet2で現象が発生しました（カーソル移動範囲は4～19行目ではなかったですが）。

やはり、開いた際に起動時のシートに対して何かしているようです。
起動時に実行するモジュールは、ThisWorkBookだけだと思うので、そこを見ているのですが、
すべて完璧に把握して書いたコードではないので、どこかのコードが何か影響しているのかもしれません。
とりあえず、
ThisWorkBookの中だけすべて削除して開きなおしてみたところ、現象は消えました。
（ThisWorkBookの中だけコピーして新規Excelファイルに張り付けて開いてみたけど現象発生しませんでしたが）
なんだかわからないけど何かしていることはわかりました。

回答No.2

misatoanna

シートモジュールに例えば次のように記述すれば、A1にカーソルが乗って
いる状態で[↓]キーを押し続けると、ご質問のように動作します。
[↑]で戻すときは１行目が選択されませんが・・・・

Private Declare Function GetKeyState Lib "user32" _
　　　(ByVal nVirtKey As Long) As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　On Error GoTo Er
　If Target.Row = 20 And GetKeyState(vbKeyDown) < 0 Then
　　Cells(1, Target.Column + 1).Select
　End If
　If ActiveCell.Row = 1 And GetKeyState(vbKeyUp) < 0 Then
　　Cells(20, Target.Column - 1).Select
　End If
Er: On Error GoTo 0
End Sub

シートタブの右クリックメニューの[コードの表示]から開くウィンドウに
このような記述はされていませんか？

補足

回答ありがとうございます。

現象が発生しているシートは、「コードの表示」でみても何も記述されていません。
念のためThisWorkbookの中も見ましたが、それっぽい記述はありませんでした。
（ThisWorkbookに書いても可能かどうかわかりませんが）

また、ご指摘のコードが原因の場合、
仮に19行目を削除したとしても、カーソルの動きは変わらないですよね？
今発生している現象は、
20行目を1行選択して削除することで、20行目が最下段になります。
つまり20行目の削除することで20行目の設定が初期化されたことにより、20行目もカーソルキーでカーソルが乗るようになった、のだと思います。
なので、
20行目以降のセルに何らかの設定がされているせいで現象が発生しているんだと考えています。

下手にマクロ書きすぎたせいでセルの設定がバグっちゃったんでしょうか？？

回答No.1

xls88

「シートの保護」が掛けられていませんか？
ユーザーに許可する操作で
「ロックされたセル範囲の選択」のチェックが外れている
「ロックされていないセル範囲の選択」にチェックが入っている
といった設定がせれているのでは？

補足

回答ありがとうございます。

「シートの保護」はかけられていません。
その操作は別のシートで行っているため、どのような結果になるか把握しているつもりです。
この場合は選択自体ができなくなりますが、
今回質問した件だと、
選択は可能なのに、↓キーだと19行目までしかいかない、という状態です。

ほかに関係のありそうな項目として、
3行目で「ウインドウ枠の固定」を設定してあり、下にどんなにスクロールしても１～３行目は表示されたままになるようにしています。
そのため、例で挙げたA19の時↓キー押すとB1になる、というのは厳密には、
A19の時↓キーを押すとB4に、B19の時↓キーを押すとC4に、なります。

書き忘れましたが、Excel2003です。
このファイルをExcel2010で開いても同じ現象が出ました。