| |
質問する資格ない人間ですが、
最後に一つだけ聞かせてください。
>VBAで
>Declare Function dll_double_square Lib "cdll.dll" _
> (ByRef d As Double, ByVal size As Long) As Double
>と宣言し、
この宣言は、ＶＢのプログラムの一番上に書いて、要するに
**********************************************************************
Declare Function dll_double_square Lib "cdll.dll" _
(ByRef d As Double, ByVal size As Long) As Double
Dim youso(4) As Double
Function goukei(hani) As Double
Dim ue, shita, retu, i, j, yousosuu As Long
goukei = 0
ue = hani.Row
retu = hani.Column
yousosuu = hani.Rows.Count
For j = 0 To yousosuu - 1
youso(j) = Sheets(hani.Parent.Name).Cells(ue + j, retu)
Next j
goukei = dll_double_square(youso(0), 5)
End Function
*****************************************************************
という事になるのでしょうか。
>これで、また振り出しに戻るような質問がされてきたら、悪いですが私は降りますので。
>(ある掲示板にマルチポストもしていたようですから。)
これでもし分からなくても、質問は終わりにします。
なんか、他のＢＢＳでもそうですが、
気分を悪くさせてすいませんでした…。
何かもう僕も自分が何してるのか分からなくなってきてしまって…
いろんな人に叩かれて、これ以上書き込む事はいけないと思っています。
どうなったかの結果は、明日の夕方にプログラムをしているＰＣが使えるので、
実行してここに書き込ませていただきます。
本当にいろいろありがとうございました。
では失礼します…
|
|
稲葉
- 06/2/4(土) 2:53 -
