Przejdź do głównej zawartości

Jak ukryć określone wartości błędów w programie Excel?

Załóżmy, że w arkuszu programu Excel znajdują się wartości błędów, których nie trzeba poprawiać, ale ukryć. Aby rozwiązać problem, o którym rozmawialiśmy jak ukryć wszystkie wartości błędów w programie Excel?, a co, jeśli chcesz ukryć tylko określone wartości błędów? W tym samouczku pokażemy, jak wykonać tę pracę na trzy sposoby poniżej.


Ukryj wiele konkretnych wartości błędów, zmieniając tekst na biały za pomocą VBA

Stworzyliśmy dwa kody VBA, które pomogą Ci szybko ukryć wiele określonych wartości błędów w wybranym zakresie lub w wielu arkuszach roboczych, zmieniając kolor czcionki określonych błędów na biały. Wykonaj poniższe czynności i uruchom kod zgodnie z własnymi potrzebami.

1. W Excelu naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł. Następnie skopiuj jeden z następujących kodów VBA do Moduł okno.

Kod VBA 1: Ukryj wiele określonych wartości błędów w wybranym zakresie

'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

Uwaga: We fragmencie xArrFinStr = Tablica("#DIV/0!", "#N/A", "#NAZWA?") w 12. rzędzie należy wymienić „#DIV/0!”, „#N/A”, „#NAZWA?” z faktycznymi błędami, które chcesz ukryć, pamiętaj, aby każdą wartość umieścić w podwójnych cudzysłowach i oddzielić przecinkami.

Kod VBA 2: Ukryj wiele określonych wartości błędów w wielu arkuszach

Sub HideSpecificErrors_WorkSheets()
'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and hide the errors. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub
Uwaga:
  • We fragmencie xArr = Array("Arkusz1", "Arkusz2") w 15. rzędzie należy wymienić "Arkusz 1", "Arkusz 2" z rzeczywistymi nazwami arkuszy, w których chcesz ukryć błędy. Pamiętaj, aby nazwy poszczególnych arkuszy umieścić w podwójnych cudzysłowach i oddzielić przecinkami.
  • We fragmencie xArrFinStr = Tablica("#DIV/0!", "#N/A", "#NAZWA?") w 16. rzędzie należy wymienić „#DIV/0!”, „#N/A”, „#NAZWA?” z faktycznym błędem, który chcesz ukryć, pamiętaj, aby umieścić każdy błąd w podwójnych cudzysłowach i oddzielić je przecinkami.

3. naciśnij F5 aby uruchomić kod VBA. Uwaga: Jeśli użyłeś Kod VBA 1, pojawi się okno dialogowe z prośbą o wybranie zakresu, w którym można znaleźć i usunąć wartości błędów. Możesz także kliknąć kartę arkusza, aby wybrać cały arkusz.

4. Pojawi się okno dialogowe pokazane poniżej z informacją, że określone wartości błędów zostały ukryte. Kliknij OK aby zamknąć okno dialogowe.

5. Podane wartości błędów zostały natychmiast ukryte.


Zastąp określone wartości błędów innymi wartościami dzięki funkcji Kreatora warunków błędu

Jeśli nie znasz kodu VBA, funkcja Kutools for Excel's Error Condition Wizard może pomóc w łatwym znalezieniu wszystkich wartości błędów, wszystkich błędów #N/A lub wszelkich błędów z wyjątkiem #N/A i zastąpienia ich innymi wartościami, które określisz , czytaj dalej, aby dowiedzieć się, jak wykonać tę pracę.

1. Na Kutools zakładka, w Formuła grupa, kliknij Więcej > Kreator warunków błędu.

2. W wyskakującym okienku Kreator warunków błędu w oknie dialogowym, wykonaj następujące czynności:
  • W łodzie kliknij przycisk wyboru zakresu po prawej stronie, aby określić zakres zawierający błędy do ukrycia. Uwaga: Aby przeszukać cały arkusz, kliknij kartę arkusza.
  • W Typy błędów w sekcji określ, jakie wartości błędów należy ukryć.
  • W Wyświetlanie błędów sekcji, wybierz sposób, w jaki chcesz zastąpić błędy.

3. kliknij Ok. Określone wartości błędów są wyświetlane jako wybrana opcja.

Uwaga: Aby użyć Kreator warunków błędu funkcja, powinieneś mieć zainstalowany Kutools for Excel na swoim komputerze. Jeśli nie masz zainstalowanego Kutools, kliknij tutaj, aby pobrać i zainstalować. Profesjonalny dodatek do programu Excel oferuje 30-dniowy bezpłatny okres próbny bez ograniczeń.


Zastąp określony błąd innymi wartościami formułą

Aby zastąpić określoną wartość błędu, Excel IF, IFNA, TYP BŁĘDU funkcje mogą wyświadczyć ci przysługę. Ale najpierw powinieneś znać odpowiedni kod liczbowy każdej wartości błędu.

# Błąd Formuła Returns
#ZERO! = ERROR.TYPE (#NULL!) 1
# DIV / 0! = ERROR.TYPE (# DIV / 0!) 2
#WARTOŚĆ! = BŁĄD.TYPE (# WARTOŚĆ!) 3
#ADR! = ERROR.TYPE (#REF!) 4
#NAZWA? = ERROR.TYPE (#NAZWA?) 5
#NUM! = ERROR.TYPE (#NUM!) 6
# N / A = ERROR.TYPE (# N / A) 7
# POBIERZ_DANE = ERROR.TYPE (# POBIERANIE_DANYCH) 8
#ROZLANIE! =TYP.BŁĘDU(#ROZLANIE!) 9
#NIEZNANY! =TYP.BŁĘDU(#NIEZNANY!) 12
#POLE! =TYP.BŁĘDU(#POLE!) 13
#KALK! =TYP.BŁĘDU(#CALC!) 14
Coś jeszcze = ERROR.TYPE (123) # N / A

Na przykład masz tabelę z wartościami, jak pokazano powyżej. Aby wymienić # DIV / 0! błąd z ciągiem tekstowym Podziel przez zero błędu, powinieneś najpierw znaleźć kod tego błędu, który jest 2. A następnie zastosuj następującą formułę w komórce B2i przeciągnij uchwyt wypełniania w dół, aby zastosować formułę do poniższych komórek:

=JEŻELI(JEŻELI(BŁĄD.TYP(A2);A2)=2,"Podziel przez błąd przez zero",A2)

Uwaga:
  • W formule możesz zastąpić kod błędu 2 do kodu odpowiadającego innej wartości błędu.
  • W formule możesz zastąpić ciąg tekstowy „Podziel przez zero błędu” na inną wiadomość tekstową lub "" jeśli chcesz zastąpić błąd pustą komórką.

Powiązane artykuły

Jak ukryć wszystkie wartości błędów w programie Excel?

Podczas pracy z arkuszem programu Excel czasami może się okazać, że istnieją pewne wartości błędów, takie jak # DIV / 0, #REF, # N / A itd., Są one spowodowane błędem formuł. Teraz chcesz ukryć wszystkie te wartości błędów w arkuszu, jak możesz szybko i łatwo rozwiązać to zadanie w programie Excel?

Jak zmienić #DIV/0! Błąd do czytelnej wiadomości w programie Excel?

Czasami, gdy używamy wzoru do obliczeń w programie Excel, wyświetlane są komunikaty o błędach. Na przykład w tej formule = A1 / B1, jeśli B1 jest pusty lub zawiera 0, formuła wyświetli błąd # DIV / 0. Czy istnieje sposób, aby te komunikaty o błędach były czytelne lub jeśli chcesz użyć innych komunikatów do zastąpienia błędów, co powinieneś zrobić?

Jak uniknąć błędu #Ref podczas usuwania wierszy w programie Excel?

Podczas odsyłania komórki do innej komórki komórka wyświetli błąd #REF, jeśli wiersz odwołania został usunięty, jak pokazano poniżej. Teraz omówię, jak uniknąć błędu #ref i automatycznie odwoływać się do następnej komórki podczas usuwania wiersza.

Jak wyróżnić wszystkie komórki błędów w programie Excel?

Jeśli utworzysz formuły w arkuszu, nieuniknione będzie pojawienie się niektórych wartości błędów. Czy możesz jednocześnie zaznaczyć wszystkie te komórki, które zawierają wartości błędów w arkuszu? Narzędzie formatowania warunkowego w programie Excel może pomóc w rozwiązaniu tego problemu.

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ędzi12 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...

Opis


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations