Здравствуйте! Пожалуйста подскажите можно ли в Excel решить такой вопрос с помощью формул. Есть 3 столбца. "Столбец А" - периодически вводится число. "Столбец Б" - Фиксируется минимальное значение из введенных когда либо чисел в "Столбец А". "Столбец Ц" - Фиксируется максимальное значение из введенных когда либо чисел в "Столбец А". Отсюда надо при вводе числа в "Столбец А" сделать сравнение: Если "Столбец А" < "Столбец Б", тогда "Столбец Б" = "Столбец А". И соответственно Если "Столбец А" > "Столбец Ц", тогда "Столбец Ц" = "Столбец А". Какие бы я формулы ни подставлял, получается зацикливание. Может эту задачу можно решить только с помощью макроса?
Здравствуйте! Пожалуйста подскажите можно ли в Excel решить такой вопрос с помощью формул. Есть 3 столбца. "Столбец А" - периодически вводится число. "Столбец Б" - Фиксируется минимальное значение из введенных когда либо чисел в "Столбец А". "Столбец Ц" - Фиксируется максимальное значение из введенных когда либо чисел в "Столбец А". Отсюда надо при вводе числа в "Столбец А" сделать сравнение: Если "Столбец А" < "Столбец Б", тогда "Столбец Б" = "Столбец А". И соответственно Если "Столбец А" > "Столбец Ц", тогда "Столбец Ц" = "Столбец А". Какие бы я формулы ни подставлял, получается зацикливание. Может эту задачу можно решить только с помощью макроса?pahomreg
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("A4"), Target) Is Nothing Then If Range("B4").Value = "" Then Range("B4").Value = Target.Value If Target.Value < Range("B4").Value Then Range("B4").Value = Target.Value If Target.Value > Range("C4").Value Then Range("C4").Value = Target.Value End If End Sub
[/vba]
В модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("A4"), Target) Is Nothing Then If Range("B4").Value = "" Then Range("B4").Value = Target.Value If Target.Value < Range("B4").Value Then Range("B4").Value = Target.Value If Target.Value > Range("C4").Value Then Range("C4").Value = Target.Value End If End Sub