Function JiShuan(Optional myStr)    '参数Mystr是可选的。函数的功能是将指定的表达式转换成值
    If IsMissing(myStr) Then    '如果没有指定参数
        '如果函数所在单元格的列号大于1,那么将函数所在单元格左边的单元格赋予变量Mystr
        If Application.ThisCell.Column > 1 Then myStr = Application.ThisCell.Offset(0, -1).Value
        JiShuan = Evaluate(myStr)    '将表达式mystr转换成计算结果
    Else    '否则
        JiShuan = Evaluate("" & myStr & "")    '将表达式mystr转换成计算结果
    End If
End Function