home HinoADO
Menu

#author("2017-11-26T23:44:07+09:00","","")
 Function Evl(ByVal Rng As String)
   Dim st As String
   st = StrConv(Rng, vbNarrow)
   st = Replace(st, "×", "*")
   st = Replace(st, "÷", "/")
   st = Replace(st, "x", "*")
   st = Replace(st, " ", "")
   Evl = Evaluate(st)
 End Function

+上記プロシージャを標準モジュールに貼る
+ワークシートでA1セルに計算式文字列が入力されているとして以下のように記述

  =Evl(A1)