Изя Штельман
Изя Штельман Ответы на вопросы
03 мая 2019, 10:45

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

Вопрос по ЭКСЕЛю: максимальное значение.
17 Комментариев
    • Blacky
      03 мая 2019, 12:20
      Изя Штельман,
      Форумом не ошиблись?
      • Андрей К
        03 мая 2019, 12:40
        Blacky, прикладные трейдингу задачи =)
        • Blacky
          03 мая 2019, 16:26
          Андрей К,
          Его элементарная задача ничего общего с трейдингом не имеет ;)
          • Андрей К
            03 мая 2019, 16:44
            Blacky, то что спросил авто, достаточно частая задача в трейдинге, пусть уж спросит тут 
            • Blacky
              03 мая 2019, 16:53
              Андрей К,
              Это общая задача, которую можно решить на спецфоруме. Вопрос в том, зачем засорять ленту всякой фигней…
              • Андрей К
                03 мая 2019, 17:01
                Blacky, ну ладно, вы меня перебубнили =))
                • Blacky
                  03 мая 2019, 17:17
                  Андрей К, 
                  Да не было цели перебубнить ;)

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

                  А то, что спросил автор этого топика… нет слов…
        • Blacky
          03 мая 2019, 16:20
          Изя Штельман,
          Ошиблись, потому что по экселю есть свой форум (и не один), на котором можно решить любую прикладную задачу.
  • Андрей К
    03 мая 2019, 11:45
    макрос надо написать, который будет срабатывать на изменение данных на листе и проверять, если в ячейке обновилось значение и оно больше А2, то записываем в А2 новое значение
  • Андрей К
    03 мая 2019, 11:55
    У меня в линуксе екселя нет. Но вот примерно так должно выглядеть, наверняка с первого раза не запустится, но ход мыслей примерно таков


    В А2 вбейте только 0, чтобы не заглючило сходу
  • AG_269
    03 мая 2019, 12:52
    можно вот так:

    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

Активные форумы
Что сейчас обсуждают

Старый дизайн
Старый
дизайн