excel 自定义全局函数

1. 开启excel的开发工具选项卡。在excel菜单条空白处右健，选择自定义功能区。

 

 

2.exel中开启visual basic ，如下图：

 

 

 

 

3.进入工程资源管理器

 

 

4. 如下代码实现将有“，"号分隔及有不可见字符的字符串，转换为数字

Public Function re_sub2(sText As String)
Dim oRegExp As Object
Dim txt
Dim pattern As String
Dim repl As String

Set oRegExp = CreateObject("vbscript.regexp")

pattern = ".*?([0-9,]+).*$"
repl = "$1"

With oRegExp
.Global = True
.IgnoreCase = False
.pattern = pattern
txt = .Replace(sText, repl)
End With

re_sub2 = Val(Replace(txt, ",", ""))
End Function

5. 修改模块名称，保存为personal.xlam, 保存路径为C:\Users\admin\AppData\Roaming\Microsoft\AddIns。 此为win10的保存路径， 其它系统未试验。

 

 6.退出visual basic编辑窗口。 在excel的开发工具菜单下， 选择excel加载项。

 

 7. 在本机上excel单元格， 可引用此函数， 如下：