Cum să ascundeți anumite valori de eroare în Excel?

Să presupunem că există valori de eroare în foaia de lucru Excel pe care nu trebuie să le corectați, ci să le ascundeți. Pentru a rezolva problema, am vorbit despre cum să ascundeți toate valorile de eroare în Excel, acum, ce se întâmplă dacă doriți să ascundeți doar anumite valori de eroare? În acest tutorial, vă vom arăta mai jos cum să realizați această lucrare în trei moduri.

Ascundeți mai multe valori specifice de eroare albând textul cu VBA

Am creat două coduri VBA pentru a vă ajuta să ascundeți mai multe valori specifice de eroare în intervalul selectat sau în mai multe foi de lucru rapid, transformând în alb culoarea fontului erorilor specificate. Vă rugăm să urmați pașii de mai jos și să rulați codul în funcție de nevoile dvs.

1. În Excel, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module. Apoi copiați oricare dintre următoarele coduri VBA în fișierul Module fereastră.

Cod VBA 1: Ascundeți mai multe valori specifice de eroare în intervalul selectat

'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

Notă: În fragment xArrFinStr = Matrice ("#DIV/0!", "#N/A", "#NUME?") în al 12-lea rând, ar trebui să înlocuiți „#DIV/0!”, „#N/A”, „#NUME?” cu erorile reale pe care doriți să le ascundeți, amintiți-vă să includeți fiecare valoare cu ghilimele duble și să le separați cu virgule.

Cod VBA 2: Ascundeți mai multe valori specifice de eroare pe mai multe foi

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. presa F5 pentru a rula codul VBA. Notă: Dacă ați folosit Cod VBA 1, va apărea o casetă de dialog care vă va cere să selectați intervalul în care să găsiți și să ștergeți valorile de eroare. De asemenea, puteți face clic pe o filă de foaie pentru a selecta întreaga foaie.

4. Apare caseta de dialog prezentată mai jos, care vă va spune că valorile de eroare specificate au fost ascunse. Clic OK pentru a închide dialogul.

5. Valorile de eroare specificate au fost ascunse imediat.

Înlocuiți anumite valori de eroare cu alte valori cu caracteristica Expert Condition de eroare

Dacă nu sunteți familiarizat cu codul VBA, caracteristica Expert Condition de eroare din Kutools for Excel vă poate ajuta să găsiți cu ușurință toate valorile de eroare, toate erorile #N/A sau orice erori, cu excepția #N/A, și să le înlocuiți cu alte valori pe care le specificați , vă rugăm să citiți mai departe pentru a afla cum să finalizați această lucrare.

1. Pe Kutools în tabul Formulă grup, faceți clic pe Mai Mult > Expertul pentru condiții de eroare.

3. clic Ok. Valorile de eroare specificate sunt afișate ca opțiune pe care ați selectat-o.

Notă: Pentru a utiliza Expertul pentru condiții de eroare caracteristică, ar trebui să aveți Kutools pentru Excel instalat în computer. Dacă nu aveți Kutools instalat, faceți clic aici pentru a descărca și instala. Suplimentul profesional Excel oferă o probă gratuită de 30 de zile, fără limitări.

Înlocuiți o anumită eroare cu alte valori cu o formulă

Pentru a înlocui o anumită valoare de eroare, Excel IF, IFNA, și EROARE.TIP funcțiile vă pot face o favoare. Dar mai întâi, ar trebui să cunoașteți codul numeric corespunzător fiecărei valori de eroare.

De exemplu, aveți un tabel cu valorile prezentate mai sus. Pentru a înlocui # DIV / 0! eroare cu șirul de text Împărțire la zero eroare, mai întâi ar trebui să găsiți codul acestei erori, adică 2. Și apoi aplicați următoarea formulă în celulă B2, și trageți mânerul de umplere în jos pentru a aplica formula celulelor de mai jos:

=IF(IFNA(EROARE.TIP(A2),A2)=2,„Eroare Împărțire la zero”, A2)

Articole pe aceeași temă

Cele mai bune instrumente de productivitate de birou

🤖	Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
	Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
	Super căutare: VLookup cu mai multe criterii  |   VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
	Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
	Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
	Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar   |  Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule   |  Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
	Top 15 seturi de instrumente:  12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Citeşte mai mult ... Descărcare gratuită...

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită...