VBA小例子,用来自动填充单元的颜色