Jak wstawić listę rozwijaną oznaczoną kolorem w tabeli programu Word?
Przypuśćmy, że mam tabelę w swoim dokumencie programu Word, a teraz chcę wstawić listę rozwijaną oznaczoną kolorem w kolumnie tabeli. Oznacza to, że kiedy wybieram jedną opcję z listy rozwijanej, kolor komórki staje się czerwony, a kiedy wybieram inną opcję z listy rozwijanej, kolor komórki staje się zielony, jak pokazano na poniższym zrzucie ekranu. Jak możesz rozwiązać tę pracę w dokumencie programu Word?
Wstaw listę rozwijaną oznaczoną kolorem w dokumencie programu Word z kodem VBA
Wstaw listę rozwijaną oznaczoną kolorem w dokumencie programu Word z kodem VBA
Poniższe kroki mogą pomóc w wykonaniu tego zadania zgodnie z potrzebami, najpierw wstaw listę rozwijaną, a następnie zastosuj kolor dla listy rozwijanej. Zrób tak:
1. Wybierz komórkę w tabeli, do której chcesz wstawić listę rozwijaną, a następnie kliknij Deweloper > Kontrola zawartości listy rozwijanej ikona, zobacz zrzut ekranu:
2. Lista rozwijana zostanie wstawiona do określonej komórki, a następnie kliknij Deweloper > Właściwościzobacz zrzut ekranu:
3, w Właściwości kontroli zawartości w oknie dialogowym, wykonaj następujące operacje:
(1.) Wprowadź nazwę tytułu do Tytuł pole tekstowe;
(2.) Kliknij Dodaj przejdź do Dodaj wybór dialog;
(3.) W Dodaj wybór wpisz element listy rozwijanej w Wyświetlana nazwa pole tekstowe.
4. Powtórz krok 3, aby wstawić inne elementy listy rozwijanej, jeśli potrzebujesz.
5. Po utworzeniu pierwszej listy rozwijanej możesz skopiować i wkleić ją do innych komórek, zgodnie z potrzebami. Zobacz zrzut ekranu:
6. Następnie powinieneś zastosować kod VBA, przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
7, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ten dokument z Projekt-projekt okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.
Kod VBA: Wstaw listę rozwijaną z kodami kolorów do tabeli dokumentu 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
Note: W powyższym kodzie, Rynek to nazwa tytułu podczas tworzenia listy rozwijanej, a Absolutna, W Trakcie, Nie zaczynaj to pozycje z rozwijanej listy, możesz je zmienić na własne. Możesz także zmienić kolor według swoich potrzeb.
8. Następnie zapisz i zamknij okno kodu, teraz, gdy wybierzesz jeden element z rozwijanej listy, jego względny kolor zostanie wypełniony komórką, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...