산식을 수식으로 바꿔주는 함수
evaluate
사용자정의함수로 tevaluate 로 아예 만들어 버리고 xla로 만들어서 넣어놓고 사용하는
윈7기준
C:\Users\컴퓨터이름\AppData\Roaming\Microsoft\AddIns
tevaluate.xla여기에 넣고 추가기능 설정하면 끝
Function TEVALUATE(ByVal strTemp As String) As Double
Dim strMe As String
Dim strF As String
Dim strG As String
Dim i As Integer, j As Integer
i = Len(strTemp)
For j = 1 To i
strF = Mid(strTemp, j, 1)
If IsNumeric(strF) Then
Else
Select Case strF
Case "*", "/", ".", "+", "-", "^", "(", ")", "%"
Case "×"
strF = "*"
Case "÷"
strF = "/"
Case "＋"
strF = "+"
Case "－"
strF = "-"
Case Else
strF = ""
End Select
End If
strMe = strMe & strF
Next j
If strTemp = "" Then strMe = 0
If strMe = "" Then strMe = 0
TEVALUATE = Evaluate(strMe)
End Function