Как вставить цветовой раскрывающийся список в таблицу Word?

АвторСяоянДата изменения2025-04-17

Представьте, что у вас есть таблица в документе Word, и вы хотите добавить в один из её столбцов раскрывающийся список с цветовой индикацией: при выборе одного варианта ячейка станет красной, а другого — зелёной, как показано на снимке экрана ниже:

Демонстрация изменения цвета ячейки при выборе элемента из раскрывающегося списка

Вставка цветового Раскрывающийся список в документ Word с помощью кода VBA

Следующие шаги помогут вам вставить Раскрывающийся список в ячейку таблицы и применить к ней Цвет фона в зависимости от выбранного элемента:

Выберите ячейку таблицы, в которую нужно вставить раскрывающийся список, и нажмите «Разработчик» > «Раскрывающийся список элемента управления содержимым».
Примечание: Если вы не видите вкладку «Разработчик» на ленте, перейдите по ссылке: Как отобразить вкладку «Разработчик» на ленте Word.
Раскрывающийся список вставляется в указанную ячейку. Затем перейдите на вкладку «Разработчик» и выберите «Свойства».

Раскрывающийся список, вставленный в определенную ячейку, с выделенной опцией «Свойства»

В диалоговом окне «Свойства элемента управления содержимым» выполните следующие действия:
1. Введите название заголовка в текстовое поле «Заголовок».
2. Нажмите кнопку «Добавить», чтобы открыть диалоговое окно «Добавить выбор».
3. Введите элемент «Раскрывающийся список» в текстовое поле «Отображаемое имя».
Повторите шаг 3, чтобы при необходимости добавить дополнительные элементы в раскрывающийся список.
После создания первого раскрывающегося списка его можно копировать и вставлять в другие ячейки.
Удерживайте клавиши ALT + F11, чтобы открыть окно «Microsoft Visual Basic для приложений».
В окне Microsoft Visual Basic для приложений дважды щёлкните «ЭтотДокумент» на панели «Проект», чтобы открыть модуль, затем скопируйте и вставьте приведённый ниже код в пустой модуль:
```
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub
```
Примечание: В приведённом выше коде "Status" — это название заголовка, использованное при создании раскрывающегося списка, а "Complete", "In Progress" и "Not Start" — это элементы списка. Вы можете изменить эти значения и соответствующие цвета по мере необходимости.
Закройте окно кода. Теперь при выборе элемента из раскрывающегося списка соответствующий цвет будет автоматически заполнять ячейку.

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

📘Мастерство работы с документами: Разделение страниц / Объединение документов / Экспорт выделенного фрагмента в различных форматах (PDF, TXT, DOC, HTML и др.) / Пакетное преобразование в PDF…

✏Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменение размера всех изображений / Транспонировать таблицу строк и столбцов / Преобразовать таблицу в текст…

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

Бесплатно скачать Купить сейчас Подробнее

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать Купить сейчас Подробнее

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас 🎁 Приобрести полный пакет 📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачать Купить сейчас Подробнее о Kutools