表格校验报错

zhaozhongbao

各位好：

   在原有excel校验中增加了一个校验后，即若F7开始的每个数据数据要大于该列数据平均值的5倍执行校验报错，烦请帮忙看看哪里出错了或者帮忙把这个校验加上，不胜感激！

alstar

If a = Application.Average(Range("f7:f" & Range_id.Rows.Count - 1)) Then

你确定不这么写？

zhaozhongbao

修改成range后云程序不再报错，非常感谢，但是没有检验处正确结果，F12应报错的，但是在错误信息列表中没有显示，请问是我哪里写错了？
If a = Application.Average(Range("f7:f" & Range_id.Rows.Count - 1)) Then
           If cellobject.Value > 5 * a Then      
                   Sheets("错误信息列表").Activate
                   Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Value = "Sheet1,第 " + Str(cellobject.Row) + " 行，第 " + Str(cellobject.Column) + " 列，企业缴费金额应小于企业缴费平均缴费5倍"
                   Sheets(1).Activate

貌似这个判断没有执行，我直接将  If cellobject.Value > 5 * a改成  If cellobject.Value > 10，则会正常报错，这个是什么原因呢？谢谢！！！

zhaozhongbao

改成range后，程序执行不再报错，但是执行结果不对。

貌似  If a = Application.Average(Range("f7:f" & Range_id.Rows.Count - 1)) Then
           If cellobject.Value > 5 * a Then      
           Application.Average(rng("f7:f12"))
                   Sheets("错误信息列表").Activate
                   Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Value = "Sheet1,第 " + Str(cellobject.Row) + " 行，第 " + Str(cellobject.Column) + " 列，企业缴费金额应小于企业缴费平均缴费5倍"
                   Sheets(1).Activate
                  End If
        End If


这一段判断没有执行，但是我将If cellobject.Value > 5 * a 改成If cellobject.Value > 10，则会正常执行，请问这个是什么原因呢，谢谢~~~

alstar

F12不是在第6列吗?你写的这个代码太长了吧。看得眼花缭乱的。。全是if  。逻辑思维混乱的。你可以表达出你想要的效果。让大佬们写一下，看看他们的逻辑思维，借鉴一下。我看了一下你的 IF  IF IF IF 看的我分不清东南西北。