Сохраняйте фиксированное соотношение между двумя ячейками Excel vba

Question

В настоящее время im создает модель, в которой мне нужны 2 ячейки, чтобы сохранить фиксированное соотношение, так что когда сумма из двух ячеек всегда равна единице. В этом случае ячейками являются F13 и F14. Чтобы привести пример, если значение F13 изменилось на 0,4, тогда F14 должно стать 0,6. То же самое происходит, если значение off F14 изменяется на 0,2, тогда F13 должно составлять 0,8. Код, который я получил для получения:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Target.Worksheet.Range("F13")) Is Nothing Then 
     If ActiveCell.Value > 1 Then 
      MsgBox "input value is larger than 1" 
     Else 
      Range("F14").Value = 1 - ActiveCell.Value 
      Exit Sub 
     End If 
     Exit Sub 
    End If 
    Exit Sub 

    If Not Intersect(Target, Target.Worksheet.Range("F14")) Is Nothing Then 
     If ActiveCell.Value > 1 Then 
      MsgBox "input value is larger than 1" 
     Else 
      Range("F13").Value = 1 - ActiveCell.Value 
      Exit Sub 
     End If 
     Exit Sub 
    End If 
    Exit Sub 

End Sub 

Однако этот код не работает должным образом. Поэтому мой вопрос заключается в том, как мне изменить свой код, чтобы он работал правильно?

Answer 1

Может быть, это будет работать для вас:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim v As Variant 
    If Target.Address = "$F$13" Then 
     v = Target.Value 
     If Not IsNumeric(v) Then 
      Range("F13").Value = CVErr(xlErrValue) 
     ElseIf v < 0 Or v > 1 Then 
      Range("F13").Value = CVErr(xlErrValue) 
     Else 
      Range("F14").Value = 1 - v 
     End If 
    ElseIf Target.Address = "$F$14" Then 
     v = Target.Value 
     If Not IsNumeric(v) Then 
      Range("F14").Value = CVErr(xlErrValue) 
     ElseIf v < 0 Or v > 1 Then 
      Range("F14").Value = CVErr(xlErrValue) 
     Else 
      Range("F13").Value = 1 - v 
     End If 
    End If 
End Sub 

Если F13 изменяется на значение в диапазоне от 0 до 1, то F14 автоматически изменяется на комплементарный значение, и наоборот. Если какое-либо значение, отличное от числа от 0 до 1, помещается в одну из этих двух ячеек, тогда значение в этой ячейке становится ошибкой. Обработчик событий работает только в том случае, если значение помещается непосредственно в любую из этих ячеек (в отличие от большего диапазона, содержащего эти ячейки), но с использованием вами ActiveCell, который, по-видимому, является намерением.