если соседняя ячейка=0,то и текущая 0,если соседняя >0,л. зн

Старая форма входа

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

если соседняя ячейка=0,то и текущая 0,если соседняя >0,л. зн (Формулы/Formulas)

составить формулу

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

Группа: Гости

Всем доброго времени суток. Помогите, пожалуйста, составить формулу. Таблица след.: в 1-ой ячейке из раскрывающегося списка нужно выбрать 1 из значений (от 0 до 4) во второй ячейке тоже раскрывающийся список. Так вот, если в первой ячейке выбирают "0", то во второй ячейке значение д.б. тоже 0. Если в 1-ой ячейке от 1 до 4, то во второй - любое (от 0 до 4). Заранее спасибо!

Ответить

AlexM

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

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

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

Сообщений: 4517

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

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

Excel 2003

Очень мудрено. Нужен файл. Как подготовить читайте в правилах форума.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

ЯНаHR

Дата: Четверг, 17.04.2014, 10:59 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

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

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

Excel 2010

файл прикрепляю

К сообщению приложен файл: 9830407.xls (28.5 Kb)

Ответить

AlexM

Дата: Четверг, 17.04.2014, 11:12 | Сообщение № 4

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

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

Сообщений: 4517

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

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

Excel 2003

Посмотрите решение.
В проверке источник с формулой

Код

=ВЫБОР(2-(D5>0);$J$15:$J$20;$J$15)

К сообщению приложен файл: 9830407_new.xls (31.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

ЯНаHR

Дата: Четверг, 17.04.2014, 11:17 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

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

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

Excel 2010

СПАСИБО!!!
P.S. А как вы это сделали?????

Ответить

китин

Дата: Четверг, 17.04.2014, 11:21 | Сообщение № 6

Группа: Модераторы

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

Сообщений: 7031

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

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

Excel 2007;2010;2016

решение не такое изящное,как у AlexM, но выложу,пожалуй.формула в проверке данных

К сообщению приложен файл: 12345.xls (22.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Четверг, 17.04.2014, 11:22

Ответить

ЯНаHR

Дата: Четверг, 17.04.2014, 11:36 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

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

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

Excel 2010

Научите меня, ну пожалуйста)))) формулы я увидела, единственное, почему их нужно вводить в "проверке данных" а не просто в строке формул?
И еще, если изначально в 1-ой ячейке поставить не "0" и выбрать значение от 1 до 4, а потом этот "0" исправить, то второе значение останется прежним и сообщение об ошибке не появится. Можно как то исправить?

Ответить

AlexM

Дата: Четверг, 17.04.2014, 11:51 | Сообщение № 8

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата ЯНаHR, 17.04.2014 в 11:36, в сообщении № 7

почему их нужно вводить в "проверке данных" а не просто в строке формул

Так было задумано разработчиками программы. Источник выпадающего списка задается в проверке данных.

Цитата ЯНаHR, 17.04.2014 в 11:36, в сообщении № 7

второе значение останется прежним

тут можно только макросом очищать ячейку.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Четверг, 17.04.2014, 11:58

Ответить

AlexM

Дата: Четверг, 17.04.2014, 11:58 | Сообщение № 9

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

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

Сообщений: 4517

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

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

Excel 2003

Файл с макросом убирающий из Е5:Е9 значения при нуле или пусто в D5:D9
Код в модуле листа[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D5:D9"), Target) Is Nothing Then
If Target = 0 Then Target.Offset(0, 1) = ""
End If
End Sub

[/vba]

К сообщению приложен файл: 9830407_new1.xls (33.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

ЯНаHR

Дата: Четверг, 17.04.2014, 12:08 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

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

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

Excel 2010

Цитата AlexM, 17.04.2014 в 11:58, в сообщении № 9

Код в модуле листа

вот тут стало совсем непонятно)))
Ладно, спасибо огроменное!

Ответить

AlexM

Дата: Четверг, 17.04.2014, 12:11 | Сообщение № 11

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата ЯНаHR, 17.04.2014 в 12:08, в сообщении № 10

стало совсем непонятно

Кликните правой кнопкой мыши по ярлычку листа. Выберете "Исходный текст"
Увидите код макроса. Макрос запускается автоматически по событию Worksheet_Change (изменение значений на листе). Если изменение произошло в указанном диапазоне и новое значение равно нулю, то очищается ячейка правее той, в которой произошло изменение.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Четверг, 17.04.2014, 12:15

Ответить

ЯНаHR

Дата: Четверг, 17.04.2014, 12:31 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

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

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

Excel 2010

AlexM, еще раз огромное спасибо, прямо идеальный отчет у меня получается!

Ответить

если соседняя ячейка=0,то и текущая 0,если соседняя >0,л. зн (Формулы/Formulas)

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