Автокопирование значения по принципу Если

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Автокопирование значения по принципу Если (Формулы/Formulas)

ars1734

Дата: Четверг, 02.10.2025, 20:10 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 168

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте уважаемые эксперты.

Помогите пожалуйста придумать формулу, копирующую значение из одной ячейки в другую, если в третьей ячейке стоит 1 ( ИСТИНА)

Необходимо копирование нового максимума или
минимума в формате значения из столбца F
в столбец D или E, в зависимости от направления
Если в ячейках B14 или C14 есть единица.
Например, если F14>D14, то B14=1 Значение F14 должно копироваться в D14
Если F14<E14, то С14=1 Значение F14 должно копироваться в E14

Файл прилагаю.
С уважением

К сообщению приложен файл: limit_copy.xlsm (18.1 Kb)

Ответить

i691198

Дата: Четверг, 02.10.2025, 21:13 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

Репутация: 140 ±

Замечаний: 0% ±

2016

Добрый вечер. Это формулами не решается. Нужно немного дополнить макрос, в операторы If добавить условие проверки значения еще одной ячейки.

Ответить

ars1734

Дата: Четверг, 02.10.2025, 21:40 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 168

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Я не специалист по макросам. Если вас не затруднит, как правильно это сделать?

Ответить

i691198

Дата: Четверг, 02.10.2025, 22:13 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

Репутация: 140 ±

Замечаний: 0% ±

2016

Пример у вас несерьезный - всего одна строка. Предполагаю, что это, как и в вашей предыдущей теме, все таки таблица. Попробуйте такой макрос.
[vba]

Код

Sub Lim1()
  Dim Cl As Range
  For Each Cl In Range("F14:F" & Cells(14, "F").End(xlDown).Row)
    If Cl.Offset(, -2) < Cl And Cl.Offset(, -4) = 1 Then Cl.Offset(, -2) = Cl
    If Cl.Offset(, -1) > Cl And Cl.Offset(, -3) = 1 Then Cl.Offset(, -1) = Cl
  Next
End Sub

[/vba]

Ответить

ars1734

Дата: Четверг, 02.10.2025, 23:55 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 168

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

В данном случае, только одна ячейка и множество листов, не таблица. Поэтому и нужна кнопка, чтобы спец вставку на каждом листе вручную не делать.

Ответить

NikitaDvorets

Дата: Понедельник, 06.10.2025, 17:20 | Сообщение № 6

Группа: Авторы

Ранг: Ветеран

Сообщений: 629

Репутация: 147 ±

Замечаний: 0% ±

Excel 2019

ars1734,
Вариант с доп. столбцами.

К сообщению приложен файл: ew_kopirovat_po_ogranicheniju_.xlsx (14.9 Kb)

Ответить

ars1734

Дата: Понедельник, 06.10.2025, 19:28 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 168

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата NikitaDvorets, 06.10.2025 в 17:20, в сообщении № 6 (

)

Вариант с доп. столбцами.

Добрый вечер, да, формула вытаскивает новый экстремум в отдельном столбце, попробую применить эту формулу как накопительную, в отдельных ячейках.

Спасибо!

Ответить

Автокопирование значения по принципу Если (Формулы/Formulas)

Страница 1 из 1
1