|
▼ponpon さん:
ありがとうございます。ほぼ希望通りなのですが
たとえば2列目の200をdeleteした場合3列目300も消したいと思っているのですが
一度クリアすると言うことですができますか。?
追伸 [#42074] はタイミングがずれてしまいました気にしないでください。
コードの構成が前とは驚くほど変わってしまうんですね。(*_*)
>どうしてもマクロなら、
>こんな感じかな?
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> With Target
> If IsEmpty(.Value) Then Exit Sub
> 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
> 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
> Application.EnableEvents = True
> End With
>End Sub
|
|