VBA 区间内“横向”判断, 查找及标示 ( 有详细步骤 )

leirongqin

On_fire 发表于 2023-1-6 10:58
老师好,
是的,
选中( 随意 )的单元格是变量,

你试试这个是不是这样，就两个区间（A9:AT11和A18:AT21）里面点击单元格后面的变色，目前附件里面点击如果是空值。区间字体变回黑色

On_fire

leirongqin 发表于 2023-1-6 13:08
你试试这个是不是这样，就两个区间（A9:AT11和A18:AT21）里面点击单元格后面的变色，目前附件里面点击如 ...

谢谢老师,
是要这个效果,
但目前最大问题, 这个区间也是变量…
可能要加一个单元格ADDRESS的判断?

leirongqin

On_fire 发表于 2023-1-6 15:08
谢谢老师,
是要这个效果,
但目前最大问题, 这个区间也是变量…

那么区间判断依据是什么？

On_fire

leirongqin 发表于 2023-1-6 19:23
那么区间判断依据是什么？

老师好,
4楼蓝版的代码可以参考…
*
下面这句, 估计是断判上下分隔线的,
If Cells.(I, 1)Borders (xlEdgeBottom).LineStyle = xlDot Then
r = r +1
ReDim Preserve Arr1 (1 to r)
Arr1( r )= i
End if

leirongqin

On_fire 发表于 2023-1-6 21:48
老师好,
4楼蓝版的代码可以参考…
*

参考版主代码，重新写了一个，你测试一下看看。区间分割线最下方一个不一样。目前是按没找到的话用表格最下方一行当区间底部

On_fire

leirongqin 发表于 2023-1-7 16:17
参考版主代码，重新写了一个，你测试一下看看。区间分割线最下方一个不一样。目前是按没找到的话用表格最 ...

老师好,
感谢您, 好厉害, 成功解决问题!

On_fire

leirongqin 发表于 2023-1-7 16:17
参考版主代码，重新写了一个，你测试一下看看。区间分割线最下方一个不一样。目前是按没找到的话用表格最 ...

老师好,
请问已标色的字符不用变成回黑色, 要怎么改?
也就是说, 每区间只可增加( 标红单元格 ), 不能减少

leirongqin

On_fire 发表于 2023-1-7 17:43
老师好,
请问已标色的字符不用变成回黑色, 要怎么改?
也就是说, 每区间只可增加( 标红单元格 ), 不能 ...

我现在身边没电脑看不到代码，你找一下代码中间有一句Range（”A”&a&”：AT&b）.Fout.Colorindex=1删除

On_fire

leirongqin 发表于 2023-1-7 19:29
我现在身边没电脑看不到代码，你找一下代码中间有一句Range（”A”&a&”：AT&b）.Fout.Colorindex=1删除

早上好,
谢谢老师, 您真有耐心…

On_fire

leirongqin 发表于 2023-1-7 19:29
我现在身边没电脑看不到代码，你找一下代码中间有一句Range（”A”&a&”：AT&b）.Fout.Colorindex=1删除

老师好,

又要向您请教…如载图,

想做一个按钮, 1:选中单元格之后,

2:按了(Sub按钮), 再出代码结果, 请问要咋改呢?