Kako skriti določene vrednosti napak v Excelu?

Recimo, da so v vašem Excelovem delovnem listu vrednosti napak, ki vam jih ni treba popraviti, temveč skriti. Za rešitev problema, o katerem smo govorili kako skriti vse vrednosti napak v Excelu, kaj pa, če želite skriti samo določene vrednosti napak? V tej vadnici vam bomo pokazali, kako to delo opravite na tri načine spodaj.

Skrijte več specifičnih vrednosti napak tako, da z VBA obarvate besedilo belo

Ustvarili smo dve kodi VBA, ki vam pomagata hitro skriti več specifičnih vrednosti napak v izbranem obsegu ali na več delovnih listih, tako da barvo pisave določenih napak spremenite v belo. Sledite spodnjim korakom in zaženite kodo glede na svoje potrebe.

1. V Excelu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli. Nato kopirajte eno od naslednjih kod VBA v Moduli okno.

Koda VBA 1: Skrij več specifičnih vrednosti napak v izbranem obsegu

'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

Opomba: V odlomku xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") v 12. vrstici, morate zamenjati "#DIV/0!", "#N/A", "#NAME?" pri dejanskih napakah, ki jih želite skriti, ne pozabite obdati vsake vrednosti z dvojnimi narekovaji in jih ločiti z vejicami.

Koda VBA 2: Skrij več specifičnih vrednosti napak na več listih

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. Pritisnite F5 za zagon kode VBA. Opomba: Če ste uporabili Koda VBA 1, se bo pojavilo pogovorno okno, v katerem boste morali izbrati obseg, v katerem želite poiskati in izbrisati vrednosti napak. Lahko tudi kliknete zavihek lista, da izberete celoten list.

4. Pojavi se pogovorno okno, kot je prikazano spodaj, ki vam pove, da so bile podane vrednosti napak skrite. Kliknite OK , da zaprete pogovorno okno.

5. Navedene vrednosti napak so bile takoj skrite.

Zamenjajte določene vrednosti napake z drugimi vrednostmi s funkcijo čarovnika za stanje napake

Če niste seznanjeni s kodo VBA, vam lahko funkcija čarovnika za stanje napak Kutools for Excel pomaga zlahka najti vse vrednosti napak, vse napake #N/A ali katere koli napake, razen #N/A, in jih nadomestiti z drugimi vrednostmi, ki jih določite , berite naprej, če želite izvedeti, kako opraviti to delo.

1. Na Kutools jeziček, v Formula skupino, kliknite Več > Čarovnik za napake.

3. klik Ok. Navedene vrednosti napak so prikazane kot možnost, ki ste jo izbrali.

Opomba: Za uporabo Čarovnik za napake funkcija, bi morali imeti v računalniku nameščen Kutools for Excel. Če nimate nameščenega programa Kutools, kliknite tukaj za prenos in namestitev. Profesionalni dodatek Excel ponuja 30-dnevno brezplačno preskusno različico brez omejitev.

Zamenjajte določeno napako z drugimi vrednostmi s formulo

Če želite zamenjati določeno vrednost napake, Excelova IF, IFNAin NAPAKA.TIP funkcije vam lahko naredijo uslugo. Najprej pa bi morali poznati ustrezno številčno kodo vsake vrednosti napake.

Na primer, imate tabelo z vrednostmi, kot je prikazano zgoraj. Za zamenjavo # DIV / 0! napaka z besedilnim nizom Napaka pri deljenju z nič, morate najprej poiskati kodo te napake, ki je 2. Nato uporabite naslednjo formulo v celici B2in povlecite ročico za polnjenje navzdol, da uporabite formulo za spodnje celice:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Napaka deljenja z ničlo",A2)

Sorodni članki

Najboljša pisarniška orodja za produktivnost

🤖	Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
	Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
	Super iskanje: Več kriterijev VLookup  |   Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
	Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
	Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
	Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule   |  Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic   |  Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
	15 najboljših kompletov orodij:  12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Preberite več ... Brezplačen prenos...

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos...