Добрый день! Подскажите, пожалуйста, как реализовать следующее:
1) В столбце "Регистрационный номер": если вбить в ячейку этого столбца любое значение, то автоматически в столбце "Статус" будет значение "В работе" с красной подсветкой.
2) Если добавлено значение в ячейку столбца "Отметка об исполнении", то статус меняется на "Выполнено" и подсвечивается зелёным.
3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека из выпадающего списка?
Добрый день! Подскажите, пожалуйста, как реализовать следующее:
1) В столбце "Регистрационный номер": если вбить в ячейку этого столбца любое значение, то автоматически в столбце "Статус" будет значение "В работе" с красной подсветкой.
2) Если добавлено значение в ячейку столбца "Отметка об исполнении", то статус меняется на "Выполнено" и подсвечивается зелёным.
3) Можно ли реализовать в столбце "ФИО исполнителя" добавление в одну ячейку больше одного человека из выпадающего списка?Marina83
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
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
1) Можно ли сделать Иванова, Петрова, Сидорова списком? То есть, что ставить в кавычках в коде Target = Target & " " & newVal
2) Можно ли сделать полностью подсветку строки вместо одной ячейки? То есть, если "В работе", то вся строка красная, если "Выполнено" - строка зелёная. - В столбце "Регистрационный номер": если вбить в ячейку этого столбца любое значение, то автоматически в столбце "Статус" будет значение "В работе" с красной подсветкой.
- Если добавлено значение в ячейку столбца "Отметка об исполнении", то статус меняется на "Выполнено" и подсвечивается зелёным.
DrMini, просто отлично, то, что нужно!
Ещё хотела спросить:
1) Можно ли сделать Иванова, Петрова, Сидорова списком? То есть, что ставить в кавычках в коде Target = Target & " " & newVal
2) Можно ли сделать полностью подсветку строки вместо одной ячейки? То есть, если "В работе", то вся строка красная, если "Выполнено" - строка зелёная. - В столбце "Регистрационный номер": если вбить в ячейку этого столбца любое значение, то автоматически в столбце "Статус" будет значение "В работе" с красной подсветкой.
- Если добавлено значение в ячейку столбца "Отметка об исполнении", то статус меняется на "Выполнено" и подсвечивается зелёным.Marina83
Как говорил раньше я в excel не очень соображаю. Добавил два правила для "подсветки" строки. Но... мне не понравилось, как получилось. Перекрываются цвета в столбце "Срок исполнения". И вообще я бы как максимум оставил "подсветку всей строки только когда "В работе". Надеюсь профи сделают всё проще и изящнее.
Как говорил раньше я в excel не очень соображаю. Добавил два правила для "подсветки" строки. Но... мне не понравилось, как получилось. Перекрываются цвета в столбце "Срок исполнения". И вообще я бы как максимум оставил "подсветку всей строки только когда "В работе". Надеюсь профи сделают всё проще и изящнее.DrMini