home HinoADO
Menu
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
  1. 上記プロシージャを標準モジュールに貼る
  2. ワークシートでA1セルに計算式文字列が入力されているとして以下のように記述
 =Evl(A1)