|
飛んだ先のシートのA列に会社名が書いてあるとして、
A列に AutoFilter のコード例です。
Sub 別シートの会社名セルに色を付ける()
Dim c As Range
Dim Sheetname As String
Dim CompanyName As String
'ActiveSheetは 「会社情報一覧」
If ActiveCell.Column <> 1 Then Exit Sub
'ActiveCellが A列のときだけ実行する
CompanyName = ActiveCell.Value
Set c = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft)
If c.Value <> "○" Then Exit Sub
Sheetname = Cells(1, c.Column).Value
'対象シートのA列にフィルタをかける
With Worksheets(Sheetname).Cells(1).CurrentRegion.Columns(1)
.AutoFilter 1, CompanyName
'ヒットした行があれば 色を付ける
If .SpecialCells(xlVisible).Count > 1 Then
Intersect(.Cells, .Offset(1)).Interior.Color = vbCyan
End If
.AutoFilter
End With
End Sub
|
|