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单元格, 可引用此函数, 如下: