エクセル VBAについて。その２

質問

以前、こちらの掲示板でお世話になった者です。

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 = 400
Range("E6").Value = 0
Case 2
Range("C6").Value = 32
Range("D5").Value = 1000
Range("D6").Value = 0
Range("E5").Value = 500
Range("E6").Value = 0
End Select

Case "$D$5"
Select Case Range("C5").Value
Case 1
Range("D6").Value = (600 - Range("D5").Value) / 25
Case 2
Range("D6").Value = (1000 - Range("D5").Value) / 25
End Select
Case "$E$5"
Select Case Range("C5").Value
Case 1
Range("E6").Value = (400 - Range("E5").Value) / 50
Case 2
Range("E6").Value = (500 - Range("E5").Value) / 50
End Select

と、上記のようなマクロがお手伝いしていただいた結果、完成しました。
C５に1を代入した場合
D5 = 600
D6 = 0
E5 = 400
E6 = 0

C５に2を代入した場合
D5 = 1000
D6 = 0
E5 = 500
E6 = 0

C５に1を代入しており、D5の値を500に下げた時
D6 = 4
（D5の値を100下げる毎にD6の値に+4 )
（D5の値を100上げる毎にD6の値に-4 ）

C５に1を代入しており、E5の値を300に下げた時
D6 = 4
（E5の値を100下げる毎にE6の値に+4 )
（E5の値を100上げる毎にE6の値に-4 )

＜以下、Ｃ５に2を代入した時のケースを省略。＞

というような意味合いのマクロになったと思いますが、少々困ったことが発生しました。
（D5の値を100下げる毎にD6の値に+4 )
（D5の値を100上げる毎にD6の値に-4 ）
（E5の値を100下げる毎にE6の値に+4 )
（E5の値を100上げる毎にE6の値に-4 )

この部分を

（D5の値を100下げる毎にD6の値に+4 )
（D5の値を100上げる毎にD6の値に-8 ）
（E5の値を100下げる毎にE6の値に+4 )
（E5の値を100上げる毎にE6の値に-8 )

に変更したいのですが、計算式がわかりません（？ω？）
どなたかご指導のほどよろしくお願いします。

回答No.1

hananoppo · ベストアンサー

こんな感じでいかがでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim 初期値 As Integer
Dim 増減値 As Integer

Select Case Target.Address
Case "$C$5"
Select Case Target.Value
Case 1
Range("C6").Value = 24
Range("D5").Value = 600
Range("E5").Value = 400
Case 2
Range("C6").Value = 32
Range("D5").Value = 1000
Range("E5").Value = 500
End Select
Case "$D$5"
Select Case Range("C5").Value
Case 1
初期値 = 600
Case 2
初期値 = 1000
Case Else
Exit Sub
End Select
If Target.Value < 初期値 Then 増減値 = 4 Else 増減値 = 8
Range("D6").Value = (初期値 - Target.Value) / 100 * 増減値
Case "$E$5"
Select Case Range("C5").Value
Case 1
初期値 = 400
Case 2
初期値 = 500
Case Else
Exit Sub
End Select
If Target.Value < 初期値 Then 増減値 = 4 Else 増減値 = 8
Range("E6").Value = (初期値 - Target.Value) / 100 * 増減値
End Select
End Sub