Jak zezwolić tylko na liczby ujemne w programie Excel?

W programie Excel, jak zezwolić tylko na wprowadzanie liczb ujemnych? W tym artykule przedstawimy kilka przydatnych i szybkich sztuczek, które pomogą Ci rozwiązać to zadanie.

Zezwalaj tylko na liczby ujemne w programie Excel z walidacją danych

Zezwalaj tylko na liczby ujemne w programie Excel z kodem VBA

Zezwalaj tylko na liczby ujemne w programie Excel z walidacją danych

Zwykle Walidacja danych funkcja może ci pomóc, wykonaj następujące czynności:

1. Wybierz komórki lub kolumny, dla których chcesz zezwolić tylko na wprowadzanie liczb ujemnych, a następnie kliknij Dane > Walidacja danych > Walidacja danychzobacz zrzut ekranu:

2, w Walidacja danych okno dialogowe w obszarze Ustawienia wybierz następujące opcje:

(1.) W Dopuszczać Sekcja, wybierz Dziesiętny z rozwijanej listy;

(2.) W Dane wybierz sekcję mniejszy lub równy opcja;

(3.) Na koniec wprowadź liczbę 0 do Maksymalny pole tekstowe.

3. Następnie kliknij OK, a teraz można wprowadzać tylko liczby ujemne i 0, jeśli wprowadzono liczbę dodatnią, wyświetli komunikat ostrzegawczy, patrz zrzut ekranu:

Zezwalaj tylko na liczby ujemne w programie Excel z kodem VBA

Oto kod VBA, który również może ci pomóc, z następującym kodem, gdy wpiszesz liczbę dodatnią, zostanie ona automatycznie przekonwertowana na ujemną, wykonaj następujące czynności:

1. Kliknij prawym przyciskiem myszy kartę arkusza, dla której chcesz zezwolić tylko na liczby ujemne, 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 puste miejsce Moduł:

Kod VBA: zezwalaj tylko na liczby ujemne w arkuszu:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

Uwagi: W powyższym kodzie, A1: A1000 to komórki, w których chcesz wprowadzić tylko liczby ujemne.

2. Następnie zapisz i zamknij ten kod, wróć do arkusza roboczego, a teraz, gdy wprowadzisz kilka liczb dodatnich do komórek określonych w kodzie, liczby dodatnie zostaną automatycznie przekonwertowane na liczby ujemne.

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• 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 bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... 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 ...
• 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...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

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

---

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... Zakup...