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

On_fire

leirongqin 发表于 2023-1-12 16:10
这个是因为你上方9行是标题，所以向上找的时候然后到第8行还没找的单元格下边线，那么久返回。算找到区域 ...

好的,
明白,
那没事, 我以为查找的上限是8行, 所以有漏标了

On_fire

leirongqin 发表于 2023-1-12 16:14
我这个代码的原理是，按你选定的单元格开始上下两个方向查找下标线。第一个do是向上找区间上坐标，第二个 ...

对,
完美,
区间内查找就是这个逻辑!

leirongqin

On_fire 发表于 2023-1-12 16:18
对,
完美,
区间内查找就是这个逻辑!

所以只要你的区间下标线没有标记错，正常是不会有问题的。这是最简单的逻辑

On_fire

leirongqin 发表于 2023-1-12 16:22
所以只要你的区间下标线没有标记错，正常是不会有问题的。这是最简单的逻辑

老师好,
If ls.Cells(b, 1).Borders(xlEdgeBottom).LineStyle = xlDot Or b = UBound(arr) Then
请问这句b = UBound(arr)代表甚么?

leirongqin

On_fire 发表于 2023-1-12 16:41
老师好,
If ls.Cells(b, 1).Borders(xlEdgeBottom).LineStyle = xlDot Or b = UBound(arr) Then
请问 ...

可以理解为最下方有数据的行号

On_fire

leirongqin 发表于 2023-1-12 19:28
可以理解为最下方有数据的行号

老师早上好,
明白,
还在琢磨为啥源数据少, 正确, 没问题
数据多就会错标, 漏标? 好奇怪…

leirongqin

On_fire 发表于 2023-1-13 09:19
老师早上好,
明白,
还在琢磨为啥源数据少, 正确, 没问题

还有一种可能，代码保存进去的数据类型不一样。你那个表格需要筛选的都数字吗？很可能是arr数值保存为double数据，字典item保存为string。你试试这个附件看看

On_fire

leirongqin 发表于 2023-1-13 11:03
还有一种可能，代码保存进去的数据类型不一样。你那个表格需要筛选的都数字吗？很可能是arr数值保存为dou ...

谢谢老师,
等会试试看,  
这就有可能, 因要标示字符有…(中, 英, 数字)..

On_fire

leirongqin 发表于 2023-1-13 11:03
还有一种可能，代码保存进去的数据类型不一样。你那个表格需要筛选的都数字吗？很可能是arr数值保存为dou ...

还是不行,
结果还是有漏标的毛病…太奇怪...IF太多?

leirongqin

On_fire 发表于 2023-1-13 13:10
还是不行,
结果还是有漏标的毛病…太奇怪...IF太多?

你的标识条件是什么？？后面那个附件我不是用那么多行测试没问题吗？