ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 8036|回复: 15

[已解决] 自定义的函数如何在VBA中调用

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-11-13 15:04 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 ballgd 于 2018-11-14 17:49 编辑

如题,自己编写了一个自定义函数,且打开excel工作簿后可以正常使用,  想问一下如果在vba中调用该自定义函数应该怎么操作。  试验了一下,application.worksheetfunction 后面并没有显示该定义函数,求解。谢谢




疑问.png
疑问2.png
3.png
2.png
1.png

example.rar

825.83 KB, 下载次数: 11

自定义函数.rar

10.8 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2018-11-13 16:09 来自手机 | 显示全部楼层
本帖最后由 lss001 于 2018-11-13 16:11 编辑

直接调用!!!
x = 自定函数名(参数<有多个参数用逗号分隔>)

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-13 18:13 | 显示全部楼层
lss001 发表于 2018-11-13 16:09
直接调用!!!
x = 自定函数名(参数)

我的自定义函数放在了xlam文件中,在vba中调用显示  子函数或过程未定义

TA的精华主题

TA的得分主题

发表于 2018-11-13 18:18 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
ballgd 发表于 2018-11-13 18:13
我的自定义函数放在了xlam文件中,在vba中调用显示  子函数或过程未定义

直接调用!如果不行请上传附件!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-13 20:12 | 显示全部楼层
lss001 发表于 2018-11-13 18:18
直接调用!如果不行请上传附件!

附件已经上传,麻烦您帮忙看一下  谢谢

TA的精华主题

TA的得分主题

发表于 2018-11-13 21:00 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 lss001 于 2018-11-13 22:05 编辑

自定义参数→数据类型是Integer
而代码中使用的参数→数据类型是Range
数据类型不相同,应把数据类型统一为Range

Function addd(a As Range, b As Range)
   addd = a + b
End Function

Sub a()
   Range("a1") = addd(Range("e7"), Range("e8"))
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-14 14:35 | 显示全部楼层
lss001 发表于 2018-11-13 21:00
自定义参数→数据类型是Integer
而代码中使用的参数→数据类型是Range
数据类型不相同,应把数据类型统一 ...

我修改了参数类型,还是出现  子函数或过程未定义的错误  

TA的精华主题

TA的得分主题

发表于 2018-11-14 14:49 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 lss001 于 2018-11-14 16:40 编辑

原因见下楼分析!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-14 15:36 | 显示全部楼层
lss001 发表于 2018-11-14 14:49
因昨天您没提供完整附件,无法测试实际情况?
如果还出现提示,可加上application.
Sub a()

您好,使用application后面没有 带出 addd的方法,出错。  我重新传了一下附件,包括加载的自定义函数xlam文件 和 普通的xls文件,麻烦您看一下。谢谢

TA的精华主题

TA的得分主题

发表于 2018-11-14 16:38 来自手机 | 显示全部楼层
ballgd 发表于 2018-11-14 15:36
您好,使用application后面没有 带出 addd的方法,出错。  我重新传了一下附件,包括加载的自定义函数xla ...

根据您提供附件,经测试,原因是自定义函数虽然已另存为加载宏,但example工作薄却没有加载该加载宏!
方法:打开example工作薄→点击文件→点击选项→点击加载项→点击转到→找到相应加载宏在方框中打√→点确定
以上适合2010版及以上excel,其它版本请论坛搜加载宏!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 16:52 , Processed in 0.052340 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表