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

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

No.8 ベストアンサー 回答者： noname#22222 回答日時： 2006/02/26 07:08

無限循環ですかー...

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

この回答へのお礼

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

お礼日時：2006/02/26 20:54

No.9 回答者： Wendy02 回答日時： 2006/02/26 11:46

#6 の変更

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

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

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

この回答へのお礼

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

お礼日時：2006/02/26 20:59

No.7 回答者： keirika 回答日時： 2006/02/25 12:31

(1)名前ボックスにA4:A65536と入力し、Enterを押します。

(2)メニューバーの書式＞行＞表示しないを選択
(3)行番号1から3を選択し、入力を始めます

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

この回答へのお礼

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

お礼日時：2006/02/26 20:53

No.6 回答者： Wendy02 回答日時： 2006/02/25 11:27

こんにちは。

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

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

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

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

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

この回答へのお礼

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

お礼日時：2006/02/26 20:50

No.5 回答者： imogasi 回答日時： 2006/02/25 11:13

区域外のセルを選択しようとしたとき、どこを選択するのでしょうか。

入力後の選択は、Ａ１－＞Ａ２，Ａ２－＞Ａ３、Ａ３－＞Ｂ１・・
として。
（１）セル選択の制限
（２）入力後のセル選択の移動
の２つの問題が含まれていて、ＶＢＡでＳｅｌｅｃｔｉｏｎＣｈａｎｇｅイベントだけでなく、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
ただしこれが良いのか自信ありません。
＃２のご回答の機能＋区域がいの処理です。

この回答へのお礼

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

お礼日時：2006/02/26 20:48

No.4 回答者： noname#22222 回答日時： 2006/02/25 10:38

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->という循環を実行したいのです。なにかいいお知恵はないでしょうか？

お礼日時：2006/02/25 21:29

No.3 回答者： noname#22222 回答日時： 2006/02/25 09:13

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 の操作経験がないので、こんな回答しか思い付きません！

この回答へのお礼

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

お礼日時：2006/02/25 10:03

No.2 回答者： noname#16474 回答日時： 2006/02/25 08:39

１、２、３の行を選択した状態で入力します

エンターキーを押すたびにご希望の順で入力できます

この回答へのお礼

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

お礼日時：2006/02/25 08:50

No.1 回答者： shikisaito 回答日時： 2006/02/25 08:39

1:3行を選択した状態で、[書式]-[セル]-[保護]の[ロック]をOFF。

[ツール]-[保護]-[シートの保護]の
「ロックされたセル範囲の選択」をOFF。
(Excel2003で確認)

この回答へのお礼

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

お礼日時：2006/02/25 08:48