プログラムに詳しい方よろしくお願いします！

質問

プログラムに詳しい方よろしくお願いします。
Excel VBA等で次のようなことをやっていただきたいのですが、
無知なためにどうにもなりません。
だれかプログラムを組んでもらえませんか？
Ax+By=P・・・(1)、-0.0001<(P/Q)<0.0001・・・(2)という式があって、
（A,Bはそれぞれ0,0.1,0.2,・・・,10で0.1刻みの101通り）
まずx,y,Qに定数を打込んで、式(2)を満たすA,Bをすべて表示する。
x,y,Qに定数を打込んだとして、101×101通りあると思うのですが、
その中から式(2)を満たすA,Bだけを表示したいのです。
可能でしょうか？無知なためできるだけ詳しく教えてください。

回答No.4

web2525 · ベストアンサー

Sub test1()
Q = Range("b1")
x = Range("b2")
y = Range("b3")

For A = 0 To 10 Step 0.1
For B = 0 To 10 Step 0.1
If (A * x + B * y) * 10000 > Q * -1 And (A * x + B * y) * 10000 < Q Then
Range("D65535").End(xlUp).Offset(1) = A
Range("E65535").End(xlUp).Offset(1) = B
End If
Next
Next
End Sub

B1セルにQの値
B2セルにxの値
B3セルにyの値
を入れて実行すると
D列にA、E列にBの値が表示されます

お礼

ありがとうございます！
これを機会によく勉強したいと思います。

回答No.3

n-jun

＃２です。

ExcelVBAなら、

Sub try()
Dim A, B, x, y, P, Q
Dim st

x = 0.001
y = 0.003
Q = 10

For A = 0.1 To 10 Step 0.1
For B = 0.1 To 10 Step 0.1

P = A * x + B * y

If -0.0001 < (P / Q) And (P / Q) < 0.0001 Then
st = st & "A:" & A & vbTab & "B:" & B & vbCrLf
End If

Next
Next

MsgBox st
End Sub

こんな感じかな？

＞定数固定
x,y,Qに定数を”入力できるように”ではなく、”事前に決めている”状態を指しました。

＞x = 0.001
＞y = 0.003
＞Q = 10
が固定されている部分です。

＞ＶＢＳ
VBScript関数リファレンス
http://www.kanaya440.com/contents/script/index.html
こんな感じでＶＢＡとは違う物です。

お礼

本当にありがとうございました！
助かりました！
また何かありましたら、よろしくお願いいたします。

回答No.2

n-jun

定数固定のＶＢＳ。

Dim A,B,x,y,P,Q
Dim st

x = 0.001
y = 0.003
Q = 10

For A=0.1 To 10 Step 0.1
For B=0.1 To 10 Step 0.1

P = A * x + B * y

If -0.0001 < (P/Q) And (P/Q) < 0.0001 Then
st = st & "A:" & A & vbTab & "B:" & B & vbCrLf
End If

Next
Next

WSCript.Echo st

とか？（定数はテキトーですが）

お礼

ご返答ありがとうございます。
自分自身本当無知なので"定数固定のＶＢＳ"すらわかりません。
さらに詳しく教えていただけると幸いです。

回答No.1

web2525

101*101=10201
1万回程度のループで済むなら総当たりで計算してもそれほど時間はかからないでしょう。

お礼

ご返答ありがとうございます。
素人にでもできるいい方法はありませんか？
出来る限り詳しく教えていただけるといいのですが。