|
とりあえず
> DLLIMPORT double
> ll_double_square (double *);
ですので、
> Declare Function dll_double_square Lib "cdll.dll" _
> (Dim d(0 To 4) As Double) As Double
ではなく
Private Declare Function dll_double_square Lib "cdll.dll" (ByRef d As Double) As Double
と宣言してください。
# そもそも Dim は使えない。
VBAであれば、
Sub test()
Dim d(0 To 4) As Double
Dim r As Double
d(0) = 1.3
d(1) = 3.9
d(2) = 5.2
d(3) = 10.3
d(4) = -0.5
r = dll_double_square(d(0))
End Sub
とすれば使用できます。
> =dll_double_square(B10:B14)
のように
ワークシート関数として使用できるかはワカリマセン。
|
|