エクセルＶＢＡで上手く動きません。

質問

エクセルでＶＢＡをつかって、ユーザー関数を作ったのですが、
うまく動きません。助けて下さい。
内容はＩＮＴ関数が７回までしか連乗できないので、
何回でも掛けて切り捨てる関数を作りましたが・・・
プログラムは以下の通りです

Function MULTINT(sdata1 As Single, ParamArray Optdata2()) As Long
Dim i As Integer

MULTINT = sdata1

For i = 0 To UBound(Optdata2())
MULTINT = Int(MULTINT * Optdata2(i))
Next i

End Function

本来は、

MULTINT(84000,0.7)=58800

となって欲しいのですが、

MULTINT(84000,0.7)=58799

となってしまいます。どこがいけないのでしょうか？
困っています。助けて下さい。

回答No.2

TAGOSAKU7 · ベストアンサー

なるほどわかりました。毎回切捨てなのですね。
ならばプログラミング的にはOKです。
なぜ５８７９９になるかというと、Optdata2はDoubleの型を持つためにおきたものではないかと思います。
＞MULTINT2 * Optdata2(i)
部分では、画面のデバッグ上では欲しい値になっているのですが、PCのメモリ内部では
５８７９９．９９９９９９９９９９９・・・
という値になったために、切り捨て直後の値は５８８００にならないものと思われます。
はっきり言ってINTのバグと言ってもいいですね。

なので、別の切り捨て関数を使用しましょう。

Function MULTINT(sdata1 As Single, ParamArray Optdata2()) As Long
Dim i As Integer
Dim lngWork As Long

lngWork = Round(sdata1)

For i = LBound(Optdata2) To UBound(Optdata2)
lngWork = Round(lngWork * CSng(Optdata2(i)))
Next i

MULTINT = CLng(lngWork)
End Function

お礼

親切にありがとうございます。が、残念ながらエクセル９５なので
Ｒｏｕｎｄ関数が使えませんでした。（Roundは２０００からみたいです）
しかし、ご指摘のおかげで一度値を１０００倍して、最後に１０００分の１
する事で解決（？）できました。アリガト チュッ！（男です）

回答No.1

TAGOSAKU7

毎回INTをしない方が良いのでは？
返し値はLongなので、きちんとLongで返してあげましょう。

Function MULTINT(sdata1 As Single, ParamArray Optdata2()) As Long
　　Dim i　　　 As Integer
　　Dim sngWork As Single

　　sngWork = sdata1

　　For i = LBound(Optdata2) To UBound(Optdata2)
　　　　sngWork = (sngWork * Optdata2(i))
　　Next i

　　MULTINT = CLng(sngWork)
End Function

補足

すみません。質問の説明が不足でした。
Ａ，Ｂ，Ｃ，Ｄ，Ｅ・・・・という不特定複数の
数値を掛け合わせて、「掛けるたびに切り捨て」というものが
作りたいのです。ＩＮＴで説明すると

=INT(INT(INT(INT(A*B)*C)*D)*E・・・)

というものです。例えば MULTINT(2.5,2.5,2.5,2.5)=37 となってほしいのです。
ＩＮＴでやると、７回までしか連続でできません。わがまま言ってすみませんが
助けてください。