|
▼nobu さん:
おはようございます。
>ありがとうございます。ほぼ希望通りなのですが
>たとえば2列目の200をdeleteした場合3列目300も消したいと思っているのですが
>
>一度クリアすると言うことですができますか。?
これではどうでしょう?
条件分岐 If Then Else や Slect Case を ヘルプや過去ログを参考に
勉強されるといいですよ。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Application.Intersect(Target, Range("B:B,E:E,H:H")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(, 1).ClearComments
Else
Select Case .Column
Case 2
.Offset(, 1).Value = Round(.Offset(, -1).Value - .Value, 2)
Case 5
.Offset(, 1).Value = Round(.Offset(, -1).Value * .Value, 2)
Case 8
.Offset(, 1).Value = Round(.Offset(, -1).Value / .Value, 2)
End Select
End If
Application.EnableEvents = True
End With
End Sub
|
|