Excel 2002 COMBIN関数とGCD関数の組み合わせでおかしな値になる

質問

Excel 2002を使用しています。
COMBIN関数(組み合わせ)とGCD関数(最大公約数)を組み合わせてつかうと、時々異常な値が表示されて困っています。
いつもではないところがとくに困りものです。

例１： GCD(COMBIN(17,9),COMBIN(15,7))
例１のとおりにセルに入力すると2と表示されます。（本来は715が表示されるはず）
こればGDC関数の中のCOMBIN関数を他のセルに入れ、そこを参照するようにしてもかわりません。

例２：GDC(24310,6435)
例２のように入力すると715が表示されるのでCOMBINが異常なのかもしれませんが、COMBIN(17,9) と COMBIN(15,7) をそれぞれ単独で表示させると ちゃんと 24310 と 6435 が 表示されます。

この現象（バグ？）をどうにか回避する方法をご存知のかたはいらっしゃるでしょうか？
他のバージョンのExcelでもそうなるのかどうかは確認できていません。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

それは、バグではなくて、早い話、作った人が違うからです。GCDを含む分析ツールは、別のプログラムで、COMBINと同じステージには、そのプログラムがないということだと思います。そして、その後、一向に修正はされていないのだろうと思うのです。（ただし、2000年問題には対処しました。）

それと、GCDの引数の型は、数値型のみになっていて、Range（セルを参照する）型ではないということです。

ほんのちょっとしたことだけれども、こんな風にすれば、可能になります。

私の想像ですが、プログラム的には、こんな簡単なことを修正していないということは、外部の人が作って、著作権（パテント）が存在しているから、MSは修正できないのかなって思っています。たぶん、修正料が、ものすごく高いのではないかなって、勝手な想像をしています。というのは、分析ツールの中身は、Ver.5 のままですから。別途購入すると、MS-Officeと同じぐらいな値段になってしまいます。

Function myGCD(ParamArray 数値1())
　　Dim v As Variant
　　Dim arg As String
　　For Each v In 数値1
　　　　arg = arg & "," & v　　'←Variant 型に換えただけ
　　Next
　　arg = Mid$(arg, 2)
　　myGCD = Evaluate("=GCD(" & arg & ")")
End Function

お礼

さっそくのアドバイスありがとうございます。
なるほど、Excelの型変換の問題なんでしょうか。
ユーザー定義関数もありがとうございます。

ところで、GCDの引数はINTであるというのをヒントに以下のように変更をしたところ正常に動作するようになりました。

GCD( COMBIN(15,7) , COMBIN(17,9) )
を
GCD( INT( COMBIN(15,7) ) , INT( COMBIN(17,9) ) )
このように整数型に強制的に型変換する。

理由はよくわかりませんが、COMBINの戻り値が整数型でないかGCDの引数の暗黙の型変換が正しくないのでしょう。