Как вставить раскрывающийся список с цветовой кодировкой в таблицу Word?
Предположим, у меня есть таблица в моем документе Word, и теперь я хочу вставить раскрывающийся список с цветовой кодировкой в столбец таблицы. Это означает, что когда я выбираю один вариант из раскрывающегося списка, цвет ячейки становится красным, а когда я выбираю другой вариант в раскрывающемся списке, цвет ячейки становится зеленым, как показано на следующем снимке экрана. Как бы вы могли решить эту задачу в документе Word?
Вставить раскрывающийся список с цветовой кодировкой в документ Word с кодом VBA
Вставить раскрывающийся список с цветовой кодировкой в документ Word с кодом VBA
Следующие шаги могут помочь вам выполнить эту задачу по мере необходимости: сначала вставьте раскрывающийся список, а затем примените цвет для раскрывающегося списка. Пожалуйста, сделайте так:
1. Выберите ячейку в таблице, куда вы хотите вставить раскрывающийся список, а затем щелкните Застройщик > Выпадающий список управления содержимым значок, см. снимок экрана:
2. Выпадающий список вставляется в конкретную ячейку, а затем щелкните Застройщик > Объекты, см. снимок экрана:
3. В Свойства управления содержимым диалоговом окне выполните следующие действия:
(1.) Введите название заголовка в Название текстовое окно;
(2.) Щелкните Добавить кнопка перейти к Добавить выбор диалог;
(3.) В Добавить выбор диалоговом окне введите элемент раскрывающегося списка в Display Name текстовое окно.
4. Повторите шаг 3, чтобы вставить другие элементы раскрывающегося списка по мере необходимости.
5. После создания первого раскрывающегося списка вы можете скопировать и вставить его в другие ячейки по мере необходимости. Смотрите скриншот:
6. Затем вы должны применить код VBA, удерживая ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
7. В Microsoft Visual Basic для приложений окно, дважды щелкните Этот документ из Проект-Проект панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.
Код VBA: вставить раскрывающийся список с цветовым кодированием в таблицу документа Word:
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
Внимание: В приведенном выше коде Статус: имя заголовка при создании раскрывающегося списка, и Завершенный, В ходе, Не начинай являются элементами раскрывающегося списка, вы можете изменить их на свои собственные. И вы также можете изменить цвет по своему усмотрению.
8. Затем сохраните и закройте окно кода, теперь, когда вы выбираете один элемент из раскрывающегося списка, его относительный цвет будет заполнен ячейкой, см. Снимок экрана:
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...