エクセルの数式が、、、。

質問

(1)A1が０のとき、０。
　　　１のとき、固定の数値１００（仮）。
　　　２以上のとき、固定の数値３００（仮）。
　上の条件では、数値は２種類しかありません。
　さらに、A2が０のとき、そのまま。
　　　　　　　　１のとき、そのまま。
　　　　　　　　２のとき、２倍。
　　　　　　　　３のとき、３倍、、、、、、、、。
　という数値を、A3に返したい。

(2)A1が０のとき、０。
　　　　１のとき、A2*0.4のプラスマイナスを逆転させた数値。
　　　　２以上のとき、０。
　で、さらにA3が０のとき、そのまま。
　　　　　　　　１のとき、そのまま。
　　　　　　　　２のとき、２倍。
　　　　　　　　３のとき、３倍、、、、、、、、。
　という数値を、A3に返したい。

(3)A1が０のとき、０。
　　　　１のとき、固定の数値１００（仮）。
　　　　２以上のとき、固定の数値１００（仮）*２。
　で、さらにA2が０のとき、そのまま。
　　　　　　　　　　１のときは、固定の数値１００（仮）*３。
　　　　　　　　　　２のときは、固定の数値１００（仮）*４。
　　　　　　　　　　３のときは、固定の数値１００（仮）*５、、、、、、。
　で、A3が０のときは、０（A1、A2関係なく）。
　　　　　　１のときは、そのまま。
　　　　　　２のときは、上記の数値の倍。
　　　　　　３のときは、上記の数値の３倍、、、、、、、。
　という数値を、A4に返したい。
このときの、数式を教えて欲しいのです。
とても分かりずらいと思いますが、どなたか教えていただけないでしょうか。

回答No.7

kazuhiko5681 · ベストアンサー

こんばんわ。＃４の補足に書かれた条件でサンプルマクロを組むと下記の様になります。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$B$1" Then Exit Sub
If Range("B1").Value = 1 Then
Call Sheet1.myKeisan1
ElseIf Range("B1").Value = 2 Then
Call Sheet1.myKeisan2
End If

End Sub

Sub myKeisan1()

Select Case Range("A2").Value

Case 0
Range("A4").Value = 0
Case 1
Select Case Range("A3").Value

Case 0, 1
Range("A4").Value = 100
Case 2
Range("A4").Value = 200
Case 3
Range("A4").Value = 300

End Select
Case 2
Select Case Range("A3").Value

Case 0, 1
Range("A4").Value = 200
Case 2
Range("A4").Value = 400
Case 3
Range("A4").Value = 600

End Select

End Select

End Sub

Sub myKeisan2()

Select Case Range("A2").Value

Case 1
Select Case Range("A3").Value

Case 0, 1
Range("A4").Value = CInt(Range("A1").Value) * -1
Case Else
Range("A4").Value = CInt(Range("A1").Value) * CInt(Range("A3").Value) * -1

End Select
Case Else
Range("A4").Value = 0

End Select

End Sub

もし、このマクロの操作方法をお知りになりたい時は、お知らせ下さい。

お礼

何度も回答ありがとうございます。
じっさいマクロを走らせてみましたが、
やはり素人の私には少し難しいようです。
今回の件は、質問には書かなかったのですが、
そういったセット（今回のを１セットとして）同じシートで７セット作らなくてはいけなくて、そのためやはり数式で表現したいです。
今回の質問は、少し抽象的すぎ、反省しております。
今回は、とりあえず締め切ります。次回、近いうちに具体的な数字と、その数式を使用するのあたっての状況を詳しく書いて、また質問を投稿したいと思います。
そのときは、また協力していただけるとありがたいです。
今回は、マクロの作り方が分かり、少しエクセルの知識が増えたような気がします。
ほんとに、ありがとうございました。

回答No.6

kazuhiko5681

こんばんわ。投稿ボタンを間違えて押してしまいました。＃３の補足で書かれた条件でサンプルマクロを組んでみました。シート１の１行目は、マクロを動作させるために必要な行として使わせていただきますので、データの入力は２行目以降になります。マクロもミスが見つかりましたので、下のマクロを使って下さい。

まず、次のようにマクロを新規ブックにコピー＆ペーストして下さい。

・新規ブックを開き、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている下のSheet1をダブルクリックして表示された画面の右側の白い部分に下記のコードをコピー＆ペーストする。

ＡＬＴ＋Ｆ１１キーでエクセルの画面にもどり、次のように操作します。

１.Ａ２以降にデータを入力する。
２.最後に、Ａ１で計算の方法を指定する。(Ａ１を抜けた時点でマクロが走りますので、一番最後に指定しないとエラーが起こる場合があります。)
計算方法の指定の仕方
(1)の時1・(２)の時2・(３)の時3(数字は半角英数で指定して下さい。)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Then Exit Sub
If Range("A1").Value = 1 Then
Call Sheet1.myKeisan1
ElseIf Range("A1").Value = 2 Then
Call Sheet1.myKeisan2
ElseIf Range("A1").Value = 3 Then
Call Sheet1.myKeisan3
End If

End Sub

Sub myKeisan1()

If Range("A2").Value = 0 Then
Range("A5").Value = 0
Else
Range("A5").Value = 36000
End If

End Sub

Sub myKeisan2()

Select Case Range("A2").Value

Case 1
If Range("A3").Value = 0 Then
Range("A7").Value = 14000 * -1
Else
Range("A7").Value = 14000 * CInt(Range("A3").Value) * -1
End If
Case Else
Range("A7").Value = 0

End Select

End Sub

Sub myKeisan3()

Select Case Range("A2").Value

Case 0, 1, 2
Range("A6").Value = 0
Case 3
If Range("A4").Value = 1 Then
If Range("A3").Value = 0 Then
Range("A4").Value = 6500
Else
Range("A4").Value = 6500 * CInt(Range("A2").Value)
End If
End If
Case 4
If Range("A4").Value = 1 Then
If Range("A3").Value = 0 Then
Range("A4").Value = 6500
Else
Range("A4").Value = 6500 * CInt(Range("A2").Value)
End If
ElseIf Range("A4").Value = 2 Then
If Range("A3").Value = 0 Then
Range("A4").Value = 13000
Else
Range("A4").Value = 13000 * CInt(Range("A2").Value)
End If
End If

End Select

End Sub

もし、マクロを動作させるために１行目を使わない方がよろしければ、他の方法でマクロを動作させることも可能です。その時は、お知らせいただければそのようにマクロを変更させていただきますので、ご遠慮なくお知らせ下さい。

回答No.5

kazuhiko5681

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Then Exit Sub
If Range("A1").Value = 1 Then
Call Sheet1.myKeisan1
ElseIf Range("A1").Value = 2 Then
Call Sheet1.myKeisan2
End If

End Sub

Sub myKeisan1()

If Range("A2").Value = 0 Then
Range("A5").Value = 0
Else
Range("A5").Value = 36000
End If

End Sub

Sub myKeisan2()

Select Case Range("A2").Value

Case 1
If Range("A3").Value = 0 Then
Range("A7").Value = 14000 * -1
Else
Range("A7").Value = 14000 * CInt(Range("A3").Value) * -1
End If
Case Else
Range("A7").Value = 0

End Select

End Sub

Sub myKeisan3()

Select Case Range("A1").Value

Case 0, 1, 2
Range("A6").Value = 0
Case 3
If Range("A3").Value = 1 Then
If Range("A2").Value = 0 Then
Range("A3").Value = 6500
Else
Range("A3").Value = 6500 * CInt(Range("A2").Value)
End If
End If
Case 4
If Range("A3").Value = 1 Then
If Range("A2").Value = 0 Then
Range("A3").Value = 6500
Else
Range("A3").Value = 6500 * CInt(Range("A2").Value)
End If
ElseIf Range("A3").Value = 2 Then
If Range("A2").Value = 0 Then
Range("A3").Value = 13000
Else
Range("A3").Value = 13000 * CInt(Range("A2").Value)
End If
End If

End Select

End Sub

回答No.4

kazuhiko5681

初めまして。
(１)で、
・Ａ１が０の時
　Ａ２が０・１・２・３であってもＡ３に０を表示
・Ａ１が１の時
　Ａ２が０・１ならばＡ３に１００(仮)を表示
　Ａ２が２ならば、Ａ３に２００(仮)を表示
　Ａ２が３ならば、Ａ３に３００(仮)を表示
・Ａ１が２の時
　Ａ２が０・１ならばＡ３に３００(仮)を表示
　Ａ２が２ならば、Ａ３に６００(仮)を表示
　Ａ２が３ならば、Ａ３に９００(仮)を表示
ということでよろしいのでしょうか。

(２)についても同様の考え方でよろしいのでしょうか？

(３)についても同じような要領で条件を書いていただけないでしょうか。

このないようでは、貴方様のおやりになりたいことがよく理解できません。

お手数をおかけいたしますが、よろしくお願いいたします。

補足

＞初めまして。
はじめまして。
下のように訂正しました。
（３）は複雑になるのであきらめました。
これで、どうでしょうか。
（１）も若干変更しました。

＞（１）
・Ａ１が０の時
　Ａ２が０・１・２・３であってもＡ３に０を表示
・Ａ１が１の時
　Ａ２が０・１ならばＡ３に１００(仮)を表示
　Ａ２が２ならば、Ａ３に２００(仮)を表示
　Ａ２が３ならば、Ａ３に３００(仮)を表示
・Ａ１が２の時
　Ａ２が０・１ならばＡ３に２００(仮)を表示
　Ａ２が２ならば、Ａ３に４００(仮)を表示
　Ａ２が３ならば、Ａ３に６００(仮)を表示

＞（２）
・Ａ１が０の時
　Ａ２が０・１・２・３・４‥であってもＡ３に０を表示
・Ａ１が１の時
　Ａ２が０・１ならばＡ３に－４０(仮)を表示
　Ａ２が２ならば、Ａ３に－８０(仮)を表示
　Ａ２が３ならば、Ａ３に－１２０(仮)を表示
　以下、４以降続きます。
・Ａ１が２以上の時
　Ａ２が０・１・２・３・４‥であってもＡ３に０を表示

回答No.3

imogasi

＞とても分かりずらいと思いますが－－良く判らない。
（１）（１）と（２）と（３）の関係は？
（２）例えば（１）で下表のa-lはどうなるのでしょう？
A1とA2の値は両方ともA3の値に影響するのですよね？
　　A2　｜0 　｜1 ｜2 ｜3　｜
　　A1　｜　　｜　｜ 　｜　｜　
　　－－｜－－－－－－－－－－
　　0 　｜　a｜b ｜c　｜d　｜　
1 ｜ e　｜f｜g　｜h　｜
2　｜　i｜j　｜k　｜l　｜
（３）（３）はA1とA2とA3の３項目関連しているのですか？
（４）IF文とVLOOKUP関数のネストで出来そうなんですが
問題文の条件の意味が捉えられない。
（４）符号反転は－１を掛ければよい。
（５）こう言う複雑になると、VBAでIF文のネストCASE文とIFの組み合わせ方が素直に表現できそう。

お礼

回答ありがとうございます。
やはり、マクロは素人の私には向いてないようです。
また、次の機会には分かりやすい質問にしますのでよろしくお願いします。

補足

はじめまして。
下のように訂正しました。
これで、どうでしょうか。
書いてないセルは反映しなくていいです。
若干変更しました。そして、全てに関連性をもたせました。（１）、（２）、（３）のＡ１～６は同一セルです。
＞（１）
Ａ１が０の時、他のセルに関係なくＡ５は０を表示
Ａ１が１以上の時、Ａ５に３６０００を表示。

＞（２）
・Ａ１が０の時
　Ａ２が０・１・２・３・４‥であってもＡ７に０を表示
・Ａ１が１の時
　Ａ２が０・１ならばＡ７に－１４４００を表示
　Ａ２が２ならば、Ａ７に－２８８００を表示
　Ａ２が３ならば、Ａ７に－４３２００を表示
　以下、４以降続きます。
・Ａ１が２以上の時
　Ａ２が０・１・２・３・４‥であってもＡ７に０を表示　

＞（３）
・Ａ１が０・１・２の時
　Ａ２、Ａ３が０・１・２・３であってもＡ６に０を表示
・Ａ１が３の時
　Ａ３が１の時
　Ａ２が０・１ならばＡ３に６５００を表示
　Ａ２が２ならば、Ａ３に１３０００を表示
　Ａ２が３ならば、Ａ３に１９５００を表示
　以下、４以降続きます。

・Ａ１が４の時
　Ａ３が１の時
　Ａ２が０・１ならばＡ３に６５００を表示
　Ａ２が２ならば、Ａ３に１３０００を表示
　Ａ２が３ならば、Ａ３に１９５００を表示
　以下、４以降続きます。

　Ａ３が２の時
　Ａ２が０・１ならばＡ３に１３０００を表示
　Ａ２が２ならば、Ａ３に２６０００を表示
　Ａ２が３ならば、Ａ３に３９０００を表示
　以下、４以降続きます。

回答No.2

grumpy_the_dwarf

入力した数値に小数部が含まれていても、整数部だけを見る事にします。負の数値は
入力されないことを期待しています。

(1)
=if(int(A1)>=2,300,int(A1)*100)*if(int(A2)<=1,1,int(A2))

(2)
=if(int(A1)=1, -0.4*A2,0)*if(int(A3)<=1,1,int(A3))

(3)
=if(int(A2)=0,min(int(A1),2),int(A2)+2)*100*int(A3)

とまぁ、こんな感じでいかがでしょうか?

お礼

ありがとうございます。
やっぱり、数式ですと、アレンジがききますよね。
素人でも「こことここを変えれば・・・」と、とても参考になりました。
ただ、若干こちらの表現のまずさのせいでしょう。
私の意図する結果が出ませんでした。
でも、全部数式で書いてくださってありがとうございました（礼）。

回答No.1

KODAMAR

（１）
=IF(A13=0,0,IF(A13=1,100,IF(A13>=2,300,"")))

です。

お礼

ありがとうございます。
Ａ３の倍数がないみたいですが
それさえあれば完璧でした。
私の質問の書き方が少し分かりづらかったのかもしれません。
でも、すぐ数式を書けるなんてすごいですね。