セルの塗りつぶしについて。

質問

どなたかご存知でしたら回答をよろしくお願いします。
【質問】
　５×６のセルがあり、その中にはランダムに数字が１つ入っています（重複有り）。
　 下記の様に入力値１～６に値を入れたら、５×６のセルを検索する。
　　検索できたら、その数字のセルを塗り潰し、それ以外にその数字の周りにある数字
　　も一緒に塗り潰す。検索できない場合は何もしない。尚、塗り潰しの色は全て同じ色とする。

　★-------　　　以下は具体的に入力値１～６を入れた場合の説明です。　----------★　

　　「入力値1」に08を入れたら、５×６のセルの中にある、08を塗り潰し、
　　それ以外に、05、04、07、19、23、20、21、09も塗り潰す。
　　「入力値２」に41を入れたら、５×６のセルの中にある、41を塗り潰し、
　　それ以外に、38、30、37も塗り潰す。
　　「入力値３」に37を入れたら、５×６のセルの中にある、3箇所ある37を塗り潰し、
　　それ以外に、41、38、30、35、43、39、36、29、18、28も塗り潰す。
　　「入力値４」に29を入れたら、５×６のセルの中にある29を塗り潰し、
　　それ以外に、24、20、23、15、18、33、35、30も塗り潰す。
　　「入力値5」に03を入れたら、５×６のセルの中にある03を塗り潰し、
　　それ以外に01、06、12も塗り潰す。
　　「入力値6」に23を入れたら、５×６のセルの中にある23を塗り潰し、
　　それ以外に20、08、19、06、15、18、29、24も塗り潰す。

　【５×６のセル】　　　　【入力ゾーン】
05 09 21 25 38 41　　　　入力値１：08　
04 08 20 24 30 37　　　　入力値２：41
07 19 23 29 35 43　　　　入力値３：37
01 06 15 18 37 39　　　　入力値４：29
03 12 17 28 36 37　　　　入力値５：03
　　　　　　　　　　　　　　　　入力値６：23

【備考】
　 ・使用する数字は１～９９迄で、５×６のセルにはその中からランダムに選んだ数字が
　　　重複有りで入っています。
　　・使用するエクセルは２０１０です。

以上、よろしくお願いします。

回答No.3

Nouble · ベストアンサー

お邪魔します

出来ました
配列数式を、用い
条件書式により
セル色を、変化させた
なら、
単純ですね

基本式ですが
08が、入っている場所の
条件書式の、式です
=SUMPRODUCT((D3:F5=$B$3)*(1-ISBLANK(D3:F5))+(D3:F5=$B$4)*(1-ISBLANK(D3:F5))+(D3:F5=$B$5)*(1-ISBLANK(D3:F5))+(D3:F5=$B$6)*(1-ISBLANK(D3:F5))+(D3:F5=$B$7)*(1-ISBLANK(D3:F5))+(D3:F5=$B$8)*(1-ISBLANK(D3:F5)))>0

如何ですか？

お礼

やりたいことをズバリ実現して頂きありがとうございます。
添付頂いたエクセルを参考にして同様に処理することができました。
丁寧な回答ありがとうございました。
また、質問を見かけられたら是非回答頂けると助かります。

回答No.4

bunjii

回答No.2の別解です。
条件式は9個に省略できます。
入力値1～6を同時に検索して塗りつぶす条件式
=COUNTIF($I$1:$I$6,A1)
右上のセルを塗りつぶす条件式
=COUNTIF($i$1:$I$6,OFFSET(A1,1,1))
左側のセルを塗りつぶす条件式
=COUNTIF($I$1:$I$6,OFFSET(A1,0.1))
左下のセルを塗りつぶす条件式
=COUNTIF($I$1:$I$6,OFFSET(A1,-1,1))
上のセルを塗りつぶす条件式
=COUNTIF($i$1:$I$6,OFFSET(A1,1,0))
下のセルを塗りつぶす条件式
=COUNTIF($i$1:$I$6,OFFSET(A1,-1,0))
右上のセルを塗りつぶす条件式
=COUNTIF($i$1:$I$6,OFFSET(A1,1,-1))
右側のセルを塗りつぶす条件式
=COUNTIF($i$1:$I$6,OFFSET(A1,0,-1))
右下のセルを塗りつぶす条件式
=COUNTIF($i$1:$I$6,OFFSET(A1,-1,-1))
添付画像は入力値と同じ値のセルは薄い黄色、周りのセルは薄い緑色に塗りつぶしました。

回答No.2

bunjii

入力値が同時に6種類あるとほとんどのセルが塗りつぶされてしまいます。
提示のデータで手動処理したときD1とC5が塗りつぶしなしの状態で残ります。
そのような結果で良いのでしょうか？
条件付き書式で「数式を使用して、書式設定するセルを決定」を使えば処理可能です。
入力値1がI1セルにあるものとして入力値1についての数式を設定するには以下のような数式になります。
A1:F5を選択した状態で条件付き書式を設定します。
入力値1と同じ値のセルを塗りつぶす条件式
=A1=$I$1
左上のセルを塗るつぶす条件式
=A1=OFFSET(A1,1,1)=$I$1
左隣りのセルを塗りつぶす条件式
=A1=OFFSET(A1,0,1)=＄I$1
左下のセルを塗りつぶす条件式
=A1=OFFSET(A1,-1,1)=$I$1
上のセルを塗りつぶす条件式
=A1=OFFSET(A1,1,0)=＄I$1
下のセルを塗りつぶす条件式
=A1=OFFSET(A1,-1,0)=$I$1
右上のセルを塗りつぶす条件式
=A1=OFFSET(A1,1,-1)=$I$1
右隣りのセルを塗りつぶす条件式
=A1=OFFSET(A1,0,-1)=$I$1
右下のセルを塗りつぶす条件式
=A1=OFFSET(A1,-1,-1)=$I$1
入力値1～6を同時に検索対象にするときは上記の条件式に準じて$I$1を$I$2～6に修正した数式を追加設定してください。
添付画像は入力値1のみについてExcel 2013で検証したものですがExcel 2010でも再現できるはずです。

お礼

回答頂きありがとうございます。
OFFSETの使いこなしで実現できるのですね。
私のエクセルでも同じ結果になりました。
ありがとうございました。

回答No.1

imogasi

面倒な問題だな。
テストに手間と時間がかかって大変。
ーー
下記コードの
Cells(r, c).Select
までぐらいなら、ＶＢＡをする人は、だれでもわかるだろう。
本質問は丸投げだな。
ーー
質問者の方で、下記のコードをテストしてみて。
小生はマス目にない値ではテストしてない。
他にＩＮＴＥＲＣＥＰＴ関数利用など考えたが、良くならない。
もっとすっきりしたコードの回答が別に出れば小生も勉強します。
ーー
例データ　Ａ１：Ｆ５　
必ず全セルの値は数値データとする　０１は書式設定で０１に見えているように
するものとする。
5 9 21 25 38 41
4 8 20 24 30 37
7 19 23 29 35 43
1 6 15 18 37 39
3 12 17 28 36 37
下記Ｘ＝　の値をいろいろ変えてテストすることになる。
標準モジュールに
Sub test01()
Range("a1:F5").Interior.ColorIndex = xlNone
MsgBox "AA"
x = 12
Set a = Range("a1:F5").Find(what:=x, LookIn:=xlValues, LookAt:=xlWhole)
a.Select
r = a.Row
c = a.Column
Cells(r, c).Select
MsgBox "B"　 '指定の値のセルが見つかった
h = Array(0, -1, -1, -1, 0, -1, 1, 0, -1, 0, 1, 1, -1, 1, 0, 1, 1)
For i = 1 To 16 Step 2
If r + h(i) < 6 And c + h(i + 1) < 7 And r + h(i) > 0 And c + h(i + 1) > 0 Then
Cells(r + h(i), c + h(i + 1)).Select
MsgBox "A"
Selection.Interior.Color = vbGreen
Else
MsgBox "XXX"　’範囲外
End If
Next i
End Sub
上記は
Cells(r, c).Select
でテスト状況（中間での状況）でわかりやすいように、あえてセルに色を付けてないが、納得で来たら、そのセルにも、色を付けるコードを入れてください

お礼

回答頂きありがとうございます。
ＶＢＡではこの様に処理する様に記述するのですね。
早速やってみます。