找到J列为1的区域对应的最高点和最低点进行判断

wwdfefgg · 发表于 2024-11-15 08:42

E列为水管的里程，单位米，H列为水管的标高。

J列为1的区域，需要布设出水口，出水口间距50m

第1个出水口为J列为1的区域中的标高最低点，

布设完第1个出水口后，等间距50m布设其他出水口。

出水口布置规则见说明

首先找到J列为1的区域对应的标高最高点和最低点，然后进行以下判断。

1、如果区域起点为最低点，区域终点为最高点，从起点开始等间距50m布置出水口，最后一段需<50m；
2、如果区域起点为最高点，区域终点为最低点，从终点开始等间距50m布置出水口，最后一段需<50m；
3、如果区域最高点在中间，且高于起点和终点，从起点和终点向最高点等间距50m布置出水口，中间剩余最后一段需<50m；
4、如果区域最低点在中间，且低于起点和终点，从最低点向起点和终点等间距50m布置出水口，最后一段需<50m；

最终需要的是出水口的里程和对应的F列数值，即K列和L列，我示例了几个，并染成个绿色

新建文件夹.rar (1.15 MB, 下载次数: 10)

蓝桥玄霜 · 发表于 2024-11-15 11:28

还有种情况存在：最低点和最高点都不在起点和终点，怎么处理？

wwdfefgg · 发表于 2024-11-15 12:22

蓝桥玄霜发表于 2024-11-15 11:28
还有种情况存在：最低点和最高点都不在起点和终点，怎么处理？

这种情况有可能存在，不管最低点在哪，最低点都作为第1个出水口，然后等间距向两头布设

wwdfefgg · 发表于 2024-11-15 14:26

蓝桥玄霜发表于 2024-11-15 11:28
还有种情况存在：最低点和最高点都不在起点和终点，怎么处理？

麻烦把代码粘贴上来，我测试一下

wwdfefgg · 发表于 2024-11-15 16:00

蓝桥玄霜发表于 2024-11-15 11:28
还有种情况存在：最低点和最高点都不在起点和终点，怎么处理？

哈喽哈喽哈喽哈喽哈喽

ykcbf1100 · 发表于 2024-11-15 16:17

wwdfefgg 发表于 2024-11-15 14:26
麻烦把代码粘贴上来，我测试一下

自己抄一下吧，有助于VBA水平提高。
蓝版一直以来都是发图片的。

wwdfefgg · 发表于 2024-11-15 18:53

不要这样啊，代码太多，瞅的眼花

wwdfefgg · 发表于 2024-11-15 22:25

发一下嘛。。。。。

wwdfefgg · 发表于 2024-11-16 09:16

蓝桥玄霜发表于 2024-11-15 11:28
还有种情况存在：最低点和最高点都不在起点和终点，怎么处理？

测试.rar (1.1 MB, 下载次数: 2)

不行，运行不了，提示下标越界

蓝桥玄霜 · 发表于 2024-11-16 10:01

wwdfefgg 发表于 2024-11-16 09:16
不行，运行不了，提示下标越界

抄代码只抄一半的？

		自动登录	找回密码
密码			免费注册

[求助] 找到J列为1的区域对应的最高点和最低点进行判断