Excelに関して質問です。以前、特定の列のセルに入力した数値を別の列のセルに都度加算していくコードを組んで頂いたのですが、同じ内容を別の列でも行いたいと思っております。組んで頂いたコードは下記です。Private Sub Worksheet_Change(ByVal Target As Range)' E列以外の変更なら終了If Intersect(Target, Range(\u0026quot;E:E\u0026quot;)) Is Nothing Then Exit SubApplication.EnableEvents = False' 変更されたセルと同じ行のK列に加算Cells(Target.Row, \u0026quot;K\u0026quot;).Value = Cells(Target.Row, \u0026quot;K\u0026quot;).Value + Target.ValueApplication.EnableEvents = TrueEnd SubE列のセルに入力した数値を同じ行のK列のセルに加算するという内容です。これに加え、「G列のセルに入力した数値を同じ行のL列のセルに加算する」という内容を加えたいと思っております。どうかご教授お願い致します。

以下のようにしてください。



Private Sub Worksheet_Change(ByVal Target As Range)



' E列以外の変更なら終了

If Intersect(Target, Range(\u0026quot;E:E\u0026quot;, \u0026quot;G:G\u0026quot;)) Is Nothing Then Exit Sub



Application.EnableEvents = False



If Target.Column = 5 Then

' E列が変更された場合、同じ行のK列に加算

Cells(Target.Row, \u0026quot;K\u0026quot;).Value = Cells(Target.Row, \u0026quot;K\u0026quot;).Value + Target.Value

Else

' G列が変更された場合、同じ行のL列に加算

Cells(Target.Row, \u0026quot;L\u0026quot;).Value = Cells(Target.Row, \u0026quot;L\u0026quot;).Value + Target.Value

End If



Application.EnableEvents = True



End Sub