Как да вмъкна цветно кодиран падащ списък в таблицата на Word?
Да предположим, че имам таблица в моя документ на Word и сега искам да вмъкна цветно кодиран падащ списък в колона на таблицата. Това означава, че когато избера една опция от падащото меню, цветът на клетката става червен, а когато избера друга опция в падащото меню, цветът на клетката става зелен, както е показано на следната екранна снимка. Как бихте могли да решите тази задача в документ на Word?
Вмъкнете цветно кодиран падащ списък в документ на Word с VBA код
Вмъкнете цветно кодиран падащ списък в документ на Word с VBA код
Следващите стъпки могат да ви помогнат да завършите тази задача, както е необходимо, първо вмъкнете падащия списък и след това приложете цвета за падащото меню. Моля, направете следното:
1. Изберете клетка в таблицата, където искате да вмъкнете падащото меню, и след това щракнете Софтуерен Инженер > Контрол на съдържанието на падащия списък икона, вижте екранна снимка:
2. Падащото меню се вмъква в конкретната клетка и след това щракнете Софтуерен Инженер > Имоти, вижте екранна снимка:
3. В Свойства за контрол на съдържанието диалогов прозорец, моля, извършете следните операции:
(1.) Въведете името на заглавието в Заглавие текстово поле;
(2.) Щракнете Добави бутон отидете на Добавяне на избор диалог;
(3.) В Добавяне на избор въведете елемента от падащия списък в Име за показване текстово поле.
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 за Word - Подобрете своя Word опит с Over 100 Забележителни функции!
🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...