[[20161024230503]]　『YとZの値を入力すればXの値が導き出されるようにａx（ごんちゃまん）　ページの最後に飛ぶ

『YとZの値を入力すればXの値が導き出されるようにしたい』（ごんちゃまん）

お忙しいところ恐れ入ります。

うまく説明できないのですが、
YとZの値を入力すればXの値が導き出されるような計算シートのような
ものをつくりたいのですが、可能でしょうか？

X（単価）×Y（個数）－Z（取得費）＝プラス　の時は
（X×Y）－（（X×Y－Z）×20.315％））＝500,000円以上

X（単価）×Y（個数）－Z（取得費）＝マイナス　の時は
X×Y＝500,000円以上

となるように、
（500,000円も一例なので変わるときもありますが）
Y、Zの値に対してXがいくらであれば希望通りの500,000円以上、
（またその時々で1,000,000円以上になるのか）、
Y、Zの値を入力すればXが自動で表示されるような計算シートを
作りたいのですが、教えていただけませんでしょうか。

何卒よろしくお願い申し上げます。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 >（500,000円も一例なので変わるときもありますが） 
 だとするとYとZだけではなくその基準値？（500000）も指定する必要があるのでは？
（ねむねむ） 2016/10/25(火) 09:04

 誤解しているかもしれませんが、エクセルのテーマというより算数のテーマですか？
 もし、この値の取得を電卓でやるとしたら、どんな計算をしますか？
 その計算を、そのまま　数式に落とし込めばいいのですけど？

 それとも、算数として、計算式がわからないという質問ですか？

（β） 2016/10/25(火) 10:08

Sub main() 'ご参考
'Sheet1のA1にY,A2にZ,A3に500000を入力して実行

    Dim dt() As String, x As Long, y As Long, z As Long, w As Long
    y = Sheets("Sheet1").Range("A1").Value
    z = Sheets("Sheet1").Range("A2").Value
    w = Sheets("Sheet1").Range("A3").Value
    Sheets("Sheet1").Columns("D:E").ClearContents
    ReDim dt(1 To Rows.Count, 1)
    For x = 1 To Rows.Count
        dt(x, 0) = "X=" & x & "の場合"
        If ((x * y) - (x * y - z) * 0.20315 >= w And x * y - z >= 0) Or (x * y >= w And x * y - z < 0) Then
            dt(x, 1) = "OK"
        Else
            dt(x, 1) = "NG"
        End If
    Next x
    Sheets("Sheet1").Range("D1").Resize(Rows.Count, 2).Value = dt
End Sub
（mm） 2016/10/25(火) 10:55

 計算式がわからないという解釈で・・・

 ＜単価の数式＞
 A2セル =IF((E2-D2*C2)/(B2*(1-D2))*B2-C2>0,(E2-D2*C2)/(B2*(1-D2)),E2/B2)

 ＜Sheet1 結果図＞
  行  _____A_____  __B__  ___C___  ___D___  ___ E ___  _F_  __G__  _____H_____  _____I_____
   1  単価(以上)   個数   取得費   掛け目   目標            検証   条件(XxY-Z)  目標       
   2      512.6    1,000  450,000  20.135%    500,000                   62,606    500,000  
   3      500.0    1,000  500,000  20.135%    500,000                        0    500,000  
   4      500.0    1,000  550,000  20.135%    500,000                  -50,000    500,000  
   5    1,050.4    1,000  800,000  20.135%  1,000,000                  250,423  1,000,000

 ＜検証用の数式＞
 H2セル =A2*B2-C2
 I2セル =IF(H2>0,A2*B2-(A2*B2-C2)*D2,A2*B2)

（半平太） 2016/10/25(火) 11:48

mm様、半平太様、お忙しいところ本当にありがとうございました！！
計算できました。
VBA、IF関数でできるのですね。

（ごんちゃまん）2016/10/25(火) 21:16

コメント返信：

[ 一覧(最新更新順) ]

[[20161024230503]] 『YとZの値を入力すればXの値が導き出されるようにａx（ごんちゃまん） ページの最後に飛ぶ

[[20161024230503]]　『YとZの値を入力すればXの値が導き出されるようにａx（ごんちゃまん）　ページの最後に飛ぶ