附件代码有个BUG，自己能力不足修改不了，请大神围观下,感谢！

hotdyj · 发表于 2020-3-14 17:43

附件代码工程密码为：DYJ

山菊花 · 发表于 2020-3-14 18:11

显示J3为空，但不知规则，不会改。

hotdyj · 发表于 2020-3-14 18:18

山菊花发表于 2020-3-14 18:11
显示J3为空，但不知规则，不会改。

就是J3计算不出来，这个代码的BUG就在这里，请款没有完全包括完，就是计算最小距离，我能读懂这个代码，但是能力有限不能优化这个代码，就是计算最近3个距离，sheet2里面找三个最近的距离返回到对应SHEET1里，根据经纬度计算两点间的距离，

hotdyj · 发表于 2020-3-14 18:22

山菊花发表于 2020-3-14 18:11
显示J3为空，但不知规则，不会改。

如果它比较大小能比较出来三个，这个代码就不报错，如果比较出来2个，继续比较第三个最小距离的时候没有比较出来比代码中计算出来的juli还小的值的画，J3就空，FF3的距离也就停留在10000，这就是BUG的地方

duquancai · 发表于 2020-3-14 18:32

围观

sj15627581616 · 发表于 2020-3-15 06:36

理逻辑总是最麻烦的，还不如直接把每个需要结果的计算方式一一罗列出来

YZC51 · 发表于 2020-3-15 11:28

请参考

YZC51 · 发表于 2020-3-15 13:23

代码审核中...

YZC51 · 发表于 2020-3-15 18:45

上图片

YZC51 · 发表于 2020-3-15 18:47

最后一句修改为
ttt1 = Format(Now() - tt, "h小时m分s秒")
MsgBox ttt1
试试

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

[求助] 附件代码有个BUG，自己能力不足修改不了，请大神围观下,感谢！