Ответы на вопросы

Ответы на вопросы | Вопрос по ЭКСЕЛю: максимальное значение.

Вопрос по ЭКСЕЛю: максимальное значение.
★1
17 комментариев

В ячейке А1 автоматически меняются цифры. Например, 100, 101, 90, 95 и т.д. Необходимо в ячейку А2 внести максимальное значение. В данном примере 101. В дальнейшем, если значение будет больше 101, например 102, то внести 102.

Функция =МАКС не подходит, так как используется 1 ячейка, а не их множество. Подскажите, какой функцией или макросом можно решить данную задачу. Заранее спасибо.

Изя Штельман,
Форумом не ошиблись?
avatar
Blacky, прикладные трейдингу задачи =)
avatar
Андрей К,
Его элементарная задача ничего общего с трейдингом не имеет ;)
avatar
Blacky, то что спросил авто, достаточно частая задача в трейдинге, пусть уж спросит тут 
avatar
Андрей К,
Это общая задача, которую можно решить на спецфоруме. Вопрос в том, зачем засорять ленту всякой фигней…
avatar
Blacky, ну ладно, вы меня перебубнили =))
avatar
Андрей К, 
Да не было цели перебубнить ;)

Просто вот, например, прикладная трейдерская задача: https://smart-lab.ru/mobile/topic/537117/

А то, что спросил автор этого топика… нет слов…
avatar
Blacky, Нет. Я за своими бумагами слежу с помощью экселя. Вывожу данные из квика через DDE, а формулы и фильтры показывают мне нужные результаты. Я уверен в том, что многие здесь работают с экселем.
Изя Штельман,
Ошиблись, потому что по экселю есть свой форум (и не один), на котором можно решить любую прикладную задачу.
avatar
макрос надо написать, который будет срабатывать на изменение данных на листе и проверять, если в ячейке обновилось значение и оно больше А2, то записываем в А2 новое значение
avatar
У меня в линуксе екселя нет. Но вот примерно так должно выглядеть, наверняка с первого раза не запустится, но ход мыслей примерно таков


В А2 вбейте только 0, чтобы не заглючило сходу
avatar
можно вот так:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(«Sheet1»)

'MsgBox ws.Cells(1, 1).Value

If ws.Cells(1, 1).Value > ws.Cells(1, 2).Value Then
   ws.Cells(1, 2).Value = ws.Cells(1, 1).Value
End If

End Sub
avatar

теги блога Изя Штельман

....все тэги



UPDONW