質問: cells(j, 7).interior.colorindex end if next j next i end sub
回答: 実行契機は、同シート内任意セルが変化した時、設定範囲はc1:c最終行で、f列に同一の値があれば、f列に対応するg列の書式を設定するようにご質問者が提起した要件に基づいてコード化されているのだから類推できると思うが如何でしょうか。 実行契機:private sub worksheet_selectionchange(byval target as range) 適用範囲:for i = 1 to cells(rows.count, 3).end(xlup).row 色付け条件:for j = 1 to cells(rows.count, 6).end(xlup).row if cells(i, 3) = cells(j, 6) then cells(i, 3).interior.colorindex = cells(j, 7).interior.colorindex 因みにcells(行,列)の3はc列、6はf列、rows.countはその列の最終行データです。