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

Diyelim ki Excel çalışma sayfanızda hata değerlerini düzeltmek yerine gizlemek istiyorsunuz. Bu sorunu çözmek için Excel’de tüm hata değerlerinin nasıl gizleneceğini daha önce incelemiştik. Peki ya yalnızca belirli hata değerlerini gizlemek isterseniz? Bu eğitimde, bunu aşağıdaki üç farklı yolla nasıl başarabileceğinizi göstereceğiz.

VBA ile metni beyaz yaparak birden fazla belirli hata değerini gizleme

Belirtilen hataların Yazı Tipi Rengi’ni beyaz yaparak Aralık Seç içinde veya birden fazla çalışma sayfasında birden fazla belirli hata değerini gizlemenize yardımcı olmak üzere iki adet VBA kodu oluşturduk. Lütfen aşağıdaki adımları izleyin ve ihtiyaçlarınıza göre kodu çalıştırın.

1. Excel'de "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodlarından birini "Modül" penceresine kopyalayın.

VBA kodu 1: Aralık seç içinde birden fazla belirli hata değerini gizleme

Sub HideSpecificErrors_SelectedRange()
  '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: 12. satırdaki "xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?")" kod parçasında, gizlemek istediğiniz gerçek hata değerlerini "#DIV/0!”, “#N/A”, “#NAME?” ifadeleriyle değiştirin. Her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.

VBA kodu 2: Birden fazla sayfada birden fazla belirli hata değerini gizleme

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. VBA kodunu çalıştırmak için F5 tuşuna basın.

4. Aşağıdaki gibi bir iletişim kutusu görüntülenir ve belirtilen hata değerlerinin gizlendiğini bildirir. İletişim kutusunu kapatmak için "Tamam" düğmesine tıklayın.

5. Belirtilen hata değerleri tek seferde gizlendi.

Belirli hata değerlerini Hata Durumu Sihirbazı Biçimlendir özelliğiyle başka değerlerle değiştirme

VBA koduna aşina değilseniz, Kutools for Excel’in “Hata Durumu Sihirbazı Biçimlendir” özelliğiyle tüm hata değerlerini, yalnızca #N/A hatalarını veya #N/A dışındaki tüm hataları kolayca bulabilir ve bunları belirttiğiniz başka değerlerle değiştirebilirsiniz. Bu işlemi nasıl yapacağınızı öğrenmek için lütfen “Lütfen okuyun” bölümüne göz atın.

1. "Kutools" sekmesinde, "Formül" grubundan "Diğer" > "Hata Durumu Sihirbazı Biçimlendir" seçeneğine tıklayın.

3. "Tamam" düğmesine tıklayın. Belirtilen hata değerleri, seçtiğiniz seçenek olarak görüntülenir.

Belirli bir hatayı formülle başka değerlerle değiştirme

Belirli bir hata değerini değiştirmek için Excel'in EĞER, EĞERHY ve HATA.TÜRÜ fonksiyonları size yardımcı olabilir. Ancak öncelikle her hata değerinin karşılık gelen sayısal kodunu bilmeniz gerekir.

Örneğin, yukarıda gösterildiği gibi değerler içeren bir tablonuz olsun. "#DIV/0!" hatasını "Sıfıra Bölme Hatası" metin dizesiyle değiştirmek için öncelikle bu hatanın kodunu, yani "2" değerini belirleyin. Ardından "B2" hücresine aşağıdaki formülü girin ve formülü alttaki hücrelere uygulamak için doldurma tutamacını aşağı doğru sürükleyin:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Divide By Zero Error",A2)

İlgili makaleler

En İyi Office Verimlilik Araçları

🤖	KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi'i devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
	Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
	Süper ARA:Çoklu Kriterli Dikey Arama (VLookup)  |  Çoklu Değerli Dikey Arama (VLookup)  |   Birden Fazla Sayfada Dikey Arama (VLookup)   |   Bulanık Eşleme…
	Gelişmiş Açılır Liste:Açılır Liste Hızlıca Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste…
	Sütun Yöneticisi:Belirli Sayıda Sütun Ekle|Sütunları Taşı|Gizli Sütunların Görünürlük Durumunu Aç/Kapat|Aralıkları ve Sütunları Karşılaştır…
	Öne Çıkan Özellikler:Izgara Odaklama   |  Tasarım Görünümü   |Gelişmiş formül çubuğu   | Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/eğik/yazı üzeri çizgi…) …
	En İyi 15 Araç Setleri:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ başka dillerde destek sunar!

Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen alınmak için buraya tıklayın…

Kutools for Excel hakkında daha fazla ayrıntı…Ücretsiz İndir…

---

Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.

• Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
• Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

Office Tab hakkında daha fazla ayrıntı…Ücretsiz İndir…

---

Tüm Kutools eklentileri, tek bir yükleyiciyle!

Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.

• Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
• Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
• Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı verimlilik
• 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
• En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin

Kutools for Office hakkında daha fazla ayrıntı…Ücretsiz İndir…