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
Note: 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
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...
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!