VBA セルに入力された演算子によって自動で四則演算するfunctionが作りたい

Question

素人ながら、以下のようなfunctionを作成してみたのですが
実際に使ってみると＃VALUE!の表示になってしまいます。

参考に、四則演算を自動認識するfunctionの例や
誤りを指摘していただけると幸いです。

宜しくお願い致します。

Public Function 計算(値1 As Integer, 演算子 As Integer, 値2 As Integer) As Integer
If 演算子 = "＋" Then
計算 = "値1" + "値2"
ElseIf 演算子 = "−" Then
計算 = 値1 - 値2
ElseIf 演算子 = "×" Then
計算 = 値1 * 値2
ElseIf 演算子 = "÷" Then
計算 = 値1 / 値2
Else: 計算 = "Error"
End If
Next
End Function

Answer 1

解決済みですが、計算式の文字列をパラメータにすると、計算結果を返却する関数があります。
Evaluate メソッド
Excel VBAにおける伝家の宝刀。Evaluateの使い方

Comments

[dd31]

わざわざありがとうございます！

Answer 2

いろいろ間違いがあります。

演算子 As Integer
演算子は、"＋" "−" ・・などの文字なので Integer ではなく String にします。

計算 = "値1" + "値2"
引用符(")で囲んだら単なる文字列です。文字列は加算できません。

計算 = "Error"
"Error"という文字列も返すのに、関数の返り値は
計算(値1 As Integer, 演算子 As Integer, 値2 As Integer) As Integer
Integer(数値)になっているのでエラーになります。
数値も文字列も返したいなら、Variant で宣言します。

Next
ForがないのにNextだけなら構文エラーになります。

上記を修正して動作するようにすると、

Public Function 計算(値1 As Integer, 演算子 As String, 値2 As Integer) As Variant
    If 演算子 = "＋" Then
        計算 = 値1 + 値2
    ElseIf 演算子 = "－" Then
        計算 = 値1 - 値2
    ElseIf 演算子 = "×" Then
        計算 = 値1 * 値2
    ElseIf 演算子 = "÷" Then
        計算 = 値1 / 値2
    Else
        計算 = "Error"
    End If
End Function

Comments

[dd31]

めちゃくちゃわかりやすいです！
ご丁寧にありがとうございます！

最後に一点なのですが、"-"の指定に関して
エクセルの入力されている"-"の記号が大文字の場合も対応できるようにしたいのですが
VBAの中に大文字の"ー"を入力すると"?"に自動で変わってしまい、入力ができません。
これについてご意見いただけないでしょうか？

宜しくお願い致します。

[hatena19]

"−" は機種依存文字(ShiftJISにない文字)ですので、VBAエディター上では表示できません。
"―" を使えばどうでしょう。
どうしても "−" がいいというなら、 ChrW で下記のようにすれば "−" ということになります。
ElseIf 演算子 = ChrW(8722) Then

Answer 3

まず、関数の最初の部分ですが、以下のようになっています
引数「演算子」はコードを見ると記号なので、String型ではないでしょうか？
また、戻り地がIntegerですが、これだと整数になります。
Else句で「Error」を返すようにしているので、戻り値のデータ型はVariant型ではないでしょうか。

計算(値1 As Integer, 演算子 As Integer, 値2 As Integer) As Integer

また、以下ですが、「値1」「値2」は引数名なので、ダブルクォーテーションで囲まないでください。

If 演算子 = "＋" Then
    計算 = "値1" + "値2"