如何在vba中实现满足条件的单元格填充相应的颜色

条件格式，设置四个条件

选择A列，条件格式公式输入=AND(A1=MAX($A1:$D1),A1<>"")，填充选择红色

选择B列，条件格式公式输入=AND(B1=MAX($A1:$D1),B1<>"")，填充选择绿色

选择C列，条件格式公式输入=AND(C1=MAX($A1:$D1),C1<>"")，填充选择蓝色

选择D列，条件格式公式输入=AND(D1=MAX($A1:$D1),D1<>"")，填充选择紫红色

如果是单元格输入格式化数字（如小数点定位，XX元等），可以设置单元格式，完成简单的工作
如果担心输入了不合要求的数据，请用数据有效性
如果输入很复杂，要就要写个change事件的过程，监测单元格数据的变化，并作出相应的处理

输入你的判断条件 设置格式属性就行
Range("B1:D8")Select
第一种A=1：SelectionNumberFormatLocal = "000_);(000)"
第二种A=2：SelectionNumberFormatLocal = "000%"
第三种A=3：SelectionNumberFormatLocal = "G/通用格式"

1VBA对单元格赋值：
1）对指定单元格：[A1]=Rnd(） 随机数
2）对选定单元格或选定的区域：ApplicationSelection ="你好"
2分段设置格式
条件格式：例：选定A列-格式-条件格式，
条件：公式，=ROW()<11时图案为红色 前10行背景红色
=ROW()<21时图案为绿色 10-20行背景绿色

---