2018/03/03
fice
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から始まり、データがある最下行を範囲(空白はありません)として 検索対象と致したく思います。 どのようにしたら良いでしょうか?ご教示下さい(続きを読む)
- 関連記事
-
- 葉加瀬マイ (2018/03/03)
- アゲハ蝶 (2018/03/03)
- fice (2018/03/03)
- 今井遥 (2018/03/03)
- ダウ (2018/03/02)