Fowler, Bobby (Ocoee) Fowler, Bobby (Ocoee) The ChattanooganFull coverage(続きを読む)
Sub Macro1() 'sheet1とsheet2にある1/25のセル背景を赤くする Dim a As Workshee... Sub Macro1() 'sheet1とsheet2にある1/25のセル背景を赤くする Dim a As Worksheet For Each a In Worksheets If a.Name = "Sheet1" Or a.Name = "Sheet2" Then a.Select Cells.Find(What:="1/25", LookIn:=xlValues, LookAt:=xlWhole).Interior.ColorIndex = 3 End If Next End Sub 上記コードでsheet1とsheet2にある1/25という日付を検索し、あれば、 セルの背景色を赤くしています sheet1とsheet2に検索対象が必ずあるというコードになります what:=の部分を以下のように設定したく思います sheet13のB列を対象として、B6から始まり、データがある最下行を範囲(空白はありません)として 検索対象と致したく思います。 どのようにしたら良いでしょうか?ご教示下さい(続きを読む)