Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Xiaoyang Last modified

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

Demo showing a cell's color changing when an item is selected from the drop-down list

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

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

  1. Выберите ячейку в таблице, куда вы хотите вставить раскрывающийся список, затем нажмите «Разработчик» > «Элемент управления содержимым раскрывающегося списка».

    Примечание: Если вы не видите вкладку «Разработчик» на ленте, посетите: Как показать вкладку «Разработчик» на ленте Word.

    Drop-Down List Content Control button on the ribbon
  2. Раскрывающийся список вставлен в конкретную ячейку. Затем нажмите «Разработчик» > «Свойства».
    3. Drop-down inserted into a specific cell with Properties option highlighted
  3. В диалоговом окне «Свойства элемента управления содержимым» выполните следующие действия:
    1. Введите название в текстовое поле «Заголовок».
    2. Нажмите кнопку «Добавить», чтобы открыть диалоговое окно «Добавить выбор».
    3. Введите элемент раскрывающегося списка в текстовое поле «Отображаемое имя».
      Content Control Properties dialog box and Add Choice dialog box
  4. Повторите Шаг 3 для добавления других элементов раскрывающегося списка по мере необходимости.
  5. После создания первого раскрывающегося списка вы можете скопировать его и вставить в другие ячейки.
    Drop-down list copied to other cells
  6. Удерживайте ALT + F11, чтобы открыть окно «Microsoft Visual Basic for Applications».
  7. В окне Microsoft Visual Basic for Applications дважды щелкните «ThisDocument» в панели «Проект», чтобы открыть модуль. Затем скопируйте и вставьте следующий код в пустой модуль: 
    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

    Примечание: В приведенном выше коде «Статус» — это название, используемое при создании раскрывающегося списка, а «Завершено», «В процессе» и «Не начато» — это элементы. Вы можете изменить эти значения и соответствующие цвета по мере необходимости.

    VBA window with ThisDocument selected, showing code pasted into the blank module
  8. Сохраните и закройте окно кода. Теперь, когда вы выбираете элемент из раскрывающегося списка, соответствующий цвет будет заполнять ячейку.
    Demo showing a cell's color changing when an item is selected from the drop-down list

Лучшие инструменты для повышения производительности в офисе

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

🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

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

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

🧹 Легкая очистка: Удалить лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для получения дополнительных инструментов удаления перейдите в группу Удалить...

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

🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...

⭐ Особые улучшения: Перейти к любому диапазону / Автоматическая вставка повторяющегося текста / Переключение между окнами документа /11 инструментов преобразования...

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

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

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

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

Лучшие инструменты для повышения производительности в офисе

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

Бесплатная загрузка Купить Подробнее о Kutools