ＶＢＡで

質問

エクセルのＶＢＡで下記の作業をするにはどうしたらよいのでしょう？

「Ｃ」で作成したスクリプト
↓　があります。
congruence( m　n　a　b )
(for k = 1 to m step 1 )
j=m1(nk+b-a)
break j=floor(j)
return m*j+a

エクセルのシートに下記の入力セルを設け、a b m n の値を入力すると、上記のスクリプトを作動させて　その解をセル「ｋ」の場所に表示させたいのです。
x≡a(mod m)
x≡b(mod n)
x=K

VBAの知識はほとんどありません。
よろしくお願いします。

回答No.2

at121

関数定義　forループ　break　戻り値return　は以下に相当

Function 解k(セルm, セルn, セルa, セルb)
For k = 1 To セルm step 1
j=・・・
If j=Int(j) Then Exit For'ループ脱出break
Next
解k = ・・・'戻り値return　
End Function

共通の余りを求めるなら

Function 解K(セルm As Range, セルn As Range, セルa As Range, セルb As Range)

解K = "解が無い"
K = セルa Mod セルm
If K = セルb Mod セルn Then 解K = K

End Function

お礼

遅くなりましたが、回答ありがとうございました。

回答No.1

bigdisplay

合同式ですね

下記ＵＲＬを参考にされてはいかがでしょうか
ttp://www011.upp.so-net.ne.jp/jyouhou-ken/sozai/VBA.JPG

お礼

ありがとうございました。