Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16727 / 76738

←次へ　｜　前へ→


	【65475】Re:公式から値XおよびYを算出

kanabun - 10/5/24(月) 21:39 -


	引用なし

	パスワード

　 x + y = C1　　　　　　･････････(1)
　 4/30 * A/B * x = y/3　･････････(2)

と考えると、

Sub Try1()
　Dim A As Double, B As Double, C1 As Double
　Dim x As Double, y As Double

　C1 = 2200　 '[C1].Value
　A = 10000　 '[A2].Value
　B = 40000　 '[B2].Value

　y = 5 / 2 * B / A + 1
　y = C1 / y
　x = C1 - y
　Debug.Print "x="; x, "y="; y
End Sub

これを実行するとイミディエイト・ウィンドウに

x= 2000　　　 y= 200

と表示されます。

0 hits

▼

【65464】公式から値XおよびYを算出 ts200r 10/5/24(月) 14:23