Jak wyświetlić okno komunikatu, jeśli komórka jest większa lub mniejsza niż określona wartość w programie Excel?
Jeśli komórka jest większa lub mniejsza niż inna komórka, muszę wyświetlić okno komunikatu, aby ostrzec w programie Excel. Jak rozwiązać ten problem w programie Excel? W tym artykule omówię kilka kodów, jak sobie z tym poradzić.
Wyświetla okno komunikatu, jeśli wartość komórki w kolumnie jest większa lub mniejsza niż wartość innej komórki
Przypuśćmy, że mam określoną liczbę 100 w komórce A1, teraz, gdy liczba wprowadzona w kolumnie D jest większa niż 100 w komórce A1, powinno pojawić się okno komunikatu, aby przypomnieć użytkownikowi.
Tutaj poniższy kod VBA może pomóc ci go ukończyć, wykonaj następujące czynności:
1. Przejdź do arkusza, którego chcesz użyć.
2. Kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego w wyskakującym pliku Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod w pustym oknie modułu, patrz zrzut ekranu:
Kod VBA: wyskakuje okno komunikatu, jeśli wartość komórki w kolumnie jest większa lub mniejsza niż komórka
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
xNum = (Sheets(xWSName).Range(xA).Value)
If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
End If
End Sub
Note: W powyższym kodzie, Sheet1 to twój arkusz roboczy, którego chcesz użyć; A1 to wartość komórki, z którą chcesz porównać; D: D to kolumna, którą chcesz porównać z komórką A1.
3. Następnie zapisz i zamknij okno kodu, od teraz okno komunikatu zostanie wyskakujące, jeśli wprowadzisz liczbę w kolumnie D, która jest większa niż 100, patrz zrzut ekranu:
Wyświetla okno komunikatu, jeśli wartość komórki w komórce jest większa lub mniejsza niż wartość innej komórki
Jeśli chcesz, aby okno komunikatu było wyskakujące, gdy wartość komórki jest większa lub mniejsza niż inna komórka, zastosuj poniższy kod:
1. Przejdź do arkusza, którego chcesz użyć.
2. Kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego w wyskakującym pliku Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod w pustym oknie modułu, patrz zrzut ekranu:
Kod VBA: wyskakuje okno komunikatu, jeśli wartość komórki jest większa lub mniejsza niż komórka
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub
Note: W powyższym kodzie, A1 i D1 to dwie komórki, z którymi chcesz porównać.
3. Następnie zapisz i zamknij okno kodu, podczas wprowadzania wartości, która jest mniejsza niż wartość w komórce A1, pojawi się okno komunikatu, jak pokazano poniżej:
Więcej względnych artykułów w wyskakujących okienkach wiadomości:
- Utwórz wyskakujące okienko wiadomości podczas otwierania pliku Excel
- W niektórych przypadkach możesz chcieć, aby zawsze pojawiało się okno komunikatu przypominające o tym, co musisz zrobić najpierw, gdy otworzysz określony skoroszyt, może to pomóc w zapamiętaniu najważniejszej rzeczy w codziennej pracy. W tym artykule opowiem o tym, jak utworzyć wyskakujące okno komunikatu podczas otwierania pliku Excel.
- Wyskakujące okno komunikatu, jeśli wartość komórki zmienia się w zakresie w programie Excel
- Czasami musisz przypomnieć sobie zmiany w zakresie w określonym arkuszu. Więc wyskakujące okno komunikatu zrobi ci przysługę, jeśli wartość komórki zmieniła się w określonym zakresie. Możesz to osiągnąć za pomocą metody VBA w tym artykule.
- Wyskakujące okno komunikatu po kliknięciu określonej komórki w programie Excel
- Ten artykuł ma na celu przedstawienie metody wyskakującego okna komunikatu po kliknięciu określonej komórki w programie Excel.
- Utwórz okno komunikatu Tak Nie przed uruchomieniem makra w programie Excel
- W programie Excel można bezpośrednio wywołać makro, naciskając klawisz F5 lub klikając przycisk Uruchom w oknie Microsoft Visual Basic for Applications. Czasami jednak możesz chcieć utworzyć okno komunikatu, które zapyta użytkownika, czy chce uruchomić makro. Jeśli tak, kontynuuj wykonywanie kodu, jeśli nie, zatrzymaj wykonywanie kodu. W tym artykule omówię, jak utworzyć okno komunikatu tak nie przed uruchomieniem makra w programie Excel.
- Utwórz zegar skrzynki wiadomości, aby automatycznie zamknąć skrzynkę wiadomości po określonym czasie
- Możesz często używać skryptu VBA, aby rozwiązać problemy podczas korzystania ze skoroszytu programu Excel. Podczas wykonywania skryptu pojawią się okienka komunikatów. W niektórych przypadkach chcesz, aby określone okna komunikatów były zamykane automatycznie po określonym czasie, zamiast zamykać je ręcznie. W tym artykule pokażemy metodę tworzenia licznika czasu okna wiadomości, aby automatycznie zamknąć okno komunikatu po pewnym czasie w programie Excel.
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...
- 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!