ExcelVBAにて関数の参照渡し

質問

XPにてExcel2002を使用しています。

Cですと、
void aaa(double *x ,double (*func)(double)){

}

のように関数のポインタを渡すことができると
思うのですが、これと同じことがVBAで
できるのでしょうか？

回答No.5

sakenomo · ベストアンサー

No.4です。ご希望のようなことは、できないように思います。もっとも、私も勉強不足なのですが…。

前記の例では二つの関数をまとめましたが再利用をお考えなら、たとえば下記のようにmainの中でmainとmyFunc等間の仲立ちをするanyFuncを使い、常に二つをセットで用いるなどの工夫をするしかないような気がします。

Function anyFunc(ByRef b As Double, Optional Dore As String)
　Select Case Dore
　Case "myFunc1", ""
　　anyFunc = myFunc1(b)
　Case "myFunc2"
　　anyFunc = myFunc2(b)
　Case "ourFunc"
　　anyFunc = ourFunc(b)
　End Select
End Function

お礼

ご回答頂いたとおり、仲立ちの関数を
用意することで解決しました。

どうも有難うございました。

（お礼が遅くなって申し訳ありません）

回答No.6

noname#4564

CallByName関数を使用すれば希望の形に近くなるかもしれません。

# どの程度実用に耐えられるかは不明。

※ Eval関数はExcel（2000）には実装されていません。

VB(A)で関数のアドレスを扱う場合、AddressOf演算子を使いますが、これは通常、コールバックやサブクラス化（メッセージフック）に使用するので、仕様の拡張（アルゴリズムの分岐）を柔軟に行うために使用するC言語の関数ポインタとは趣旨がちょっと違うような気がします。

お礼

ご回答いただき、有難うございました。
（お礼が遅くなって申し訳ありません）

回答No.4

sakenomo

はずしているかもしれませんが、こんな感じでしょうか。

Function anyFunc(ByRef b As Double, Dotti As Boolean)
　If Dotti = True Then
　　　anyFunc = b * 1　　'myFunc1の処理
　Else
　　　anyFunc = b * 100　'myFunc2の処理
　End If
End Function

Sub main(Dotti As Boolean)
　Dim x As Double
　x = 5
　MsgBox anyFunc(x, Dotti)
End Sub

Sub test()
　main (True)
　main (False)
End Sub

お礼

ご回答有難うございます。

私のしたい処理はご回答にある記述で可能です。
(任意の関数をanyFuncという名前にしてしまう方法)

ですが、たとえば、ご回答にあるmain関数を別のVBAで再利用したいときに、渡したい関数(myFunc1など)を

Function anyFunc(ByRef b As Double, Dotti As Boolean)
　If Dotti = True Then
...
　Else
...
　End If
End Function

の形式に書き換えないといけないというわずらわしさがあります。(コードが小さければ、たいした手間ではないのですが)

質問の中に書いたような、関数を参照渡しする方法が
あれば、もっとスマートに書けると思うのです。

他の回答をもう少し、待ってみようと思います。
有難うございました。

回答No.3

todo36

試していませんが
関数名をStringで受け取って、Evaluateとか

回答No.2

Silent-G

すみません、はずしていましたね。

>>Function(ByRef x As Double)
>におけるxとして関数を指定したいのです。
という事であれば、無理です。

クラスを使えば似たような事ができるかもしれませんが・・・
こちらは、私も勉強不足なので参考URLあげときます。

参考URL：

http://www.moug.net/skillup/opm/opm08-01.htm

お礼

mougは私もお世話になっています。

仲立ちの関数を用意することで解決しました。
どうも有難うございました。

（お礼が遅くなって申し訳ありません）

回答No.1

Silent-G

VBAでポインタは使えませんが、

引数の参照渡しということであれば、
デフォルトが参照渡しなのでそのままでOKです。
明示的に記述するには"ByRef"をつけます。

Function(ByRef x As Double)

ちなみに、値渡しは"ByVal"です。こちらは必ず指定しないといけません。

詳細はヘルプのFunctionステートメントの項に詳しく記述されていますよ。

では。

補足

ご回答有難うございます。

VBAではデフォルトが参照渡しということは
知っているのですが、
>Function(ByRef x As Double)
におけるxとして関数を指定したいのです。
つまり、

Function myFunc1(ByRef a As Double)
myFunc1=(処理)
end Function

Function myFunc2(ByRef b As Double)
myFunc2=(処理)
end Function

Sub main(ByRef anyFunc As Double)
Dim x As Double
Dim y As Double

x=5
y=anyFunc(x)
end Sub

というニュアンスにしてmainにmyFunc1を渡したり
myFunc2を渡したりして、mainの中でどちらかの
関数を使いたいのです。

そして、mainの中では、どちらが渡されたのかということを気にせずanyFuncという名前で使いたいのですが、これを解決する方法はあるのでしょうか？