[已解决]淡蓝色部分保留三行怎么修改程序?

wszbd

bbwsj 发表于 2014-1-31 11:42
还是没懂楼主的意思 其实原本你1楼的代码我已经看的半懂，就是发现逻辑上达不到楼主的效果，所以提问
另 ...

老师好，下面是两个问题的解答：

可你给的解释里“第四步，比较找到的所有数（大约9个），看哪个数在最下面（本例为EV9的单元格1）......”怎么是9行？
第3次在EW3：EW12找的EN单元格的第3个数5，明明是EW12单元格啊？
求解释，这个是问题1
答：数字可能我中间改过，不好意思。



还有个问题2：如果如图片，作为定位基准的那个最大行数，如果是EU3：EW12区域的最后行或最后第二、三行，那标注3行颜色必然超出EU3：EW12区域，标色可以超出区域吗？还是只能在给定区域内？
答：标色不可以超出区域，三行不够的话，可以循环到上面添补。

老师用这个吧： 淡蓝色部分保留三行怎么修改程序.rar (7.88 KB, 下载次数: 1)

2014-2-2 11:41 上传

点击文件名下载附件

其实就是把这部分： 改成循环。

谢谢！！！

bbwsj

帮你改了代码
淡蓝色部分保留三行怎么修改程序.rar (9.65 KB, 下载次数: 4)

2014-2-3 21:10 上传

点击文件名下载附件
原来的取N值的代码就有些小问题，你的原代码：
    arr1 = [en1:ep1]
    If Not IsArray(arr1) Then k = 1 Else k = UBound(arr1, 2)
无论[en1:ep1] 是否有值，arr1一定是数组，空单元格也能形成数组，只不过它的值是个“空”，所以后面那句就成了废句，K永远都不可能等于1，后续的判断K值的IF语句，也没用了
我默认[en1]是一定有值的，加了个IF，让你后面对K值的判断语句能用上。

你原来的填色的代码没必要，就是3种情况，N<=7时，正常填色；N=10时，填选定区域里的1-3行；和N=8或9时，填头尾2段，只要判断2次就够了