Excel VBA質問箱 IV

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

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


16721 / 76732 ←次へ | 前へ→

【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 質問
【65466】Re:公式から値XおよびYを算出 超初心者 10/5/24(月) 15:04 発言
【65473】Re:公式から値XおよびYを算出 ts200r 10/5/24(月) 20:14 質問
【65474】Re:公式から値XおよびYを算出 kanabun 10/5/24(月) 21:01 発言
【65475】Re:公式から値XおよびYを算出 kanabun 10/5/24(月) 21:39 発言
【65480】Re:公式から値XおよびYを算出 ts200r 10/5/25(火) 11:16 お礼
【65479】Re:公式から値XおよびYを算出 超初心者 10/5/25(火) 10:22 発言
【65481】Re:公式から値XおよびYを算出 ts200r 10/5/25(火) 11:28 お礼
【65486】Re:公式から値XおよびYを算出 kanabun 10/5/25(火) 21:22 発言
【65503】Re:公式から値XおよびYを算出 ts200r 10/5/28(金) 11:03 お礼

16721 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free