Ինչպե՞ս ներդնել գունավոր ծածկագրված ցուցակը 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 հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս Փաստաթուղթը - ից Projectրագիր-նախագիծ ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:
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 բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...