我现有一表,首先判断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 )中的值设置为绿色。请问各位大侠这段语句该怎样写代码?求助了

解决方案 »

  1.   


    lz是否在excell试着画过区域
    根本就是矛盾的,相互交叉很多
      

  2.   

    楼主的表达实在是让人费解。说的太模糊了。
    试着写了一下,不知道是否是楼主想要的。
    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
      

  3.   

    你把下面的操作录个宏,自己改一下:
    (假定是从 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 的格式往下刷就可以了。
      

  4.   

    是这个形式,可是仅为第e列的,不能从E到K列都运行该程序