VBA初心者でも、すぐエクセルの自動化ができます。
質問
フィルター結果のセルに色を付ける(行と列の交点に色)
フィルターで、表の2列目で、数字が7のセルに色を付ける
アプリの画面
フィルター条件は、A列からの列数ではなく、表の中で何列目かを指定します。
ここで指定します。
表示されるコード
Sub デモ_23() 'フィルター条件1つ
Dim セル範囲 As String, セル As Range, 右下セル As String
Sheets("sheet1").Select
セル範囲 = "a1:g20"
Range(セル範囲).Select
Call デモ_23_メイン処理 (セル範囲)
End Sub
Sub デモ_23_メイン処理 (セル範囲 As String )
Range(セル範囲).AutoFilter Field:= 2, Criteria1:="=7"
On Error Resume Next
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).Select
Dim 重なり As Range, 列 As Long
列 = Range("a1").Column + 2 - 1
Set 重なり = Intersect(Selection, Columns(列))
重なり.Interior.Color = RGB(255,255,0)
Sheets("sheet1").AutoFilterMode = False
End sub