VBA Excel で、 セルA1(Sheet1)をsheet1以外のSheetから検索して、 検索したセルの上のセルを色塗りつぶししたいのですが、 教えてください。
VBA Excel で、 セルA1(Sheet1)をsheet1以外のSheetから検索して、 検索したセルの上のセルを色塗りつぶししたいのですが、 教えてください。
Excel・20閲覧
ベストアンサー
何色にするかは、 VBA ColorIndex で検索してください。 アレンジはご自分でどうぞ。 Sub Sample() Dim buf As Worksheet, sh As Worksheet Dim fnd As Range Dim tmp As String, key Set sh = Sheets("Sheet1") key = sh.Range("A1") For Each buf In Worksheets If buf.Name <> sh.Name Then Set fnd = buf.Cells.Find(key, LookAt:=xlWhole) If Not fnd Is Nothing Then tmp = fnd.Address Do If fnd.Row > 1 Then _ fnd.Offset(-1).Interior.ColorIndex = 6 Set fnd = buf.Cells.FindNext(fnd) If fnd.Address = tmp Then Exit Do Loop End If End If Next buf End Sub
質問者からのお礼コメント
早速の回答ありがとうございます。 すごいですね完璧です。
お礼日時:2020/12/1 10:56