使用VBA编程语言来开发出的一个函数
第一步,Alt+F11,打开VBE编辑界面
第二步,插入—模块
第三步,把代码粘贴到新建的模块中
代码:
Public Function MyGet(Srg As String, Optional n As Integer = False)
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))
End Function
第四步,返回工作表,在单元格录入“函数” =myget(单元格,参数[0-2]),选择参数2.
选中当前表格,打开宏编辑器,输入代码,运行:
Sub getData()
您好 我能把文档发给您 您帮我弄下吗? 我一定追加悬赏