VBA のエラーがわかりません・・・ｗ

質問

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("D6").Value = 0
Range("E5").Value = 400
Range("E6").Value = 0
Range("B7").Value = "★1 MaxAttackPoint:700 / MaxDeffencePoint:900"
Case 2
Range("C6").Value = 32
Range("D5").Value = 1000
Range("D6").Value = 0
Range("E5").Value = 500
Range("E6").Value = 0
Range("B7").Value = "★2 MaxAttackPoint:1100 / MaxDeffencePoint:1300"
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) / 200 * 増減値
End Select
End Sub

Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$F$5"
Select Case Target.Value
Case "炎"
Range("F6").Value = 4
Case "水"
Range("F6").Value = 4
End Select

Case "$G$5"
Select Case Target.Value
Case "ドラゴン"
Range("G6").Value = -8
Case "海竜"
Range("G6").Value = -8
End Select

Case "$H$5"
Select Case Target.Value
Case "ドラゴン"
Range("H6").Value = -16
Case "海竜"
Range("H6").Value = -16
End Select

Case "$I$5"
Select Case Target.Value
Case "○"
Range("I6").Value = 40
Case "×"
Range("I6").Value = 0
End Select
End Select
End Sub

とあるカードゲームのステータス決定を行う為に組まれたマクロです。
作成者は私だけではないのですが、もう何回もしつこく質問をしているため
気が引けてしまい、こちらで質問することにしました・・・ｗ

エラー内容は
２つ目のSub Worksheet_Change(ByVal Target As Range)の
「Worksheet_Change」の名称が間違っています。
という事でした。何を入れればいいのかサッパリです(；´ω)

エラーの改善方法について教えてください。
宜しくお願いします

回答No.1

kmetu · ベストアンサー

Sub Worksheet_Change(ByVal Target As Range)

が2個存在しますのでそれでエラーになってます。
何か根本的なことが間違ってるのでしょう。

それぞれ違うシートのマクロに入れなければいけなかったのではないでしょうか。

作者に問い合わせたほうが良いですね。

お礼

自己解決しましたｗ
お手間をかけましたっ！

回答No.2

imogasi

1のワークシートのＣｈａｎｇｅイベントは１つのはずです。
２つあったりする。これは常識的基本的なことで、それが直接のエラー原因と思います。
後半が別のシートのＣｈａｎｇｅイベントなのかは、部外者にはわかりません。
それ以上はＳｅｌｅｃｔＣａｓｅがネストされているが、質問者で無いと正しいかどうかテストできないし、適否はわかりません。
プログラムのエラー追及は、よほど代表的な原因以外は、こういうコーナーの質問には適さないと思う。