Function 構文のなかに変数をいれたい（ＶＢＡ）

質問

お願いします。
エクセルＶＢＡにて
下記のようなFunction構文内に変数を設定する方法を
教えてください。

この中で　ｋ以外にも
a = Sheets("sheet1").Range("E27")
b = Sheets("sheet1").Range("E27")
この変数を扱いたいのですが。
もしかして他にもｆｕｎｃｔｉｏｎ構文が必要でしょうか。

Function data(k As Double)
Dim sum As Double
Dim ct As Integer
Dim keisu As Integer
Dim a As Double
Dim b As Double

a = Sheets("sheet1").Range("E27")
b = Sheets("sheet1").Range("E27")
　以下　略

回答No.2

ham_kamo · ベストアンサー

No.1です。
それは、３つの引数を渡すようにFunctionの定義を修正したのに、セルの数式では
=data(A1)
のように１つしか指定していないからだと思います。
=data(A1,E27,E27)
のようにするとエラーにならないかと思います。

お礼

ありがとうございました。
=data(A1,a,b)
としたら動作しました。

回答No.1

ham_kamo

質問の意図がよくわからないですが、引数を複数設定したいということですか？
それなら、
Function data(k As Double,a As Double, b As Double)
とすればいいです。

もし外してたらすみません。

補足

ありがとうございます。そのように設定したところ
コンパイルエラー　引数は省略できません。と表示されます。
エラーの場所は　data(k)が記述されているところです。
尚、現状（コード未修正）でａを変数ではなく、ａ＝４，ｂ＝５のように設定すると動くのです。
どのようにすればよいのでしょうか。