[[20160928213906]]　『txtcalc関数で#VALUE!になります』（GTO）　ページの最後に飛ぶ

『txtcalc関数で#VALUE!になります』（GTO）

おたずねします。
マクロを実行すると上記のエラーが出ます。
エラーを回避する方法をご教授願います。

＜使用 Excel：Excel2003、使用 OS：Windows7 ＞

 TEXTCALC は使ったことがないのですけど、確か、アドインして使えるようになる関数ですよね？
 エラーになっているＰＣで、アドインは実行していますか？

 追記　22:30

 アドイン未実行なら #VALUE! ではなく #NAME? になりますね。
 上記レスは無視してください。

 ★TEXTCALC ではなく TXTCALC なんですか？だとしたら、それは何者ですか？

（β） 2016/09/28(水) 21:51

 １．どんな数式を書いたのですか？

 ２．引数はどんなデータ(値）だったのですか？

（半平太） 2016/09/28(水) 23:18

 TXTCALCだとここの掲示板の

 でそういう名前のユーザー定義関数が紹介されているがそれだろうか？

 βさんも質問しているがどこで入手したものかを書いてくれ。
（ねむねむ） 2016/09/29(木) 09:10

計算しようとしている式は、どんな文字列でしょう？
簡単な式ならば、CreateObject("ScriptControl")を使ったシンプルな例も書けますよ。
（???） 2016/09/29(木) 09:30

弥太郎さん紹介の自作関数だと、「x」（エックス）はかけ算には換算してくれないようですね。このせいとか？
別案で、エックス対応の簡単例なぞ。オブジェクト利用せず、Evaluateにしてみました。なお、中括弧や平方根には対応していません。

 Function fCALC(R As Range) As Double
    Dim cw As String
    Dim i As Long

    For i = 1 To R.Count
        cw = cw & R(i).Text
    Next i

    cw = Replace(cw, "×", "*")
    cw = Replace(cw, "÷", "/")
    cw = StrConv(cw, vbNarrow Or vbLowerCase)
    cw = Replace(cw, "x", "*")

    fCALC = Evaluate(cw)
 End Function
（???） 2016/09/29(木) 09:59

コメント返信：