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
- 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.
- 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)
- 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
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!