VBAにて、アクティブセル更新時に右隣のセルを検索し、背景色に応じてSelectしたい。

前提・実現したいこと

VBAで以下を実現したいです。
『アクティブセルに更新が入った場合、右隣のセルを検索して背景色が白ならばそのセルに移動(select)する。グレーであれば次の右隣のセルを検索する。これをアクティブセルの行の間繰り返す』

現在、背景色が白の空白セルには文字を入力しますが、背景色がグレーの空白セルには文字を入力しないため、上記のような事を実現したいです。

今までは、以下の簡単なコードを使って背景色に関係なく右隣のセルに移動してたのですが、もし実現できたら改善に繋がるという思いです。

自分でも調べた結果、OffsetにFind、For Each文等を組み合わせて使うのかな？とは思いましたが、全くの初心者のためお力を貸していただきたく投稿しました。

宜しくお願いいたします。

コード

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row >= xx And Target.Row <= xx) And (Target.Column >= xx And _
Target.Column <= xx) Then
ActiveCell.Offset(0, 1).Select
End If
End Sub

meg_

2019/10/01 12:38

コードが読みにくいので、「コードの挿入」で記入してください。

k_t_ayana

2019/10/01 13:37

アドバイスありがとうございます。次回より活用させていただきます。

hatena19

2019/10/02 00:44

質問は編集できますので、今からでもマークダウンのコードタグ内に入れてください。コード部分を選択してツールバーの <code> をクリックでできます。

k_t_ayana

2019/10/02 04:17

コードのタグ内に入るように編集いたしました。ありがとうございます！

行動規範の内容に同意します

回答2件

マクロを使わなくてもセルのロック（実際には入力するセルをロックの解除をする）をして、
シートの保護をしたら、
Tabキー押下でそのような挙動ができます。

マクロを使うと「元に戻す」の履歴がクリアされて元に戻したいときに戻せないので、
不便です。
まぁ、そういう場面はあまりないかもしれませんが、
一応知っておいて損はないと思います。

とはいえTabキー押下で右移動は割と不評なので、
使っている人は少ないかもですね。

投稿2019/10/02 00:33

mattuwan

総合スコア2163

k_t_ayana

2019/10/02 04:18

Tabに使用に関する情報ありがとうございます！今はセルには『OK』とか名前くらいしか入れませんが、今後のためにメモさせていただきます。

行動規範の内容に同意します

ベストアンサー

こんな感じでしょうか？

vba
1Private Sub Worksheet_Change(ByVal Target As Range)
2    
3    Dim i As Integer
4    
5    For i = Target.Column + 1 To ActiveSheet.Columns.Count
6        If ActiveSheet.Cells(Target.Row, i).Interior.Color <> RGB(128, 128, 128) Then
7            ActiveSheet.Cells(Target.Row, i).Select
8            End
9        End If
10    Next i
11    
12End Sub

投稿2019/10/01 12:58

meg_

総合スコア10739

k_t_ayana

2019/10/01 13:38

ご回答いただきましてありがとうございます！明日早速試してみますので、お待ちいただけたら幸いです。

k_t_ayana

2019/10/02 04:34

ご記載いただいた内容で、思っていたとおりの動きになりました！本当にありがとうございます…！もしよろしければですが、、 ↓のような理解であっていますでしょうか。。(伝わりづらかったらすみません) for文引数「i」には、アクティブシートの行番号 + 1をもとに1ずつ足していく。 if文背景がグレー以外の場合はif文を終了する。終了時点のiの値分、右隣のセルに移動(Select)する。背景がグレーの場合はiに1を増やして、for文を繰り返す。