Проверка вводимых значений по условию

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

Проверка вводимых значений по условию (Формулы/Formulas)

mkotik

Дата: Пятница, 04.01.2019, 14:39 | Сообщение № 1

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

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

Сообщений: 181

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

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

Excel 2013

Добрый день, Уважаемые Знатоки!
С Наступившим Новым годом!
Как правильно написать формулу, чтобы при выборе значения в Ячейке B3 = "Все", в ячейках D3 и F3 проставлялась "Все"?
Файл прилагаю

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

Ответить

vikttur

Дата: Пятница, 04.01.2019, 15:02 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

Проверка данных позволяет проверять вводимые данные, но не менять данные ячейки.
В одной ячейке проверка данных и формула не уживаются. Тут либо убрать проверку и данные подтягивать только формулой, или наряду с ручным вводом разрешить макросу менять значение

Ответить

mkotik

Дата: Пятница, 04.01.2019, 15:52 | Сообщение № 3

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

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

Сообщений: 181

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

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

Excel 2013

vikttur, спасибо за оперативность!
Поэтому и задаю вопрос - "Как правильно написать формулой?" даже с убиранием проверки?

Ответить

vikttur

Дата: Пятница, 04.01.2019, 17:19 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

Код

=ЕСЛИ(B3="Все";B3;"а здесь что писать?")

Ответить

mkotik

Дата: Пятница, 04.01.2019, 17:30 | Сообщение № 5

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

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

Сообщений: 181

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

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

Excel 2013

>> "а здесь что писать?"
А сюда надо как-то "подать" диапазон

Ответить

vikttur

Дата: Пятница, 04.01.2019, 17:35 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

И? Еще раз: выбрать Вы сами ничего не сможете. Там будет формула.
А вот разрешить формуле выбирать что-либо из диапазона можно. Если, конечно, можно жестко задать условия. Но это уже не по теме.

Сообщение отредактировал vikttur - Пятница, 04.01.2019, 17:37

Ответить

Nic70y

Дата: Пятница, 04.01.2019, 17:37 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9131

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

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

Excel 2010

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3")) Is Nothing Then
        If [b3] = "Все" Then [d3, f3] = "Все"
    End If
End Sub

[/vba]
ну это формула такая

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

ЮMoney 41001841029809

Ответить

Проверка вводимых значений по условию (Формулы/Formulas)

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