sub 条件分岐 ()
select case range(“b4”).value
case Is >=50
activesheet.tab.colorindex=11
case Is >=40
activesheet.tab.colorindex=5
case Is >=30
activesheet.tab.colorindex=33
case Is >=20
activesheet.tab.colorindex=37
case Is >=10
activesheet.tab.colorindex=34
case else
activesheet.tab.colorindex=3
end select
end sub