Строки и выпадающий список

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

Строки и выпадающий список (Формулы/Formulas)

Marina83

Дата: Воскресенье, 13.06.2021, 19:33 | Сообщение № 1

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

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

Сообщений: 33

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

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

Excel 2016

Добрый день!
Подскажите, пожалуйста, как реализовать следующее:

1) В столбце "Регистрационный номер": если вбить в ячейку этого столбца любое значение, то автоматически в столбце "Статус" будет значение "В работе" с красной подсветкой.

2) Если добавлено значение в ячейку столбца "Отметка об исполнении", то статус меняется на "Выполнено" и подсвечивается зелёным.

3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека из выпадающего списка?

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

Ответить

DrMini Дата: Понедельник, 14.06.2021, 06:46 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2043

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

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

Excel LTSC 2024 RUS

Доброе время суток.

Цитата Marina83, 13.06.2021 в 19:33, в сообщении № 1 (

писал(а)):

3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека

У меня не так давно была такая же проблема. Сделал макросом так:

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("H2:H1000")) Is Nothing And Target.Cells.Count = 1 Then Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & " " & newVal Else Target = newVal End If If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End If End Sub

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

Ответить

DrMini

Дата: Понедельник, 14.06.2021, 08:04 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 2043

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

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

Excel LTSC 2024 RUS

Marina83,
Файл доделал. Но у меня знаний маловато. Думаю здешние гуру "допилят" задание намного элегантнее.

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

Ответить

Marina83

Дата: Понедельник, 14.06.2021, 10:35 | Сообщение № 4

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

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

Сообщений: 33

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

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

Excel 2016

DrMini, просто отлично, то, что нужно!

Ещё хотела спросить:

1) Можно ли сделать Иванова, Петрова, Сидорова списком? То есть, что ставить в кавычках в коде Target = Target & " " & newVal

2) Можно ли сделать полностью подсветку строки вместо одной ячейки? То есть, если "В работе", то вся строка красная, если "Выполнено" - строка зелёная.

- В столбце "Регистрационный номер": если вбить в ячейку этого столбца любое значение, то автоматически в столбце "Статус" будет значение "В работе" с красной подсветкой.

- Если добавлено значение в ячейку столбца "Отметка об исполнении", то статус меняется на "Выполнено" и подсвечивается зелёным.

Ответить

DrMini Дата: Понедельник, 14.06.2021, 10:49 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 2043

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

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

Excel LTSC 2024 RUS

Цитата Marina83, 14.06.2021 в 10:35, в сообщении № 4 (

писал(а)):

1) Можно ли сделать Иванова, Петрова, Сидорова списком?

Так они у Вас и так в выпадающем списке.

Цитата Marina83, 14.06.2021 в 10:35, в сообщении № 4 (

писал(а)):

что ставить в кавычках в коде

В кавычки вставляется то, что будет находится между словами выбранными из выпадающего списка.
Например если сделать так:

Target = Target & ", " & newVal

то на выходе получится Иванов, Петров, Сидоров

Цитата Marina83, 14.06.2021 в 10:35, в сообщении № 4 (

писал(а)):

Можно ли сделать полностью подсветку строки вместо одной ячейки?

Да можно.

Ответить

Marina83

Дата: Понедельник, 14.06.2021, 10:54 | Сообщение № 6

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

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

Сообщений: 33

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

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

Excel 2016

Цитата DrMini, 14.06.2021 в 10:49, в сообщении № 5 (

писал(а)):

Так они у Вас и так в выпадающем списке.

Я имею в виду, что было списком в самой ячейке:

Иванов
Петров
Сидоров

Цитата DrMini, 14.06.2021 в 10:49, в сообщении № 5 (

писал(а)):

Можно ли сделать полностью подсветку строки вместо одной ячейки?

Да можно.

Подскажете формулу?)

Ответить

DrMini Дата: Понедельник, 14.06.2021, 11:24 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 2043

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

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

Excel LTSC 2024 RUS

Цитата Marina83, 14.06.2021 в 10:54, в сообщении № 6 (

писал(а)):

что было списком в самой ячейке:

Попробуйте изменить в VBA:

Target = Target & " " & newVal

на:

Target = Target & Chr(10) & newVal

Ответить

Marina83

Дата: Понедельник, 14.06.2021, 11:29 | Сообщение № 8

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

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

Сообщений: 33

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

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

Excel 2016

Цитата DrMini, 14.06.2021 в 11:24, в сообщении № 7 (

писал(а)):

Target = Target & Chr(10) & newVal

Да, работает, спасибо огромное!

Ответить

DrMini

Дата: Понедельник, 14.06.2021, 12:04 | Сообщение № 9

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

Ранг: Старожил

Сообщений: 2043

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

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

Excel LTSC 2024 RUS

Цитата Marina83, 14.06.2021 в 10:54, в сообщении № 6 (

писал(а)):

Подскажете формулу?

Как говорил раньше я в excel не очень соображаю.
Добавил два правила для "подсветки" строки. Но... мне не понравилось, как получилось. Перекрываются цвета в столбце "Срок исполнения". И вообще я бы как максимум оставил "подсветку всей строки только когда "В работе".
Надеюсь профи сделают всё проще и изящнее.

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

Ответить

Marina83

Дата: Понедельник, 14.06.2021, 14:13 | Сообщение № 10

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

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

Сообщений: 33

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

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

Excel 2016

Цвета перекрываются, да...
Подожду, может, напишут, как починить)
Но, Вам всё равно большое спасибо за труд!

Ответить

Строки и выпадающий список (Формулы/Formulas)

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