Excel操作の質問です。特定の文字が入力されると、その隣りのセルのシートの色が変わるようにしたい

質問

私はVBA初心者です。

やりたい操作は

「シート内のどこでも、「■」が入力されると、その隣りふたつのセルが灰色に塗りつぶされる」

というものです。

参考までに状況説明です。
メンバーが共有する「タスクリスト」を作成しています。

そこで、終了したタスクがわかりやすいように、タスクを塗りつぶす機能を「条件付き書式」で行っています。
ただ、これだと行の入れ替えなどをしたときに設定がずれたりして、いらいらしてしまいます。
そこでマクロを使用したいのですが、以下のような場合はどうすればよいでしょうか。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
A列が空欄、B列が作業カテゴリ、C列がタスク
A・B・C列の「行１」を結合して、日付が入っています。
行２からタスクが入力されています。
こんなです。
---------------------------------
A B C

１ 7月30日

２ （ ） 採用業務 業者アポ調整

---------------------------------

そして、

D列空欄、E列が作業カテゴリ、F列がタスク
D・E・F列の「行1」を結合して、日付が入っています。

以下、同様に繰り返し、日別タスクリストが横に並んでいます。

■
たとえば、タスクが終了すると、A2の空欄に「1」を入力することにしています。
すると、B2、C2が、灰色で塗りつぶされるようにしたいのです。

こういう基本がありますが、リストのフォームは時々変更されるので「条件付き書式」だとずれるのです。

そこで、上記の操作が自動でできるようにしたいのです。

■
いろいろ調べたのですがVBAの書き方がむつかしく、先に進めそうもありません。
なにとぞよろしくお願いいたします。

回答No.4

mu2011 · ベストアンサー

NO3です。
>計算式に則って「□」から「■」になった場合は、変わりませんでした。
⇒ＶＢＡでは変更を検知できません。
　単純に「■」に変更される条件に書き換えれば可能ですが、表構成の変更都度、書き換えが必要になりますので地道に「条件付き書式設定」で設定して下さい。

お礼

ありがとうございます。

やはり諸々制限というか限界はあるのですね。
でも、教えていただいたものを見ながら、ほかのことに応用をしています。

もっと勉強を進めます。ありがとうございました。

回答No.3

mu2011

NO1です。
回答しましたＶＢＡは、Ａ列に限定せず、任意セルに"■"を入力すると右２列分セルを灰色に塗りつぶす仕様にしていますのでお試しください。

補足

mu2011さま
ご回答をありがとうございました。

”■”を入力すると、色が変わるようになりました。
ありがとうございます。

実は、ひとつ想定外のことがありました。
と言いますのは、

"□"から"■"に変わった時は、マクロが反映されないのです。
実は、「■」を入力する欄には、はじめに「□」が入力されています。

これは、タスク欄「C」にtaskが入ると、自動で「□」が表示されるようになっています。
これは、「□」と「■」の数をカウントしておくことによって、1日の仕事がどれくらい残っているかを常に確認できるようにしているためです。

ですので、「■」が入力される欄には、

=IF(DF15="","",IF(DK15="","□",IF(DK15<="0.00","■")))

のような計算式が入っています。
（DK15の欄には、そのタスクの終了時刻を入れます。つまり終了時刻が入ると、チェックボックスが「□」から「■」に変わるのです）

ご教唆いただいたマクロですと、「■」を直接入力すると、たしかに隣りのセルの色が変わるのですが、計算式に則って「□」から「■」になった場合は、変わりませんでした。

やはり条件付き書式で地道にやっていくしかないのでしょうか。

回答No.2

hige_082

'ワークシートモジュールへ
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Value = "■" Then Exit Sub
Target.Offset(, 1).Resize(1, 2).Interior.ColorIndex = 48
End Sub

お礼

わざわざご回答をいただきありがとうございました。

ワークシートモジュールを初めて使ってみました。

もっと勉強を進めます。

ありがとうございました。

回答No.1

mu2011

一例です。
（１）シートタブ上で右クリック→コード表示→右画面に以下のコードを貼り付け→ＶＢＥ画面終了
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value <> "■" Then Exit Sub
Cells(Target.Row, Target.Column + 1).Resize(1, 2).Interior.ColorIndex = 15
End Sub

補足

文中、誤記がありました。

（誤）
たとえば、タスクが終了すると、A2の空欄に「1」を入力することにしています。
↓
（正）
たとえば、タスクが終了すると、A2の空欄に「■」を入力することにしています。

どうぞよろしくお願いいたします。
ご指摘いただいたみなさま、ありがとうございました。