我现有一表,首先判断range("e"& i )列的数据是否与单元格区域中的值range("e4:v4")中的一个值相等,如相等,则选择与range("e4:v4")中相等值所在的列、和与range("e"& i )同行的单元格cell(i, ),然后再又判断该单元格cell(i, )的值是否大于或等于同行另一列单元格(假使为range("L"& i )),如果该条件(大于或等于range("L"& i ))成立,则可将单元格range("e"& i )中的值设置为红色,反之,如果小于range("L"& i )单元格中的值,则可将单元格range("e"& i )中的值设置为绿色。请问各位大侠这段语句该怎样写代码?求助了
lz是否在excell试着画过区域
根本就是矛盾的,相互交叉很多
试着写了一下,不知道是否是楼主想要的。
for i=5 to 500 '假设判断的是从E列第五行往下的。
for j=5 to 22 'E列到V列
if range("E" & i) = cells(4,j) then'判断range("e"&i)列的数据是否与单元格区域中的值range("e4:v4")中的一个值相等
range(cells(i,j),cells(i,j)).select '如相等,则选择与range("e4:v4")中相等值所在的列、和与range("e"& i )
'同行的单元格cell(i, )
if range(cells(i,j),cells(i,j)).value >= Range("L" & i) then
Range("E" & i).Interior.ColorIndex=3 '红色
else
Range("E" & i).Interior.ColorIndex =4 ‘绿色
endif
endif
next j
next i
(假定是从 E6 开始往下的)
1)选中 E6 单元,
2)菜单“格式\条件格式”
3)“条件1”用公式: =HLOOKUP(E6,E$4:V$4,1,FALSE)>=L6
格式设为红色
4)“条件2”用公式: =HLOOKUP(E6,E$4:V$4,1,FALSE)<L6
格式设为绿色
5)确定,关闭对话框
6)用工具条上的“格式刷”将 E6 的格式往下刷就可以了。