[[20240405125936]]　『検索値がある表の特定のセルへの着色の方法につい』（ももも）　ページの最後に飛ぶ

『検索値がある表の特定のセルへの着色の方法について』（ももも）

      A     B      C      D      E      F      G      H      I
 1  12                                              検索値　102
 2 項目1  項目2  項目3  項目4  項目5  項目6         項目1  項目2
 3  0      100
 4  1      101
 5  2      102
 6  3      103
 7　4      104
 8  13                                             
 9  項目1  項目2  項目3  項目4  項目5  項目6         
 10  0       99
 11  1      100
 12  2      101
 13  3      102
 14　4      103

 と、なっている表があるときに「検索値」の[102]に該当する
 値が項目２にある時に上記表の「A1セル」「A8セル」に色を着色
 したいのですがやり方が分かりません。
 一目で、「102」が含まれるのがどこなのかを知りたいのです。
 ご教示願います。
 この表は、下方向へ700弱続きます。
 宜しくお願いします。

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

B列選択後、普通に検索と置き換えで全て検索して、置き換え欄の下に表示されたセルをCtrl+Aで全部選択して色を塗ればいいかと
（たぶん） 2024/04/05(金) 13:29:54

 その表は、行数が例えば5行とか固定なんですか？
 それとも表ごとに異なることがあるのですか？
（xyz） 2024/04/05(金) 13:33:13

 マクロ案。標準モジュールにコピーし、マクロtestを実行してください。

 Sub test()
     Dim lastRow&
     Dim v
     Dim k&

     lastRow = Cells(Rows.Count, "B").End(xlUp).Row
     v = Range("I1")
     For k = 3 To lastRow
         If Cells(k, "B") = v Then
             Cells(k, "B").End(xlUp).Offset(-1, -1).Interior.Color = vbRed
         End If
     Next
 End Sub
（xyz） 2024/04/05(金) 13:45:00

 Sub sample()
    Application.ReplaceFormat.Interior.Color = RGB(255, 0, 0)
    Columns("B").Replace What:="102", Replacement:="102", LookAt:=xlWhole, ReplaceFormat:=True
 End Sub
 とか
 Sub sample2()
    With Columns("B").FormatConditions.Add(Type:=xlExpression, Formula1:="=B1=$I$1")
         .Interior.Color = RGB(255, 0, 0)
    End With
 End Sub
 とか
　
 条件付き書式がいいとおもいますけど
（´・ω・`） 2024/04/05(金) 15:15:11

xyz　様

まさにこれです。
でも、検索値変更のたびにリセットしたいです。
（´・ω・`）さんのは、リセットできるのですが
項目２の該当セルへ着色されてしまうのが気になります。
でも、入力変えると1つ前の値の分がリセットされるのが
使いやすいなと思いました。
あと、黄色の着色にしたいのですがxyzさんの方は変更できたのですが
（´・ω・`）さんの方は、色番号変更しても（255,255,0）赤のままでした・・・。
（ももも） 2024/04/05(金) 16:08:49

 A列を選択して、塗りつぶしなし　
 とする動作をマクロ記録したものを
 冒頭に挿入するだけですよ。
（xyz） 2024/04/05(金) 16:51:48

xyz 様

リセット、出来ました!

（´・ω・`）さんの方は、検索値を変更するとそのたびに着色される
場所が自動で変更されるのはなんでなんでしょうか？

両方を組み合わせて使うのが分かり易いかなと思ったのですが組み合わせても
単体でしか動作してないようにしか見えなくて・・・。
検索値を、変更すると両方の該当箇所に着色出来るようになると嬉しいのですが。

Sub 検索1()

     Reset
     Dim lastRow&
     Dim v
     Dim k&

     lastRow = Cells(Rows.Count, "B").End(xlUp).Row
     v = Range("I1")
     For k = 3 To lastRow
         If Cells(k, "B") = v Then
             With Columns("B").FormatConditions.Add(Type:=xlExpression, Formula1:="=B1=$I$1")
                Cells(k, "B").End(xlUp).Offset(-1, -1).Interior.Color = vbGreen
             End With
         End If
     Next
 End Sub

また、「項目２」に関しての着色は最終的には最終値のとこのみ着色されるようになると
いいなと思っています。
下記の表だと・・・

1 12 ←ここと検索値　99

 2 項目1  項目2  項目3  項目4  項目5  項目6         項目1  項目2
 3  0       99　←ここに着色
 4  1      101
 5  2      102
 6  3      103
 7　4      104
 8  13 ←ここのみ着色                                            
 9  項目1  項目2  項目3  項目4  項目5  項目6         
 10  0       98
 11  1       99
 12  2      101
 13  3      102
 14　4      103
 15 14 ←ここと
 16  項目1  項目2  項目3  項目4  項目5  項目6         
 17  0       97
 18  1       99　←ここに着色
 19  2      102
 20  3      103
 20　4      104

 と、いうような感じなのですが・・・。
（ももも） 2024/04/06(土) 10:35:19

コメント返信：

[ 一覧(最新更新順) ]

[[20240405125936]] 『検索値がある表の特定のセルへの着色の方法につい』（ももも） ページの最後に飛ぶ

[[20240405125936]]　『検索値がある表の特定のセルへの着色の方法につい』（ももも）　ページの最後に飛ぶ