У меня есть VBA для ввода в Excel для любой из двух ячеек ... ячейка, не получающая ввода, заполняется результатом формулы на основе ввода от другой.
Пример;
Клетки B4, C4 и D4.
B4 вводится вручную, затем C4 получает ввод вручную, а формула C4 определяет результат для D4 ... Или же... D4 получает ручной ввод, а формула D4 определяет результат для C4.
Код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$4" Or Target.Address = "$D$4" Then
Application.EnableEvents = False
If Target.Address = "$C$4" Then
Range("D4").Value = B4 * C4
Else
Range("C4").Value = D4 / B4
End If
Application.EnableEvents = True
End If
End Sub
Я продолжаю получать Run-Time '6': Ошибка переполнения - особенно в диапазоне ("C4").Значение = D4 / B4 заявление.
Ничто из того, что я пытаюсь решить, кажется, не решает эту проблему ... любые предложения будут с благодарностью