Jak ustawić kolor komórki Excela zgodnie z warunkiem za pomocą VBA?

Jak ustawić kolor komórki Excela zgodnie z warunkiem za pomocą VBA?

Ostatnia aktualizacja: sierpień 2021; Microsoft Excel 365, 2019, 2016.

W dzisiejszym samouczku VBA for Excel Automation dowiemy się, jak możemy programowo zmienić kolor komórki na podstawie wartości komórki.

Technikę tę możemy wykorzystać na przykład podczas tworzenia prostego pulpitu nawigacyjnego stanu.

Ustawiać

Jeśli nie pracujesz jeszcze w programie Excel, zalecamy zapoznanie się z naszym przewodnikiem wprowadzającym do makr programu Excel . W szczególności musisz upewnić się, że karta Deweloper jest dostępna na wstążce programu Microsoft Excel, ponieważ będziesz jej używać do napisania prostego kodu.

  • Otwórz Microsoft Excel. Należy zauważyć, że kod podany w tym samouczku powinien działać w programie Excel 2007 i nowszych wersjach.
  • W pustym arkuszu dodaj następującą tabelę:

Jak ustawić kolor komórki Excela zgodnie z warunkiem za pomocą VBA?

  • Teraz idź dalej i zdefiniuj nazwany zakres, naciskając: Wzory>>Zdefiniuj nazwę

Jak ustawić kolor komórki Excela zgodnie z warunkiem za pomocą VBA?

  • Naciśnij OK

Zmiana koloru wnętrza komórki na podstawie wartości za pomocą Cell.Interior.Color

  • Naciśnij wpis Deweloper na Wstążce.
  • Naciśnij Visual Basic lub Alt + F11, aby otworzyć edytor VBA dla programistów.
  • Następnie podświetl arkusz roboczy, w którym chcesz uruchomić swój kod. Alternatywnie wybierz moduł, który ma Twój kod VBA.
  • Śmiało i wklej ten kod. W naszym przykładzie zmodyfikujemy kolor wnętrza zakresu komórek na określone wartości RGB komórki odpowiadające kolorom czerwonym, żółtym i zielonym.
  • W szczególności używamy metody Excel VBA Cell.Interior.Color i przekazujemy odpowiednią wartość RGB lub indeks koloru.
Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub
  • Uruchom swój kod – naciskając klawisz F5 lub Uruchom>> Uruchom Sub / UserForm.
  • Zauważysz, że pulpit nawigacyjny stanu został wypełniony, jak pokazano poniżej:

Jak ustawić kolor komórki Excela zgodnie z warunkiem za pomocą VBA?

  • Zapisz swój kod i zamknij edytor VBA.

Messenger nie może otworzyć załącznika lub linku? Oto co robić

Messenger nie może otworzyć załącznika lub linku? Oto co robić

Messenger nie może otworzyć załącznika lub linku? Dowiedz się, jak rozwiązać ten problem dzięki sprawdzonym krokom i wskazówkom.

Jak utworzyć grupę kontaktów lub listę dystrybucyjną w programie Outlook

Jak utworzyć grupę kontaktów lub listę dystrybucyjną w programie Outlook

Dowiedz się, jak szybko stworzyć grupę kontaktów w Outlook, aby efektywnie zarządzać swoimi wiadomościami e-mail. Oszczędzaj czas z naszą szczegółową instrukcją.

[NAPRAWIONO] Błąd 740 Żądana operacja wymaga podwyższenia systemu Windows 10

[NAPRAWIONO] Błąd 740 Żądana operacja wymaga podwyższenia systemu Windows 10

Dowiedz się, jak rozwiązać problem z błędem 740 żądana operacja wymaga podniesienia Windows 10 problemów z rozwiązaniami przedstawionymi w tym artykule.

Jak włączyć lub wyłączyć uprawnienia witryny w Microsoft Edge

Jak włączyć lub wyłączyć uprawnienia witryny w Microsoft Edge

Jeśli chcesz mieć większą kontrolę nad tym, które witryny próbują uzyskać dostęp na Twoim komputerze, oto jak skutecznie zarządzać uprawnieniami witryny w Microsoft Edge.

5 najlepszych emulatorów PS4 dla systemu Windows 10/11 do zainstalowania w 2022 r.

5 najlepszych emulatorów PS4 dla systemu Windows 10/11 do zainstalowania w 2022 r.

Poznaj najlepsze emulatory PS4 na PC, które pozwolą Ci grać w gry na konsole PlayStation 4 za darmo na komputerach z Windows.

Jak naprawić „Nieznany wyjątek oprogramowania (0xe0434352)”?

Jak naprawić „Nieznany wyjątek oprogramowania (0xe0434352)”?

Odkryj możliwe rozwiązania, aby naprawić błąd wyjątku nieznanego oprogramowania (0xe0434352) w systemie Windows 10 i 11 podany tutaj…

Jak usunąć animacje z prezentacji PowerPoint

Jak usunąć animacje z prezentacji PowerPoint

Jak usunąć animacje z prezentacji PowerPoint, aby dostosować ją do profesjonalnych standardów. Oto przydatne wskazówki.

Napraw niedziałające Wicked Whims 6 łatwych rozwiązań

Napraw niedziałające Wicked Whims 6 łatwych rozwiązań

Radzenie sobie z Wicked Whims, które nie działają w Sims 4. Wypróbuj 6 skutecznych rozwiązań, takich jak aktualizacja modów i więcej.

Napraw kontroler PS4 nie ładuje się [8 łatwych ROZWIĄZAŃ]

Napraw kontroler PS4 nie ładuje się [8 łatwych ROZWIĄZAŃ]

Odkryj jak naprawić problem z kontrolerem PS4, który się nie ładuje. Sprawdź 8 prostych rozwiązań, w tym testy kabli, portów oraz reset kontrolera.

Operacja nie została zakończona pomyślnie, ponieważ plik zawiera wirusa [NAPRAWIONO]

Operacja nie została zakończona pomyślnie, ponieważ plik zawiera wirusa [NAPRAWIONO]

Dowiedz się, jak naprawić Operacja nie zakończyła się pomyślnie, ponieważ plik zawiera wirusa Windows 11/10 i nie można otworzyć żadnego pliku…