Μετάβαση στο κύριο περιεχόμενο

Πώς να αποκρύψετε συγκεκριμένες τιμές σφάλματος στο Excel;

Ας υποθέσουμε ότι υπάρχουν τιμές σφάλματος στο φύλλο εργασίας του Excel που δεν χρειάζεται να διορθώσετε αλλά να αποκρύψετε. Για να αντιμετωπίσουμε το πρόβλημα, μιλήσαμε πώς να αποκρύψετε όλες τις τιμές σφάλματος στο Excel, τώρα, τι γίνεται αν θέλετε να αποκρύψετε μόνο συγκεκριμένες τιμές σφάλματος; Σε αυτό το σεμινάριο, θα σας δείξουμε πώς να κάνετε αυτή τη δουλειά με τρεις τρόπους παρακάτω.


Απόκρυψη πολλαπλών συγκεκριμένων τιμών σφάλματος μετατρέποντας το κείμενο σε λευκό με VBA

Δημιουργήσαμε δύο κωδικούς VBA για να σας βοηθήσουμε να αποκρύψετε πολλές συγκεκριμένες τιμές σφάλματος στην επιλεγμένη περιοχή ή σε πολλά φύλλα εργασίας γρήγορα, κάνοντας λευκό το χρώμα της γραμματοσειράς των καθορισμένων σφαλμάτων. Ακολουθήστε τα παρακάτω βήματα και εκτελέστε τον κώδικα σύμφωνα με τις ανάγκες σας.

1. Στο Excel, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε έναν από τους παρακάτω κωδικούς VBA στο Μονάδα μέτρησης παράθυρο.

Κωδικός VBA 1: Απόκρυψη πολλαπλών συγκεκριμένων τιμών σφάλματος στην επιλεγμένη περιοχή

'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

Σημείωση: Στο απόσπασμα xArrFinStr = Πίνακας ("#DIV/0!", "#N/A", "#NAME?") στη 12η σειρά, θα πρέπει να αντικαταστήσετε "#DIV/0!", "#N/A", "#NAME?" με τα πραγματικά σφάλματα που θέλετε να αποκρύψετε, θυμηθείτε να περικλείετε κάθε τιμή με διπλά εισαγωγικά και να τα διαχωρίζετε με κόμματα.

Κωδικός VBA 2: Απόκρυψη πολλαπλών συγκεκριμένων τιμών σφάλματος σε πολλά φύλλα

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
Σημείωση:
  • Στο απόσπασμα xArr = Πίνακας ("Φύλλο1", "Φύλλο2") στη 15η σειρά, θα πρέπει να αντικαταστήσετε "Φύλλο 1", "Φύλλο 2" με τα πραγματικά ονόματα των φύλλων όπου θέλετε να κρύψετε τα σφάλματα. Θυμηθείτε να εσωκλείσετε τα ονόματα κάθε φύλλου με διπλά εισαγωγικά και να τα διαχωρίσετε με κόμματα.
  • Στο απόσπασμα xArrFinStr = Πίνακας ("#DIV/0!", "#N/A", "#NAME?") στη 16η σειρά, θα πρέπει να αντικαταστήσετε "#DIV/0!", "#N/A", "#NAME?" με το πραγματικό σφάλμα που θέλετε να αποκρύψετε, θυμηθείτε να περικλείετε κάθε σφάλμα με διπλά εισαγωγικά και να τα διαχωρίζετε με κόμματα.

3. Τύπος F5 για να εκτελέσετε τον κώδικα VBA. Σημείωση: Εάν χρησιμοποιήσατε το Κωδικός VBA 1, θα εμφανιστεί ένα παράθυρο διαλόγου που σας ζητά να επιλέξετε το εύρος όπου θα βρείτε και θα διαγράψετε τις τιμές σφάλματος. Μπορείτε επίσης να κάνετε κλικ σε μια καρτέλα φύλλου για να επιλέξετε ολόκληρο το φύλλο.

4. Εμφανίζεται το παράθυρο διαλόγου όπως φαίνεται παρακάτω και σας ενημερώνει ότι οι καθορισμένες τιμές σφάλματος ήταν κρυφές. Κάντε κλικ OK για να κλείσετε το παράθυρο διαλόγου.

5. Οι καθορισμένες τιμές σφάλματος έχουν κρυφτεί αμέσως.


Αντικαταστήστε συγκεκριμένες τιμές σφάλματος με άλλες τιμές με τη λειτουργία Error Condition Wizard

Εάν δεν είστε εξοικειωμένοι με τον κώδικα VBA, η δυνατότητα "Οδηγός κατάστασης σφάλματος" του Kutools for Excel θα μπορούσε να σας βοηθήσει να βρείτε εύκολα όλες τις τιμές σφάλματος, όλα τα σφάλματα #N/A ή τυχόν σφάλματα εκτός από #N/A και να τα αντικαταστήσετε με άλλες τιμές που καθορίζετε , διαβάστε παρακάτω για να μάθετε πώς μπορείτε να ολοκληρώσετε αυτήν τη δουλειά.

1. Από την Kutools στην καρτέλα Τύπος ομάδα, πατήστε Περισσότερες > Οδηγός κατάστασης σφάλματος.

2. Στο αναδυόμενο παράθυρο Οδηγός κατάστασης σφάλματος πλαίσιο διαλόγου, κάντε τα εξής:
  • Στο Σειρά πλαίσιο, κάντε κλικ στο κουμπί επιλογής εύρους στα δεξιά για να καθορίσετε το εύρος που περιέχει σφάλματα προς απόκρυψη. Σημείωση: Για αναζήτηση σε ολόκληρο το φύλλο, κάντε κλικ στην καρτέλα του φύλλου.
  • Στο Τύποι σφαλμάτων ενότητα, καθορίστε ποιες τιμές σφάλματος θα αποκρύψετε.
  • Στο Εμφάνιση σφάλματος ενότητα, επιλέξτε έναν τρόπο με τον οποίο θέλετε να αντικαταστήσετε τα σφάλματα.

3. κλικ Ok. Οι καθορισμένες τιμές σφάλματος εμφανίζονται ως η επιλογή που επιλέξατε.

Σημείωση: Για να χρησιμοποιήσετε το Οδηγός κατάστασης σφάλματος χαρακτηριστικό, θα πρέπει να έχετε εγκατεστημένο το Kutools για Excel στον υπολογιστή σας. Εάν δεν έχετε εγκαταστήσει το Kutools, κάντε κλικ εδώ για λήψη και εγκατάσταση. Το επαγγελματικό πρόσθετο Excel προσφέρει δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς.


Αντικαταστήστε ένα συγκεκριμένο σφάλμα με άλλες τιμές με έναν τύπο

Για να αντικαταστήσετε μια συγκεκριμένη τιμή σφάλματος, του Excel IF, IFNA, να ΣΦΑΛΜΑ. ΤΥΠΟΣ οι λειτουργίες μπορούν να σας κάνουν τη χάρη. Αλλά πρώτα, θα πρέπει να γνωρίζετε τον αντίστοιχο αριθμητικό κωδικό κάθε τιμής σφάλματος.

# Λάθος Τύπος Επιστροφές
#ΜΗΔΕΝΙΚΟ! = ΣΦΑΛΜΑ. ΤΥΠΟΣ (# NULL!) 1
# DIV / 0! = ΣΦΑΛΜΑ. ΤΥΠΟΣ (# DIV / 0!) 2
#ΑΞΙΑ! = ΣΦΑΛΜΑ. ΤΥΠΟΣ (# ΑΞΙΑ!) 3
# ΑΝΑΦ! = ΣΦΑΛΜΑ. ΤΥΠΟΣ (#REF!) 4
# ΟΝΟΜΑ? = ΣΦΑΛΜΑ. ΤΥΠΟΣ (# ΟΝΟΜΑ;) 5
# ΑΡΙΘΜΟΣ! = ΣΦΑΛΜΑ. ΤΥΠΟΣ (#NUM!) 6
# N / A = ΣΦΑΛΜΑ.TYPE (# N / A) 7
# ΛΗΨΗ_ΔΕΔΟΜΕΝΩΝ = ΣΦΑΛΜΑ. ΤΥΠΟΣ (#GETTING_DATA) 8
#ΔΙΑΡΡΟΗ! =ERROR.TYPE(#SPILL!) 9
#ΑΓΝΩΣΤΟΣ! =ERROR.TYPE(#ΑΓΝΩΣΤΟ!) 12
#ΠΕΔΙΟ! =ERROR.TYPE(#FIELD!) 13
#CALC! =ERROR.TYPE(#CALC!) 14
Τίποτα άλλο = ΣΦΑΛΜΑ. ΤΥΠΟΣ (123) # N / A

Για παράδειγμα, έχετε έναν πίνακα με τιμές όπως φαίνεται παραπάνω. Για να αντικαταστήσετε το # DIV / 0! σφάλμα με τη συμβολοσειρά κειμένου Διαίρεση με μηδέν σφάλμα, θα πρέπει πρώτα να βρείτε τον κωδικό αυτού του σφάλματος, ο οποίος είναι 2. Στη συνέχεια, εφαρμόστε τον ακόλουθο τύπο στο κελί B2και σύρετε τη λαβή πλήρωσης προς τα κάτω για να εφαρμόσετε τον τύπο στα παρακάτω κελιά:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Διαίρεση με μηδέν σφάλμα",A2)

Σημείωση:
  • Στον τύπο, μπορείτε να αντικαταστήσετε τον κωδικό σφάλματος 2 στον κωδικό που αντιστοιχεί σε άλλη τιμή σφάλματος.
  • Στον τύπο, μπορείτε να αντικαταστήσετε τη συμβολοσειρά κειμένου "Διαίρεση με μηδέν σφάλμα" σε άλλο μήνυμα κειμένου ή "" εάν θέλετε να αντικαταστήσετε το σφάλμα με ένα κενό κελί.

Σχετικά Άρθρα

Πώς να κρύψετε όλες τις τιμές σφαλμάτων στο Excel;

Όταν εργάζεστε σε φύλλο εργασίας του Excel, μερικές φορές, ενδέχεται να διαπιστώσετε ότι υπάρχουν ορισμένες τιμές σφαλμάτων, όπως # DIV / 0, #REF, # N / A και ούτω καθεξής, προκαλούνται από το σφάλμα τύπων. Τώρα, θα θέλατε να αποκρύψετε όλες αυτές τις τιμές σφάλματος στο φύλλο εργασίας, πώς θα μπορούσατε να επιλύσετε αυτήν την εργασία γρήγορα και εύκολα στο Excel;

Πώς να αλλάξετε το #DIV/0! Σφάλμα στο αναγνώσιμο μήνυμα στο Excel;

Μερικές φορές, όταν χρησιμοποιούμε τον τύπο για τον υπολογισμό στο excel, θα εμφανιστούν ορισμένα μηνύματα σφάλματος. Για παράδειγμα, σε αυτόν τον τύπο = A1 / B1, εάν το B1 είναι κενό ή περιέχει 0, ο τύπος θα εμφανίσει ένα σφάλμα # DIV / 0. Υπάρχει τρόπος να κάνετε αυτά τα μηνύματα σφάλματος ευανάγνωστα ή εάν θέλετε να χρησιμοποιήσετε άλλα μηνύματα για να αντικαταστήσετε τα σφάλματα, τι πρέπει να κάνετε;

Πώς να αποφύγετε το σφάλμα #Ref κατά τη διαγραφή των γραμμών στο Excel;

Ενώ αναφέρετε ένα κελί σε άλλο κελί, το κελί θα εμφανίσει #REF σφάλμα εάν η γραμμή αναφοράς έχει διαγραφεί όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τώρα θα μιλήσω για το πώς να αποφύγετε το σφάλμα #ref και να αναφέρομαι αυτόματα στο επόμενο κελί κατά τη διαγραφή της σειράς.

Πώς να επισημάνετε όλα τα κελιά σφαλμάτων στο Excel;

Εάν δημιουργήσετε τύπους στο φύλλο εργασίας σας, θα είναι αναπόφευκτο να εμφανιστούν ορισμένες τιμές σφάλματος. Μπορείτε να επισημάνετε όλα αυτά τα κελιά που περιέχουν τις τιμές σφάλματος στο φύλλο εργασίας σας ταυτόχρονα; Το βοηθητικό πρόγραμμα Conditional Formatting στο Excel μπορεί να σας βοηθήσει να λύσετε αυτό το πρόβλημα.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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