自定义函数出错

小桥流水桂花香

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
请教各位大神，这个自定义函数不能正确计算，请问是什么地方出现错误，谢谢

美熹奶奶

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 就不能正确计算了。

西贝大官人

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

張总發

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

刘小雪爱着刘大雄

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

有话咱好好说

。。。。。

封号斗罗

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

糖糖小葵

感谢各位大神帮助！