здравствуйте. в табличке с фруктами в столбце штук количество фруктов постоянно меняеться . Оно может быть больше или меньше предыдущего значения. Требуеться что бы в табличке "максимальные значения" отражались именно максимальные значения по каждому фрукту
здравствуйте. в табличке с фруктами в столбце штук количество фруктов постоянно меняеться . Оно может быть больше или меньше предыдущего значения. Требуеться что бы в табличке "максимальные значения" отражались именно максимальные значения по каждому фруктуTanyaZorina
в вашем примере не понятно где предыдущие значения... вы хотите найти большее число среди тех ф-тов, которые у Вас в файле или относительно нескольких таких таблиц?
в вашем примере не понятно где предыдущие значения... вы хотите найти большее число среди тех ф-тов, которые у Вас в файле или относительно нескольких таких таблиц?Roman777
в вашем примере не понятно где предыдущие значения.
конкретно по каждому фрукту, скажим у яблок было 55шт., потом кол-во изменилось и стало 13шт. и в таблице максимальное значение у яблок должно оставаться 55. ячейка B5 изменяеться как в большую так и в меньшую сторон, а в ячейке F5 должно сохраняться только наибольшее из этих значений
в вашем примере не понятно где предыдущие значения.
конкретно по каждому фрукту, скажим у яблок было 55шт., потом кол-во изменилось и стало 13шт. и в таблице максимальное значение у яблок должно оставаться 55. ячейка B5 изменяеться как в большую так и в меньшую сторон, а в ячейке F5 должно сохраняться только наибольшее из этих значенийTanyaZorina
Сообщение отредактировал TanyaZorina - Пятница, 22.04.2016, 23:32
Ну да , перемудрил. Сначала считал максимальное в столбце, поэтому диапазон с запасом, а после пояснений (Сообщение №3) не исправил, оставил как было.gling
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b5:b9")) Is Nothing Then If Target > Target.Offset(0, 4) Then Target.Offset(0, 4) = Target End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b5:b9")) Is Nothing Then If Target > Target.Offset(0, 4) Then Target.Offset(0, 4) = Target End If End Sub