同じシートに二つのことを実行したいんです。 2個目はC4にすでに2と入力しています。セル（G8）に数字を入力すると、G8－C4の値は２以上ならF13=D13になるようにしたい。

Question

シート１に下記のコードをすでに記入してあります。問題なく実行できます。

 
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 6 And Target.Column <> 14 And Target.Column <> 22 And Target.Column <> 30 Then Exit Sub
    
    Dim i As Variant
    i = Target.Value
    If Not IsNumeric(i) Or IsEmpty(i) Then Exit Sub

    Dim j As Variant
    j = Target.Offset(, -2).Value
    If Not IsNumeric(j) Or IsEmpty(j) Then Exit Sub

    Application.EnableEvents = False
    Target.Value = j * i
    Application.EnableEvents = True
    
    
End Sub

同じシートに下記のことを追加して実行したいんです。
C4にすでに2と入力しています。セル（G8）に数字を入力すると、G8－C4の値は２以上ならF13=D13になるようにしたい。
また、K4にすでに３と入力しています。セル（O8）に数字を入力すると、O8－K4の値は２以上ならN13=L13になるようにしたい。
下記のコードを書きました。エラーができました。
コンパイル　エラー　名前が適切ではありません
直し方を教えていただけますでしょうか？どうかよろしくお願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 6 And Target.Column <> 14 And Target.Column <> 22 And Target.Column <> 30 Then Exit Sub
    
    Dim i As Variant
    i = Target.Value
    If Not IsNumeric(i) Or IsEmpty(i) Then Exit Sub

    Dim j As Variant
    j = Target.Offset(, -2).Value
    If Not IsNumeric(j) Or IsEmpty(j) Then Exit Sub

    Application.EnableEvents = False
    Target.Value = j * i
    Application.EnableEvents = True
    
    
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) <> "G" & 8 And Target.Address(0, 0) <> "N" & 8 Then Exit Sub
    
    Dim T As Variant
    
    Dim T1 As Variant
    T1 = Target.Value
    If Not IsNumeric(T1) Or IsEmpty(T1) Then Exit Sub

    Dim T2 As Variant
    T2 = Target.Offset(4, -4).Value
    If Not IsNumeric(T2) Or IsEmpty(T2) Then Exit Sub

    Application.EnableEvents = False
    T = T1 - T2
    If T > 2 Then Target.Offset(5, -1) = Target.Offset(5, -3)
    
    Application.EnableEvents = True
    
    
End Sub

Answer 1

モジュール内に同じ名前のプロシージャを記述するとことはできません。

一つのWorksheet_Changeにまとめましょう。

アウトラインとしては下記のような記述になります。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 6 Or Target.Column = 14 Or Target.Column = 22 Or Target.Column = 30 Then 
        'F列、N列、V列、AD列に入力されたときに実行する処理


    ElseIf Target.Address(0, 0) = "G8" Or Target.Address(0, 0) <> "O8" Then

        'G8、N8に入力されたときに実行する処理

    End If
End Sub

Comments

[freia]

こんにちは。
先日からいろいろお世話になっております。

コードを次のように変えました。Ifの次の動きは大丈夫です。
ElseIfの次の動作がしないんです。
どこがまちがっているんでしょうか？
教えていただけますでしょうか？どうかよろしくお願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 6 Or Target.Column = 14 Or Target.Column = 22 Or Target.Column = 30 Then

Dim i As Variant
i = Target.Value
If Not IsNumeric(i) Or IsEmpty(i) Then Exit Sub

Dim j As Variant
j = Target.Offset(, -2).Value
If Not IsNumeric(j) Or IsEmpty(j) Then Exit Sub

Application.EnableEvents = False
Target.Value = j * i
Application.EnableEvents = True

ElseIf Target.Address(0, 0) = "G" & 8 Or Target.Address(0, 0) = "O" & 8 Then

Dim T As Variant

Dim T1 As Variant
T1 = Target.Value
If Not IsNumeric(T1) Or IsEmpty(T1) Then Exit Sub

Dim T2 As Variant
T2 = Target.Offset(4, -4).Value
If Not IsNumeric(T2) Or IsEmpty(T2) Then Exit Sub

Application.EnableEvents = False
T = T1 - T2
If T > 2 Then Target.Offset(5, -1) = Target.Offset(5, -3)

Application.EnableEvents = True

End If

End Sub

[hatena19]

G8－C4 ということなら、
T2 = Target.Offset(4, -4).Value
は、下記になると思います。
T2 = Target.Offset(-4, -4).Value

[freia]

hatena１９さん、おはようございます。

修正しまして、その通り動作しました。
どうもありがとうございました。

実は、後ちょっとの修正が必要になりますが、自分で調べてまた質問させていただきますね。
では、よいお週末(^^♪