自定义函数

张劲松2024

自定义函数如何才能在EXCELL中通用，像EXCELL的内置函数一样使用？

张劲松2024

自定义函数示例如下：


Function shzxy1(x)

      x1 = InStr(CStr(x), ".") '小数点在字符串中的位置
      x2 = Int(x) '取整
      x3 = Mid(x, x1 + 1, 1) '拟取舍数字
      x4 = Mid(x, x1 - 1, 1) ''拟取舍数字前一位
      x5 = x - x2 - 0.5 '拟取舍数字位5后的数值
      If (x3 < 5) Then x = x2
      If (x3 > 5) Then x = x2 + 1
      If (x3 = 5) And x5 <> 0 Then x = x2 + 1
      If (x3 = 5) And x5 = 0 And x4 / 2 = 0 Then x = x2
      If (x3 = 5) And x5 = 0 And x4 / 2 <> 0 Then x = x2 + 1
      shzxy1 = x
End Function

Qs18

另存为加载宏文件进行加载

张劲松2024

谢谢！！！！！！！！！！！！！！！！

张劲松2024

还是不行啊！

张劲松2024

不行啊！！！！！！！！！！！！！！！！！！！！！

朔方

加载宏，插入函数——自定义里找

tanglf188

如果在工作表中调用，将函数复制到标准模块下，在工作表输入=,再输你的函数名
如果在VBA代码中调用，建议写入类模块，再定义后调用