エクセル 変数？について

質問

Ｃ５に１という値を代入した場合
Ｃ６に表示される値は２４
Ｄ５に表示される値は６００
Ｄ６に表示される値は０
Ｅ５に表示される値は６００
Ｅ６に表示される値は０

Ｃ５に２という値を代入した場合
Ｃ６に表示される値は３２
Ｄ５に表示される値は１０００
Ｄ６に表示される値は０
Ｅ５に表示される値は１０００
Ｅ６に表示される値は０

Ｃ５に１という値を代入した上で
Ｄ５の数字を５００とした場合にＤ６に表示される値は２
（数字を１００下げる毎に、Ｄ６に表示される値が＋２される。）
（数字を１００上げる毎に、Ｄ６に表示される値が－２される。）

Ｅ５の数字を５００とした場合にＤ６に表示される値は１
（数字を１００下げる毎に、Ｄ６に表示される値が＋１される。）
（数字を１００上げる毎に、Ｄ６に表示される値が－１される。）

というようなことをエクセルでやりたいのですが、生憎とエクセルはさっぱりです。
解りやすい方法が乗っているページ。または御説明をくださる方、宜しくお願いします。

回答No.2

hananoppo · ベストアンサー

【補足への回答】
こんな感じでいかがでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$5"
Select Case Target.Value
Case 1
Range("C6").Value = 24
Range("D5").Value = 600
Range("D6").Value = 0
Range("E5").Value = 600
Range("E6").Value = 0
Case 2
Range("C6").Value = 32
Range("D5").Value = 1000
Range("D6").Value = 0
Range("E5").Value = 1000
Range("E6").Value = 0
End Select
Case "$D$5"
Select Case Range("C5").Value
Case 1
Range("D6").Value = (600 - Target.Value) / 50
Case 2
Range("D6").Value = (1000 - Target.Value) / 50
End Select
Case "$E$5"
Select Case Range("C5").Value
Case 1
Range("E6").Value = (600 - Target.Value) / 100
Case 2
Range("E6").Value = (1000 - Target.Value) / 100
End Select
Case "$F$5"
Select Case Target.Value
Case "甲"
Range("F6").Value = 4
Case "乙"
Range("F6").Value = -4
End Select
End Select
End Sub

お礼

おかげさまで素晴らしいものが出来ました。
本当にありがとうございます！

回答No.1

hananoppo

ご希望の内容だとマクロを使うよりないかと思います。
対象シートのシートタブを右クリックして「コードの表示」を選択してください。そして、現れた画面の右側のエリアに次のコードをコピーしてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$5"
Select Case Target.Value
Case 1
Range("C6").Value = 24
Range("D5").Value = 600
Range("D6").Value = 0
Range("E5").Value = 600
Range("E6").Value = 0
Case 2
Range("C6").Value = 32
Range("D5").Value = 1000
Range("D6").Value = 0
Range("E5").Value = 1000
Range("E6").Value = 0
End Select
Case "$D$5"
If Range("C5").Value = 1 Then
Range("D6").Value = (600 - Range("D5").Value) / 50
End If
Case "$E$5"
If Range("C5").Value = 1 Then
Range("D6").Value = (600 - Range("E5").Value) / 100
End If
End Select
End Sub

これで、C5、D5、E5セルに入力があるとご希望通り表示されるようになります。

ところで、ご質問の内容だとE6セルの値は0のまま変わりませんが、それでよかったのでしょうか。
> Ｅ５の数字を５００とした場合にＤ６に表示される値は１
> （数字を１００下げる毎に、Ｄ６に表示される値が＋１される。）
> （数字を１００上げる毎に、Ｄ６に表示される値が－１される。）
とありますが、
> Ｅ５の数字を５００とした場合にＥ６に表示される値は１
> （数字を１００下げる毎に、Ｅ６に表示される値が＋１される。）
> （数字を１００上げる毎に、Ｅ６に表示される値が－１される。）
ということではないのでしょうか。もし後者であれば、コードの下から4行目を次のように変更してください。

Range("E6").Value = (600 - Range("E5").Value) / 100

補足

Ｃ５に２という値を代入した場合
Ｃ６に表示される値は３２
Ｄ５に表示される値は１０００
Ｄ６に表示される値は０
Ｅ５に表示される値は１０００
Ｅ６に表示される値は０

という場合
Ｄ５の数字を９００とした場合にＤ６に表示される値は２
（数字を１００下げる毎に、Ｄ６に表示される値が＋２される。）
（数字を１００上げる毎に、Ｄ６に表示される値が－２される。）
Ｅ５の数字を９００とした場合にＥ６に表示される値は１
（数字を１００下げる毎に、Ｄ６に表示される値が＋１される。）
（数字を１００上げる毎に、Ｄ６に表示される値が－１される。）

また、Ｆ５に甲という文字を入れた時
Ｆ６に表示される値は４
Ｆ５に乙という文字をいれた時
Ｆ６に表示される値は－４

というマクロを追加しようと思い少しいじってみたのですが
素人の浅知恵からやっぱりエラーが出ました( ´；ω；)

度々申し訳ありませんが、ご指導お願いします。