エクセルでのセルの移動規制について

質問

エクセルで、Ａ１，Ａ２，Ａ３,Ｂ１,Ｂ２,Ｂ３と、永遠に３行だけセルの移動をさせるにはどの様にしたらいいのでしょうか？お知恵をお貸し下さい。お願いいたします。

回答No.8

noname#22222 · ベストアンサー

無限循環ですかー...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Row = 4 Then
　　　　Cells(1, Target.Column + 1).Activate
　　End If
End Sub

お礼

お返事が遅れ、申し訳ございませんでした。頂きましたアドバイスで、上手く動かすことが出来ました。本当にありがとうございます。ＶＢＡとか使う機会が全くございませんので、いい勉強にもなりました。本当にありがとうございます。

回答No.9

Wendy02

#6 の変更
良く確かめて、お好きなものをすればよいけれど、以下は、マクロではあっても、単に、設定するだけのマクロです。

Private Sub Workbook_Open()
　'シート1 の場合
　Worksheets("Sheet1").ScrollArea = Range("1:3").Address
End Sub

これは、IV3 までいくと、A1 に戻ります。

お礼

お返事が遅れ、申し訳ございません。おかげさまで上手く動かすことが出来ました。本当にありがとうございます。マクロなど使う機会が少ないため、今回は、いい勉強になりました。本当にありがとうございました。

回答No.7

keirika

(1)名前ボックスにA4:A65536と入力し、Enterを押します。
(2)メニューバーの書式＞行＞表示しないを選択
(3)行番号1から3を選択し、入力を始めます

再表示する場合はA列を選択し、メニューバーの書式＞行＞再表示です。

お礼

お返事が遅れ申し訳ございませんでした。まだまだスキルが低く、色々アドバイスいただき、ありがとうございました。おかげさまで上手く動かすことが出来ました。本当にありがとうございました。

回答No.6

Wendy02

こんにちは。

設定の仕方は、Alt + F11 で、VB Editor 画面を開けてもらって、左上のプロジェクトのウィンドウの中の[ThisWorkbook]をダブルクリックしていただいたら、以下のコードを貼り付けていただき、ブックを一旦閉じて、開ければ設定できます。

手動でも設定できるのですが、その場合は、ブックを閉じると設定が消えてしまうので、このようにします。

Private Sub Workbook_Open()
　'シート1 の場合
　Worksheets("Sheet1").ScrollArea = Range("A1:B3").Address
End Sub

これは、#1さんの考え方と同じなのですが、完全に、他のセルにはマウスさえ触らせないようにする方法です。それは、#3さんのコードとの違いでもあります。

他のEnter イベントという方法もありますが、VBAをご存知ないと、ちょっと負担が大きすぎるような気がしましたのでやめました。

お礼

お返事が遅れ、申し訳ございませんでした。ご解答、ありがとうございます。私がやりたかったのが、他のセルも触りつつ、循環はＡ１，Ａ２、Ａ３・・・と巡廻するものでした。皆様のおかげで上手く動かすことが出来ました。本当にありがとうございました。

回答No.5

imogasi

区域外のセルを選択しようとしたとき、どこを選択するのでしょうか。
入力後の選択は、Ａ１－＞Ａ２，Ａ２－＞Ａ３、Ａ３－＞Ｂ１・・
として。
（１）セル選択の制限
（２）入力後のセル選択の移動
の２つの問題が含まれていて、ＶＢＡでＳｅｌｅｃｔｉｏｎＣｈａｎｇｅイベントだけでなく、Changeイベントの製薬も必要になるのかな
と思います。
選択の点では
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
c = Target.Column
r = Target.Row
If c > 3 And r > 3 Then
r = 1
c = 1
GoTo ext1
End If
'---
If c > 3 Then
c = 1
r = r + 1
If r > 3 Then
r = 1
End If
GoTo ext1
End If

'---
If r > 3 Then
r = 1
c = c + 1
If c > 3 Then
c = 1
End If
End If
'----
ext1:
Cells(r, c).Select
Application.EnableEvents = True
End Sub
ただしこれが良いのか自信ありません。
＃２のご回答の機能＋区域がいの処理です。

お礼

お礼が遅れて申し訳ございません。早々のご解答ありがとうございました。
なかなかＶＢＡって難しいものですね。うまく解決することができました。ありがとうございました。

回答No.4

noname#22222

s_husky です。

Ｓｈｅｅｔ1 の A1->A2->A3->B1->B2->B3->A1->A2・・・という循環移動を実現するには、

１、Sheet1 のタグを右クリック->コードの表示(V)を選択。
２、(General)->Worksheet に変更。
３、Worksheet_SelectionChange(ByVal Target As Range)にコードをコピーします。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
（ここに、 IF-End If までのコードをコピー）
End Sub

以上で、循環移動が実現できます。

お礼

ご解答ありがとうございます。上手く動きました！ただ、私がやりたいことなんですが、A1->A2->A3->B1->B2->B3->c1->c2->c3->d1->d2->d3->という循環を実行したいのです。なにかいいお知恵はないでしょうか？

回答No.3

noname#22222

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Row = 4 Then
　　　　If Target.Column = 1 Then
　　　　　　Cells(1, 2).Activate
　　　　ElseIf Target.Column = 2 Then
　　　　　　Cells(1, 1).Activate
　　　　End If
　　End If
End Sub

※Excel の操作経験がないので、こんな回答しか思い付きません！

お礼

早々の回答ありがとうございます。ＶＢＡですね。私自身、ＶＢＡを使ったことがないので。。。どのように使ったらいいのでしょうか？よろしければお教え下さい

回答No.2

noname#16474

１、２、３の行を選択した状態で入力します
エンターキーを押すたびにご希望の順で入力できます

お礼

早々の回答ありがとうございます。お教えいただいたやり方だと、私のやり方が悪いのかも知れないのですが、入力ができないんですがなにか方法があるのでしょうか？

回答No.1

shikisaito

1:3行を選択した状態で、[書式]-[セル]-[保護]の[ロック]をOFF。
[ツール]-[保護]-[シートの保護]の
「ロックされたセル範囲の選択」をOFF。
(Excel2003で確認)

お礼

早々の回答ありがとうございます。
私のやり方が悪いのかも知れませんが、お教えいただいたやり方だと、ずっと、Ａ１が起点になってしまうようなんですけど、他に設定することが必要なんでしょうか？