MENU

【質問】フィルター結果のセルに色を付ける(行と列の交点に色)

VBA初心者でも、すぐエクセルの自動化ができます。

質問

フィルター結果のセルに色を付ける(行と列の交点に色)

フィルターで、表の2列目で、数字が7のセルに色を付ける

f:id:The-Alchemist:20220126210010p:plain

アプリの画面

f:id:The-Alchemist:20220126204039p:plain

 

 

 

 

 

 

 

 

 

 

 

 

フィルター条件は、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    

 

アプリはこちらから↓↓↓↓