엑셀에서 ALT키와 F11키를 눌러 VB 편집기를 연 다음 삽입메뉴의 모듈 항목을 선택하고 아래 내용을 복사한 후 엑셀시트로 가서 StrCalc를 일반함수 사용하듯이 사용하면 됩니다..

예)
=====================================================
A1셀에 5*10*12 이라고 입력되어 있으면
A2셀에 =StrCalc(A1)이라고 입력하면 600이라고 표시된다.
=====================================================




Function StrCalc(ByVal strExpr As String) As Double
strTmp = "
j = Len(strExpr)
For i = 1 To j
ch = Mid(strExpr, i, 1)
Select Case ch

Case "x"
ch = "*"

Case "X"
ch = "*"
Case "-"
ch = "-"
Case "."
ch = "."
Case "1"
ch = "1"
Case "2"
ch = "2"
Case "3"
ch = "3"
Case "4"
ch = "4"
Case "5"
ch = "5"
Case "6"
ch = "6"
Case "7"
ch = "7"
Case "8"
ch = "8"
Case "9"
ch = "9"
Case "0"
ch = "0"
Case "+"
ch = "+"
Case "-"
ch = "-"
Case "*"
ch = "*"
Case "/"
ch = "/"
Case "%"
ch = "%"
Case "("
ch = "("
Case ")"
ch = ")"
Case Else
ch = "
End Select
strTmp = strTmp & ch
Next i
StrCalc = Application.Evaluate(strTmp)
End Function