Я благодарен вам за решение, отличное от VBA, но я предложу его, поскольку его довольно просто реализовать и понять. Я оставлю это на ваше усмотрение, хотите ли вы использовать его или нет.
Предположим, что ваши данные организованы следующим образом в Sheet1
вашей рабочей книги:
A B C
1 Temp Max Min
2 25 32 14
Следующий код будет обновлять Max
и Min
всякий раз, когда Temp
изменяется:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim temp As Range, max As Range, min As Range
Set temp = Range("A2") //Change for your specific set-up
Set max = Range("B2") //Change for your specific set-up
Set min = Range("C2") //Change for your specific set-up
If Not Intersect(temp, Target) Is Nothing Then
max = WorksheetFunction.max(Target, max)
min = WorksheetFunction.min(Target, min)
End If
End Sub
Для ясности, чтобы добавить этот код из листа:
- Открыть редактор VB ( ALT + F11 )
- В Project Explorer двойной щелчок Лист1
- Выберите
Worksheet
в раскрывающемся меню слева, а затем Change
в раскрывающемся меню справа