Excel'de belirli hata değerleri nasıl gizlenir?

Diyelim ki Excel çalışma sayfanızda düzeltmeniz gerekmeyen ancak gizlemeniz gereken hata değerleri var. Sorunu çözmek için, hakkında konuştuk Excel'deki tüm hata değerleri nasıl gizlenir, şimdi, sadece belirli hata değerlerini gizlemek isterseniz ne olur? Bu eğitimde, bu işi nasıl yapacağınızı aşağıda üç şekilde göstereceğiz.

Metni VBA ile beyaza çevirerek birden çok belirli hata değerini gizleyin

Belirtilen hataların yazı tipi rengini beyaza çevirerek, seçilen aralıkta veya birden çok çalışma sayfasında birden çok belirli hata değerini hızla gizlemenize yardımcı olmak için iki VBA kodu oluşturduk. Lütfen aşağıdaki adımları takip edin ve kodu ihtiyaçlarınıza göre çalıştırın.

1. Excel'inizde, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül. Ardından, aşağıdaki VBA kodlarından birini kopyalayın. modül pencere.

VBA kodu 1: Seçili aralıkta birden çok belirli hata değerini gizle

'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: snippet'te xArrFinStr = Array("#SAYI/0!", "#YOK", "#NAME?") 12. satırda, değiştirmelisiniz "#SAYI/0!", "#YOK", "#NAME?" gizlemek istediğiniz gerçek hatalarla, her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.

VBA kodu 2: Birden çok sayfada birden çok belirli hata değerini gizleyin

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. Basın F5 VBA kodunu çalıştırmak için. Not: Kullandıysanız VBA kodu 1, hata değerlerinin bulunacağı ve silineceği aralığı seçmenizi isteyen bir iletişim kutusu açılır. Tüm sayfayı seçmek için bir sayfa sekmesine de tıklayabilirsiniz.

4. Aşağıda gösterilen iletişim kutusu açılır ve size belirtilen hata değerlerinin gizlendiğini söyler. Tıklamak OK diyaloğu kapatmak için.

5. Belirtilen hata değerleri bir kerede gizlenmiştir.

Hata Durumu Sihirbazı özelliği ile belirli hata değerlerini diğer değerlerle değiştirin

VBA koduna aşina değilseniz, Kutools for Excel's Hata Durumu Sihirbazı özelliği, tüm hata değerlerini, tüm #N/A hatalarını veya #N/A dışındaki herhangi bir hatayı kolayca bulmanıza ve bunları belirttiğiniz diğer değerlerle değiştirmenize yardımcı olabilir. , bu işi nasıl yapacağınızı öğrenmek için lütfen okumaya devam edin.

1. Üzerinde Kutools sekmesinde, formül gruplandır, tıklayın Daha > Hata Durumu Sihirbazı.

3. tık Ok. Belirtilen hata değerleri, seçtiğiniz seçenek olarak görüntülenir.

Not: Kullanmak için Hata Durumu Sihirbazı özelliği, bilgisayarınızda Kutools for Excel yüklü olmalıdır. Kutools kurulu değilse, indirmek ve yüklemek için buraya tıklayın. Profesyonel Excel eklentisi, herhangi bir sınırlama olmaksızın 30 günlük ücretsiz deneme sunar.

Belirli bir hatayı formülle diğer değerlerle değiştirin

Belirli bir hata değerini değiştirmek için Excel'in IF, IFNA, ve HATA.TÜRÜ fonksiyonlar size bir iyilik yapabilir. Ama önce, her bir hata değerine karşılık gelen sayı kodunu bilmelisiniz.

Örneğin, yukarıda gösterildiği gibi değerlere sahip bir tablonuz var. değiştirmek için # BÖL / 0! metin dizesinde hata Sıfır Hata ile Böl, önce bu hatanın kodunu bulmalısınız, ki bu 2. Ardından hücreye aşağıdaki formülü uygulayın. B2tıklayın ve formülü aşağıdaki hücrelere uygulamak için doldurma tutamacını aşağı sürükleyin:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Sıfıra Böl Hatası",A2)

İlgili Makaleler

En İyi Ofis Üretkenlik Araçları

🤖	Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
	Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
	Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
	Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
	Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
	Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
	En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Devamı ... Ücretsiz indirin...

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin...