Excel VBA If Thenセル値の条件付き機能

Question

提案された割引率に基づいて価格を計算するか、提案された価格に基づいて割引を計算します。

私は、いずれかのパラメータを使用して理想的な価格を決定するために前後に調整できる必要があります。

私は何もユーザーによって上書きされないようにコードを作成しましたが、 "IF"式の '値がfalseの場合'の要素は1つの列のゼロ値に依存するため問題があります。図を別の図に入力する前に手動で調整しません。これにより、新しい図形がリセットされます。

「Promo Price per Unit」に値が入力されている場合は、シートに「提案されたプロモーションPOR％」列の値をゼロにリセットすることが理想的です。これは可能ですか？

これは現時点でのコードです。明瞭さの計算式については

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

If Intersect(Target, Range("b21:b26")) Is Nothing Then Exit Sub 

Application.EnableEvents = False 
ActiveSheet.Range("$i21:$i26").Formula ="=IF(Proposal!$b21>Formulae!$a$5,Proposal!$g21-(Proposal!$g21*Proposal!$b21), (Proposal!$g21-Proposal!$i21)/Proposal!$g21)" 
Application.EnableEvents = True 

End Sub 

$ $ 5がゼロであり、列の$ I21です！彼らがしたい場合はユーザーが価格を入力することの$ I26。ここに何か入力すれば、列bはゼロにリセットされるはずです。

これが私のシートの列やヘッダのスクリーンショット

Answer 1

Worksheet_Changeイベントがお手伝いしますです。 Worksheet_SelectionChangeは、ユーザがアクティブセルを変更するたびに起動し、Worksheet_Changeはユーザが任意のセル（）を編集するたびに発生します。

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Range("$i21:$i26"")) Is Nothing _ 
    And Target.Rows.Count = 1 and Target.Columns.Count = 1 Then 
    'assumes event will fire only on changing one cell at a time 

    Application.EnableEvents = False 
    Target.Offset(0,-7).Value = 0 
    Application.EnableEvents = True 

End If 

End Sub