Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4723|回复: 11

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

[复制链接]
发表于 2014-1-28 19:31 | 显示全部楼层 |阅读模式
本帖最后由 wszbd 于 2014-2-6 11:42 编辑

淡蓝色部分保留三行怎么修改程序 淡蓝色部分保留三行怎么修改程序.rar (6.71 KB, 下载次数: 18)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-1-28 19:41 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-1-29 10:43 | 显示全部楼层
tgydslr 发表于 2014-1-28 19:41
等着来学习

你都博士了,还用学习,我用笨方法做好了:

If n = 1 Then [eu4:ew6].Interior.ColorIndex = 37: Exit Sub
If n = 2 Then [eu5:ew7].Interior.ColorIndex = 37: Exit Sub
If n = 3 Then [eu6:ew8].Interior.ColorIndex = 37: Exit Sub
If n = 4 Then [eu7:ew9].Interior.ColorIndex = 37: Exit Sub
If n = 5 Then [eu8:ew10].Interior.ColorIndex = 37: Exit Sub
If n = 6 Then [eu9:ew11].Interior.ColorIndex = 37: Exit Sub
If n = 7 Then [eu10:ew12].Interior.ColorIndex = 37: Exit Sub
If n = 8 Then [eu11:ew12,eu3:ew3].Interior.ColorIndex = 37: Exit Sub
If n = 9 Then [eu12:ew12,eu3:ew4].Interior.ColorIndex = 37: Exit Sub
If n = 10 Then [eu5:ew7].Interior.ColorIndex = 37: Exit Sub

老师能给改成循环语句吗?谢谢!!!
回复

使用道具 举报

发表于 2014-1-29 11:20 | 显示全部楼层
1-7
Range(Cells(n + 3, "eu"), Cells(n + 5, "ew")).Interior.ColorIndex = 37: Exit Sub
回复

使用道具 举报

 楼主| 发表于 2014-1-29 22:43 | 显示全部楼层
dsmch 发表于 2014-1-29 11:20
1-7
Range(Cells(n + 3, "eu"), Cells(n + 5, "ew")).Interior.ColorIndex = 37: Exit Sub

8-10呢,也不是循环语句,老师再加把劲,谢谢!!!
回复

使用道具 举报

发表于 2014-1-29 22:57 | 显示全部楼层
简单的说下你东东的运行规则吧,3行为兰不难,就是不明白你的数字的运行规则
回复

使用道具 举报

发表于 2014-1-30 12:55 | 显示全部楼层
wszbd 发表于 2014-1-29 22:43
8-10呢,也不是循环语句,老师再加把劲,谢谢!!!

8-10,没有规律,不能用循环。
回复

使用道具 举报

发表于 2014-1-30 13:07 | 显示全部楼层

太深奥了~~学习
回复

使用道具 举报

 楼主| 发表于 2014-1-31 07:47 | 显示全部楼层
bbwsj 发表于 2014-1-29 22:57
简单的说下你东东的运行规则吧,3行为兰不难,就是不明白你的数字的运行规则

老师看看: 填色2.rar (11.27 KB, 下载次数: 1)
回复

使用道具 举报

发表于 2014-1-31 11:42 | 显示全部楼层
本帖最后由 bbwsj 于 2014-1-31 11:52 编辑

未命名.jpg
还是没懂楼主的意思 其实原本你1楼的代码我已经看的半懂,就是发现逻辑上达不到楼主的效果,所以提问
另说一句,你的当初给的文件里那个标着“非常完美”的代码,表示的意思和你9楼的说明有些出入哦

按你9楼的解释,
第一次在EU3:EU12找的EN,EO,EP三个单元格的第1个数3 5 4。最下的行定位在7行
第二次在EV3:EV12找的EN,EO,EP三个单元格的第2个数1 0 8。最下的行定位在9行
第三次在EW3:EW12找的EN,EO,EP三个单元格的第3个数5 0 4。最下的行定位在12行

可你给的解释里“第四步,比较找到的所有数(大约9个),看哪个数在最下面(本例为EV9的单元格1)......”怎么是9行?
第3次在EW3:EW12找的EN单元格的第3个数5,明明是EW12单元格啊?
求解释,这个是问题1

还有个问题2:如果如图片,作为定位基准的那个最大行数,如果是EU3:EW12区域的最后行或最后第二、三行,那标注3行颜色必然超出EU3:EW12区域,标色可以超出区域吗?还是只能在给定区域内?





回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:17 , Processed in 0.409954 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表