进入EXCEL。按ALT+F11点“插入”--“模块”,在右边代码框中输入以下代码:
function dj(cj)
select case cj
case is<=60
dj="d"
case is>60
dj="c"
end select
end function
关闭VB窗口
在你需要输入等级的单元格内,输入“=dj(有学生成绩的单元格)“,注意,这一行不包括双引号。
你在格式里用条件格式,60以下的选个颜色填充,60以上(包含60)的不填充颜色就OK
18931103@qq.com
发过来