Hogyan lehet elrejteni bizonyos hibaértékeket az Excelben?

Tegyük fel, hogy az Excel munkalapján vannak olyan hibaértékek, amelyeket nem kell javítani, hanem el kell rejteni. A probléma megoldása érdekében megbeszéltük hogyan lehet elrejteni az összes hibaértéket az Excelben, mi van akkor, ha csak bizonyos hibaértékeket szeretne elrejteni? Ebben az oktatóanyagban az alábbiakban három módon mutatjuk be, hogyan végezheti el ezt a munkát.

Több konkrét hibaérték elrejtése a szöveg fehérre forgatásával VBA-val

Létrehoztunk két VBA-kódot, amelyek segítségével gyorsan elrejthet több konkrét hibaértéket a kiválasztott tartományban vagy több munkalapon azáltal, hogy a megadott hibák betűszínét fehérre állítja. Kérjük, kövesse az alábbi lépéseket, és futtassa a kódot igényeinek megfelelően.

1. Az Excelben nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok. Ezután másolja a következő VBA-kódok egyikét a Modulok ablak.

VBA-kód 1: Több konkrét hibaérték elrejtése a kiválasztott tartományban

'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

Jegyzet: A részletben xArrFinStr = Tömb("#DIV/0!", "#N/A", "#NÉV?") a 12. sorban érdemes cserélni "#DIV/0!", "#N/A", "#NÉV?" Az elrejteni kívánt tényleges hibákkal kapcsolatban ne felejtsen el minden értéket idézőjelbe tenni, és vesszővel elválasztani.

VBA-kód 2: Több konkrét hibaérték elrejtése több lapon

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

3. nyomja meg F5 a VBA kód futtatásához. Jegyzet: Ha használta a VBA kód 1, egy párbeszédpanel jelenik meg, amelyben meg kell adnia azt a tartományt, ahol megkeresheti és törölheti a hibaértékeket. Egy lapfülre kattintva is kijelölheti a teljes lapot.

4. Az alább látható párbeszédpanel felugrik, jelezve, hogy a megadott hibaértékek el vannak rejtve. Kattintson OK a párbeszéd bezárásához.

5. A megadott hibaértékek egyszerre el lettek rejtve.

Adott hibaértékeket cseréljen le más értékekkel a Hibaállapot varázsló funkcióval

Ha nem ismeri a VBA-kódot, a Kutools for Excel Hibaállapot-varázsló funkciója segítségével könnyen megtalálhatja az összes hibaértéket, az összes #N/A hibát vagy a #N/A kivételével bármilyen hibát, és lecserélheti azokat más megadott értékekkel. , kérjük, olvassa el, hogy megtudja, hogyan végezheti el ezt a munkát.

1. A Kutools fül, a Képlet csoport, kattintson Több > Hibaállapot varázsló.

3. kettyenés Ok. A megadott hibaértékek a kiválasztott opcióként jelennek meg.

Jegyzet: A Hibaállapot varázsló funkciót, telepítenie kell a Kutools for Excel programot a számítógépére. Ha nincs telepítve a Kutools, letöltéshez és telepítéshez kattintson ide. A professzionális Excel-bővítmény 30 napos ingyenes próbaverziót kínál korlátozások nélkül.

Egy adott hibát cseréljen le más értékekkel egy képlettel

Egy adott hibaérték cseréjéhez az Excel IF, IFNAés HIBA TÍPUS funkciók tehetnek szívességet. Először azonban ismernie kell az egyes hibaértékekhez tartozó számkódokat.

Például van egy táblázata a fent látható értékekkel. Cserélésére a # DIV / 0! hiba a szöveges karakterláncban Osztás nulla hibával, először meg kell találnia a hiba kódját, amely az 2. Ezután alkalmazza a következő képletet a cellában B2, és húzza le a kitöltő fogantyút, hogy a képletet az alábbi cellákra alkalmazza:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Osztás nulla hibával",A2)

Kapcsolódó cikkek

A legjobb irodai hatékonyságnövelő eszközök

🤖	Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
	Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
	Szuper keresés: Több kritérium VLookup  |   Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
	Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
	Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
	Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár   |  Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása   |  E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
	A 15 legjobb eszközkészlet:  12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Tovább ... Ingyenes letöltés...

---

Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés...