请大师帮实现单元格中相应数字自动变色处理，谢谢，详见附件

请大师帮实现单元格中相应数字自动变色处理，谢谢，详见附件
就是对单元格中相应数字自动变色，请大师给写一函数，谢谢。

由于本人对VB一窍不通，拜请大师相助！！