Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Строки и выпадающий список - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Строки и выпадающий список (Формулы/Formulas)
Строки и выпадающий список
Marina83 Дата: Воскресенье, 13.06.2021, 19:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека из выпадающего списка?
К сообщению приложен файл: 3231659.xlsx(37.7 Kb)
 
Ответить
СообщениеДобрый день!
Подскажите, пожалуйста, как реализовать следующее:

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

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

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

Автор - Marina83
Дата добавления - 13.06.2021 в 19:33
DrMini Дата: Понедельник, 14.06.2021, 06:46 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 618
Репутация: 19 ±
Замечаний: 0% ±

Excel 2010, 2013, 2019 RUS
Доброе время суток.
3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека

У меня не так давно была такая же проблема. Сделал макросом так:
[vba]
Код
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
[/vba]
К сообщению приложен файл: 3231659.xlsm(43.7 Kb)
 
Ответить
СообщениеДоброе время суток.
3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека

У меня не так давно была такая же проблема. Сделал макросом так:
[vba]
Код
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
[/vba]

Автор - DrMini
Дата добавления - 14.06.2021 в 06:46
DrMini Дата: Понедельник, 14.06.2021, 08:04 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 618
Репутация: 19 ±
Замечаний: 0% ±

Excel 2010, 2013, 2019 RUS
Marina83,
Файл доделал. Но у меня знаний маловато. Думаю здешние гуру "допилят" задание намного элегантнее.
К сообщению приложен файл: 6812180.xlsm(43.9 Kb)
 
Ответить
СообщениеMarina83,
Файл доделал. Но у меня знаний маловато. Думаю здешние гуру "допилят" задание намного элегантнее.

Автор - DrMini
Дата добавления - 14.06.2021 в 08:04
Marina83 Дата: Понедельник, 14.06.2021, 10:35 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

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

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

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

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

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

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

Автор - Marina83
Дата добавления - 14.06.2021 в 10:35
DrMini Дата: Понедельник, 14.06.2021, 10:49 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 618
Репутация: 19 ±
Замечаний: 0% ±

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

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

В кавычки вставляется то, что будет находится между словами выбранными из выпадающего списка.
Например если сделать так:
[vba]
Код
Target = Target & ", " & newVal
[/vba]
то на выходе получится Иванов, Петров, Сидоров
Можно ли сделать полностью подсветку строки вместо одной ячейки?

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

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

В кавычки вставляется то, что будет находится между словами выбранными из выпадающего списка.
Например если сделать так:
[vba]
Код
Target = Target & ", " & newVal
[/vba]
то на выходе получится Иванов, Петров, Сидоров
Можно ли сделать полностью подсветку строки вместо одной ячейки?

Да можно.

Автор - DrMini
Дата добавления - 14.06.2021 в 10:49
Marina83 Дата: Понедельник, 14.06.2021, 10:54 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

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


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

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

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

Да можно.


Подскажете формулу?)
 
Ответить
Сообщение
Так они у Вас и так в выпадающем списке.


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

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

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

Да можно.


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

Автор - Marina83
Дата добавления - 14.06.2021 в 10:54
DrMini Дата: Понедельник, 14.06.2021, 11:24 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 618
Репутация: 19 ±
Замечаний: 0% ±

Excel 2010, 2013, 2019 RUS
что было списком в самой ячейке:

Попробуйте изменить в VBA:
[vba]
Код
Target = Target & "   " & newVal
[/vba]
на:
[vba]
Код
Target = Target & Chr(10) & newVal
[/vba]
 
Ответить
Сообщение
что было списком в самой ячейке:

Попробуйте изменить в VBA:
[vba]
Код
Target = Target & "   " & newVal
[/vba]
на:
[vba]
Код
Target = Target & Chr(10) & newVal
[/vba]

Автор - DrMini
Дата добавления - 14.06.2021 в 11:24
Marina83 Дата: Понедельник, 14.06.2021, 11:29 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Target = Target & Chr(10) & newVal


Да, работает, спасибо огромное!
 
Ответить
Сообщение
Target = Target & Chr(10) & newVal


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

Автор - Marina83
Дата добавления - 14.06.2021 в 11:29
DrMini Дата: Понедельник, 14.06.2021, 12:04 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 618
Репутация: 19 ±
Замечаний: 0% ±

Excel 2010, 2013, 2019 RUS
Подскажете формулу?

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

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

Автор - DrMini
Дата добавления - 14.06.2021 в 12:04
Marina83 Дата: Понедельник, 14.06.2021, 14:13 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Marina83
Дата добавления - 14.06.2021 в 14:13
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Строки и выпадающий список (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!