VBAで特定の色のついたセルに決められた言葉を入れる

Question

前提・実現したいこと

緑＝組み立て　青＝検査などと決めておいて
下の画像のような場合にD2：G9の範囲の
セルに決まった言葉を入れることは可能でしょうか。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

一例。

Sub sample()
    Dim d 'As Scripting.Dictionary
    Set d = CreateObject("Scripting.Dictionary")
    
    Dim ws As Worksheet
    Set ws = Sheets(1)
    
    Dim c As Range
    For Each c In ws.Columns("B").SpecialCells(xlCellTypeConstants)
        d(c.Offset(, -1).Interior.Color) = c.Value
    Next
    
    For Each c In ws.UsedRange
        If c.Column > 1 Then
            If d.Exists(c.Interior.Color) Then c.Value = d(c.Interior.Color)
        End If
    Next
End Sub

Answer 2

foreachでRange("D2：G9")の範囲を回してCells().Interior.ColorIndexで１セルずつ色をif文判定すれば良いでしょう。

Answer 3

マクロ　どこまで理解されているのかわかりませんが、私も初心者です。
まず「Ａ２」と「Ａ３」のセルの色番号を取得する
Webで検索：https://programming-study.com/technology/vba-cell-color-syutoku/
'組み立ての色番号取得する
色番号(0) = Cells(2, 1).Interior.ColorIndex
色番号(1) = Cells(3, 1).Interior.ColorIndex
'セル範囲内をループで色番号を検索します
’条件に合った色番号だったら"組み立て"・"検査"を転記
’セル移動のとき、わざとSelectしています目視確認のためです
そのためにはPC画面の右半分をモジュール画面・左半分をシート画面に！
１度モジュール画面をクリック（好きなとこOK）次に［Ｆ８］キーをクリック
黄色い帯状のカーソルが表示されます

変数名などにカーソルを当てると、現在、取得している値を確認できます

Sub 言葉を入れる()
Dim 色番号(1) As Long, 番号 As Long
Dim i As Long
Dim ii As Long

'組み立ての色番号取得する
   色番号(0) = Cells(2, 1).Interior.ColorIndex
   色番号(1) = Cells(3, 1).Interior.ColorIndex
'セル範囲内をループで検索します

    For i = 1 To 8 '行＜縦方向＞
     For ii = 1 To 4 '列＜横方向＞
       Cells(i + 1, ii + 3).Select
       'セル色番号を取得
        番号 = Cells(i + 1, ii + 3).Interior.ColorIndex
        If 色番号(0) = 番号 Then Cells(i + 1, ii + 3) = _
           "組み立て"
        If 色番号(1) = 番号 Then Cells(i + 1, ii + 3) = _
           "検査"

     Next ii
    Next i
End Sub