Jak wyświetlić okno komunikatu, jeśli wartość komórki jest równa „X” w programie Excel?

Wyskakujące okienko wiadomości bardzo pomaga w znalezieniu określonej treści w określonym zakresie. Na przykład znajdujesz wartość komórki, która jest równa 50 w zakresie A1: C7 i potrzebujesz wyskakującego okna komunikatu, aby powiedzieć, czy wartość komórki istnieje, czy nie. Poniższe dwie metody mogą ci pomóc.

Wyświetl okno komunikatu, jeśli wartość komórki jest równa „X” z kodem VBA
Łatwo wyskakuj okno komunikatu, jeśli wartość komórki jest równa „X” w Kutools for Excel

Wyświetl okno komunikatu, jeśli wartość komórki jest równa „X” z kodem VBA

Poniższy kod VBA może pomóc w utworzeniu wyskakującego okna komunikatu, gdy określona wartość istnieje w określonym zakresie. Wykonaj następujące czynności.

1. W arkuszu roboczym musisz sprawdzić wartości w określonym zakresie, kliknij prawym przyciskiem myszy nazwę karty na pasku kart arkusza, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

2. w Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod VBA do okna Code.

Kod VBA: wyskakujące okno komunikatu, jeśli wartość komórki jest równa „X”

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. naciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications i wróć do arkusza.

Odtąd, gdy wartości komórek zostaną zmienione w zakresie A1: C7, a wartość komórki będzie równa „50”, pojawi się okno komunikatu, jak pokazano poniżej.

Poza tym możesz po prostu wybrać zakres, aby wyświetlić okno komunikatu, jeśli istnieje wartość komórki.

Uwagi:

Wyskakujące okno komunikatu, jeśli wartość komórki jest równa „X” z Kutools for Excel

Połączenia Wybierz określone komórki użyteczność Kutools dla programu Excel może również pomóc w rozwiązaniu tego problemu. Wykonaj następujące czynności.

1. Wybierz zakres, w którym chcesz znaleźć wartość komórki, a następnie kliknij Kutools > Wybierz > Wybierz określone komórki. 

2. w Wybierz określone komórki w oknie dialogowym wybierz opcję Komórka opcja w Typ wyboru sekcję, a następnie wybierz Równa się na początku Określony typ rozwijaną listę i wpisz wartość komórki w następnym polu tekstowym, a na koniec kliknij OK przycisk.

Jeśli wartość komórki istnieje w określonym zakresie, pojawi się następujące okno komunikatu, kliknij plik OK przycisk komórka zostanie zaznaczona.

W przeciwnym razie pojawi się okno komunikatu, jak pokazano poniżej.

Łatwo wyskakuj okno komunikatu, jeśli wartość komórki jest równa „X” w Kutools for Excel

Podobne artykuły:

• Jak usunąć cały wiersz, jeśli komórka zawiera zero w programie Excel?
• Jak liczyć komórki z określonym tekstem w programie Excel?

Najlepsze narzędzia biurowe

🤖	Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
	Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
	Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
	Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
	Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
	Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
	15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Czytaj więcej... Darmowe pobieranie...

---

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Darmowe pobieranie...