質問: xlnone '無色 end select end if next end sub
回答: for each の使い方を解っているようなので、シートもfor eachで回せば良いだけです。 検証していないので、動かない可能性大です(笑) sub 条件付4色の標本数1() dim 処理範囲 as range dim 先頭の行番号 as long dim 全体の行数 as long dim 各シート as worksheet dim 各セル as range dim 差分 as single dim 標本数 as single for each 各シート in worksheets with 各シート set 処理範囲 = .range("d5:ai50") for each 各セル in 処理範囲 標本数 = .cells(各セル.row, "c").value if 標本数 >= 30 then 差分 = 各セル.value - .cells(4, 各セル.column).value select case 差分 case is <= -10 各セル.interior.colorindex = 37 'ペールブルー 各セル.font.colorindex = 1 case is <= -5 各セル.interior.colorindex = 34 '薄い水色 各セル.font.colorindex = 1 case is >= 10 各セル.interior.colorindex = 6 '黄37 各セル.font.colorindex = 1 case is >= 5 各セル.interior.colorindex = 19 '薄い黄 各セル.font.colorindex = 1 case else 各セル.interior.colorindex = xlnone '無色 end select end if next 各セル end with next 各シート end sub