【Excel自定义函数封装(Com加载项_Dll)】

zyg365 · 发表于 2012-12-18 11:58

本帖最后由 zyg365 于 2012-12-19 11:47 编辑

Excel自定义函数封装(Com加载项_Dll)

VB封装后的自定义函数(COM加载项Dll)，在Excel的插入函数列表中也正常显示，就象使用Excel自带的系统函数一样使用
见下图：
自定义函数Dll.jpg

下面是一个字符串分离提取的自定义函数：在Excel的VBA中正常使用
Public Function MyGet(Srg As String, Optional n As Integer = False) '提取数字、中文、英文字符
'=MyGet(单元地址,参数)-------参数0-取数字。参数1-取中文。参数2-取英文。
On Error GoTo Myerr
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean

For i = 1 To Len(Srg)
      s = Mid(Srg, i, 1)
      If n = 1 Then
         Bol = Asc(s) < 0
      ElseIf n = 2 Then
         Bol = s Like "[a-z,A-Z]"
      ElseIf n = 0 Then
         Bol = s Like "#"
      End If
      If Bol Then MyString = MyString & s
Next
MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))
Myerr:
If Err.Number > 0 Then MyGet = Err.Description
End Function
封装后也能够在Excel插入函数列表中显示，也能够象使用Excel自带的系统函数一样使用，不试一试。

Excel自定义函数封装(Com加载项_Dll).rar (28.68 KB, 下载次数: 2368)

zyg365 · 发表于 2012-12-18 12:00

本帖最后由 zyg365 于 2012-12-18 13:39 编辑

解压后，运行批处理“安装.bat”，即可使用

zyg365 · 发表于 2012-12-18 12:01

本帖最后由 zyg365 于 2012-12-18 13:39 编辑

在Excel中不需要任何引用

zyg365 · 发表于 2012-12-18 12:03

本帖最后由 zyg365 于 2012-12-18 13:40 编辑

在Excel中不需要再写任何代码

kevin3993 · 发表于 2012-12-18 13:36

不错, 如果能加上函数帮助及说明就更好了, 我也一直在想办法解决这个, 有思路的的话不妨分享下

xiaoyi666333 · 发表于 2012-12-18 15:45

辛苦了，感谢！

刘志文 · 发表于 2012-12-18 17:39

谢谢分享,辛苦了!

yjh_512 · 发表于 2012-12-18 18:16

謝謝分享，感謝！

zzjw · 发表于 2012-12-18 22:17

这样的函数应用虽然应用不多，但使用很方便，封装起来就更方便了，感谢张老师给大家提供资料

mylongsea · 发表于 2012-12-19 07:56

论坛有教程么？有的说一下

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

[原创] 【Excel自定义函数封装(Com加载项_Dll)】

评分