sub 高亮()for i = 2 to 101if cells(i,2).value > 500 then cells(i,2).selectselection.font.bold=True ‘粗体selection.font.colorindex = 3 ‘红色字体end ifNextend sub
vba练习题-高亮
原文:http://blog.51cto.com/11729955/2325236