SMART-LAB
Новый дизайн
Мы делаем деньги на бирже
Информация
теги блога Изя Штельман
- 5G
- Alibaba Group
- Aliexpress Russia
- Huawei
- Mail.ru Group
- Sinopec
- TATN
- tatnp
- X5 Retail Group
- активы
- Акции
- анализ
- банк
- Банки в России
- баффет
- башнефть
- бизнес
- биометрия
- валюта
- взятки
- вклад
- ВТБ
- галицкий
- где взять денег
- геббельс
- геи
- гражданство РФ
- демография
- денежный поток
- депозит
- дивиденды
- Долгосрочная стратегия
- долгосрочное инвестирование
- доллар
- евросоюз
- Единая Россия
- ЖКХ
- зарплата
- ЗОЖ
- золото
- инвестидеи
- инвестирование
- инвестиции
- инвестиционная идея
- инвестиционный портфель
- интернет магазин
- искусственный интеллект
- квалификация
- Китай
- контрсанкции
- коррупция
- кредит на акции
- кризис
- курение
- Магнит
- миграция
- Минфин
- Мираторг
- мкб
- мода
- мрск
- МТС
- мусор
- начинающий инвестор
- недвижимость
- нейронные сети
- Нефть
- Новатэк
- облако
- Облигации
- овернайт
- портфель
- портфель инвестора
- работа
- реинвестирование
- РЕПО
- роснано
- Россети
- Россия
- ростех
- санкции
- сбербанк
- семейный бюджет
- семья
- строительство
- структура портфеля
- Сургутнефтегаз
- США
- татнефть
- торговые роботы
- У. Баффет
- факторы роста
- Хуавэй
- ЦБ
- ЦБ России
- цена на нефть
- Черкизово
- экономика
- экономика России
- эксель
В ячейке А1 автоматически меняются цифры. Например, 100, 101, 90, 95 и т.д. Необходимо в ячейку А2 внести максимальное значение. В данном примере 101. В дальнейшем, если значение будет больше 101, например 102, то внести 102.
Функция =МАКС не подходит, так как используется 1 ячейка, а не их множество. Подскажите, какой функцией или макросом можно решить данную задачу. Заранее спасибо.
Форумом не ошиблись?
Его элементарная задача ничего общего с трейдингом не имеет ;)
Это общая задача, которую можно решить на спецфоруме. Вопрос в том, зачем засорять ленту всякой фигней…
Да не было цели перебубнить ;)
Просто вот, например, прикладная трейдерская задача: https://smart-lab.ru/mobile/topic/537117/
А то, что спросил автор этого топика… нет слов…
Ошиблись, потому что по экселю есть свой форум (и не один), на котором можно решить любую прикладную задачу.
В А2 вбейте только 0, чтобы не заглючило сходу
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
Только зарегистрированные и авторизованные пользователи могут оставлять ответы.
Залогиниться
Зарегистрироваться