[已解决]如何自编这个函数

whwang0123

我想自编一个计算结果的函数，通过vba来实现。但是出错了，请大神解决。


我想直接输入=计算结果，    表格把正确的结果显示出来。
我通过vba写了一个自编函数，但是出错了，请高手帮我看看能解决吗？

这是我写的vba代码，但是结果报错。请高手看看。

1. Function 计算结果()
   
2. 计算结果 = Evaluate(Substitute(Substitute(Substitute(Substitute("[", "*ISTEXT(""["), "]", "]"")"), "×", "*"), "÷", "/"))
   
3. End Function
   

复制代码

计算结果.rar (10.65 KB, 下载次数: 9)

2016-5-5 18:08 上传

点击文件名下载附件
这是附件。

最佳答案

月排行榜 / 总排行榜

砂海

2016-5-5 22:14

Function 计算结果(rg As String)

    Dim regx As Object
    Set regx = CreateObject("vbscript.regexp")  '建立正则表达式对象
   
    With regx
   
        .Global = True              '搜索全部字符
        .Pattern = "(\[.*?\])"      '尽可能短地 查找"[*]"
        
        计算结果 = Evaluate(.Replace(rg, ""))   '计算 ( 替换查找内容为 空值 )
   
    End With

End Function

跳转到最佳答案楼层

砂海

Function 计算结果(rg As String)

    Dim regx As Object
    Set regx = CreateObject("vbscript.regexp")  '建立正则表达式对象

    With regx

        .Global = True              '搜索全部字符
        .Pattern = "(\[.*?\])"      '尽可能短地 查找"

"

        计算结果 = Evaluate(.Replace(rg, ""))   '计算 ( 替换查找内容为 空值 )

    End With

End Function

--------------------------
工作表中,
=计算结果(C2)

whwang0123

砂海 发表于 2016-5-5 21:49
Function 计算结果(rg As String)

    Dim regx As Object

语法错误





报错。

砂海

Function 计算结果(rg As String)

    Dim regx As Object
    Set regx = CreateObject("vbscript.regexp")  '建立正则表达式对象
   
    With regx
   
        .Global = True              '搜索全部字符
        .Pattern = "(\[.*?\])"      '尽可能短地 查找"[*]"
        
        计算结果 = Evaluate(.Replace(rg, ""))   '计算 ( 替换查找内容为 空值 )
   
    End With

End Function

whwang0123

砂海 发表于 2016-5-5 21:49
Function 计算结果(rg As String)

    Dim regx As Object

多了几个字符。

1. Function 计算结果(rg As String)
   
2. 
   
3.     Dim regx As Object
   
4.     Set regx = CreateObject("vbscript.regexp")  '建立正则表达式对象
   
5. 
   
6.     With regx
   
7. 
   
8.         .Global = True              '搜索全部字符
   
9.         .Pattern = "(\[.*?\])"      '尽可能短地 查找"
   
10. 
    
11.         计算结果 = Evaluate(.Replace(rg, ""))   '计算 ( 替换查找内容为 空值 )
    
12. 
    
13.     End With
    
14. 
    
15. End Function
    

复制代码

后来把多余的字符删除，亲自测试可以了。多谢。

爱疯

Function Operation(rng As Range)
    Dim i As Integer
    Dim ch As String, str As String
    Dim isJoin As Boolean

    isJoin = True
    For i = 1 To Len(rng)
        ch = Mid(rng, i, 1)

        If ch = "[" Or ch = "]" Then isJoin = False
        If isJoin Then str = str & ch
        If ch = "]" Then isJoin = True
    Next i

    Operation = Application.Evaluate(str)
End Function


写了，就放上

tomcatlucky

很实用。

whwang0123

爱疯 发表于 2016-5-5 22:28
Function Operation(rng As Range)
    Dim i As Integer
    Dim ch As String, str As String

你这个测试也正确，感谢。