質問: エクセルの表に色を付けたい 毎回違う位置に色を付けたい フィルタの範囲は毎回変わります。 フィルタで「確認」で絞りA列からAC列までに色付けがしたいのですができますでしょうか?
回答: 絞り込んだ物だけ背景を設定する場合です。 Sub sample() ActiveSheet.Range("A:AC").Interior.ColorIndex = xlAutomatic 'A:AC列の背景をクリア ActiveSheet.Range("A:AC").AutoFilter Field:=29, Criteria1:="確認" 'オートフィルタ ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Interior.Color = RGB(&HF8, &HF7, &HFF) 'オートフィルタ範囲の表示しているセルの背景を設定 'ActiveSheet.AutoFilterMode = False 'オートフィルタ解除(必要なら) End Sub