小桥流水桂花香 发表于 2021-10-5 11:34:00

自定义函数出错

Function xl16(x1, x2, y1, y2)
Dim x, y, z
x = Abs(x1 - x2) + 1
y = Abs(y1 - y2) + 1
z = Int((x / y) * 100)
xl16 = Int(((z - 1) Mod 64) / 8) + 1
End Function
请教各位大神，这个自定义函数不能正确计算，请问是什么地方出现错误，谢谢

美熹奶奶 发表于 2021-10-5 13:04:02

Function xl16(x1, x2, y1, y2)
Dim x, y, z
x = Abs(x1 - x2) + 1
y = Abs(y1 - y2) + 1
z = Int((x / y) * 100)
xl16 =z
End Function
这个能正确 计算，但加了 xl16 = Int(((z - 1) Mod 64) / 8) + 1 就不能正确计算了。

西贝大官人 发表于 2021-10-20 02:47:10

放在我电脑里，两个都不行，直接返回REF错误

張总發 发表于 2021-10-21 17:53:40

出错主要是函数命名不规范！
名称命名注意事项请参考函数命名规则!
可把函数名称→xl16
改为纯英文如:→xlsixteen

刘小雪爱着刘大雄 发表于 2021-11-8 12:49:55

我测试出来了，xl16应该和VBA的某个关键词冲突了，换成其他的名称就可以了

有话咱好好说 发表于 2021-11-13 04:55:23

。。。。。

封号斗罗 发表于 2021-12-22 05:48:27

果然是这样，我把函数名改成ddddd3，虽然也是字母+数字的，就没报错了。。。

糖糖小葵 发表于 2021-12-29 14:31:01

感谢各位大神帮助！
页: [1]
查看完整版本: 自定义函数出错