• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:6つのセルを1つの塊り(マス)と捉えて塗潰す方法)

6つのセルを1つの塊りとして塗潰す方法

このQ&Aのポイント
  • 質問文章について、6つのセルを1つの塊りとして塗潰す方法について説明があります。
  • 180個のセルを計30マスにまとめ、1つのマスに一致した数字の個数に応じて色分けする手順が指定されています。
  • 具体的な手順や注意事項などが詳細に記載されており、検索値に対して合致するセルがどのように塗り潰されるかも示されています。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

>(2)1つのマスに一致した数字が2個の場合は赤色で塗り潰す。 >a1,b1,c1,a2,b2,c2 ・・・ 2個一致なので、緑色で塗潰される。 矛盾していませんか? (1)1つのマスに一致した数字が1個の場合は黄色く塗り潰す。 (2)1つのマスに一致した数字が2個の場合は赤色で塗り潰す。 上記のルールで行います。 T1に検索値を置きました。 Sub test()   Dim i As Long, j As Long, n As Long   Dim Colors As Variant   Colors = Array(vbWhite, vbYellow, vbRed, vbGreen, vbBlue, vbMagenta, 42495)   Range("A1:R10").Interior.Color = xlNone   For i = 1 To 9 Step 2     For j = 1 To 16 Step 3       n = Application.CountIf(Cells(i, j).Resize(2, 3), Range("T1").Value)       Cells(i, j).Resize(2, 3).Interior.Color = Colors(n)     Next   Next End Sub

moguo4649
質問者

お礼

いつも回答いただいきありがとうございます。 前回の質問をコピーしたため内容不一致箇所があり申し訳ありませんでした。 色の部分については了解しました。

関連するQ&A