sub 複数分岐()
if range(“b4″).value=”” then
activesheet.tab.colorindex=3
elseif range(“b4”).value>=40 then
activesheet.tab.colorindex=5
elseif range(“b4”).value>=30 then
activesheet.tab.colorindex=37
else
activesheet.tab.colorindex=xlcolorindexnone
end if
end sub