Excel'de belirli hata değerlerini nasıl gizlersiniz?

Diyelim ki, düzeltmeniz gerekmeyen ancak gizlemeniz gereken Excel çalışma sayfanızda hata değerleri var. Sorunu çözmek için, Excel'de tüm hata değerlerini nasıl gizleyeceğimizi anlattık; peki ya sadece belirli hata değerlerini gizlemek isterseniz ne olacak? Bu eğitimde, bu işi aşağıda açıklanan üç farklı şekilde nasıl yapabileceğinizi göstereceğiz.

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

Seçili aralıktaki veya birden fazla çalışma sayfasındaki belirli hataların yazı tipi rengini beyaz yaparak hızlıca birden fazla belirli hata değerini gizlemenize yardımcı olmak için iki 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'inizde, "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. Ardından aşağıdaki VBA kodlarından birini "Modül" penceresine kopyalayın.

VBA Kodu 1: Seçili aralıktaki 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?")" parçasında, "#DIV/0!", "#N/A", "#NAME?" yerine gizlemek istediğiniz gerçek hataları yazmalısınız. Her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.

VBA Kodu 2: Birden fazla çalışma sayfasında 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ğıda gösterilen iletişim kutusu belirtilen hata değerlerinin gizlendiğini bildirerek açılır. İletişim kutusunu kapatmak için "Tamam" düğmesine tıklayın.

5. Belirtilen hata değerleri anında gizlenmiştir.

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

Eğer VBA kodu konusunda deneyimli değilseniz, Kutools for Excel'in "Hata Durumu Sihirbazı" özelliği size tüm hata değerlerini, tüm #YOK hatalarını veya #YOK dışındaki herhangi bir hatayı kolayca bulmanıza ve bunları belirttiğiniz diğer değerlerle değiştirmenize yardımcı olabilir. Nasıl yapılacağını öğrenmek için lütfen okumaya devam edin.

1. "Kutools" sekmesinde, "Formül" grubunda, "Daha Fazla" > "Hata Durumu Sihirbazı" 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ülenecektir.

Bir formülle belirli bir hatayı diğer değerlerle değiştirme

Belirli bir hata değerini değiştirmek için, Excel’in IF, IFNA ve ERROR.TYPE fonksiyonları size yardımcı olabilir. Ancak önce, her hata değerinin karşılık gelen sayısal kodunu bilmelisiniz.

Örneğin, yukarıdaki gibi değerler içeren bir tablonuz var. "#BÖL/0!" hatasını "Sıfıra Bölme Hatası" metin dizesiyle değiştirmek için, önce bu hatanın kodunu (yani "2") bulmalısınız. Ardından aşağıdaki formülü "B2" hücresine uygulayın ve formülü aşağıdaki hücrelere uygulamak için doldurma tutamacını aşağı çekin:

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

İlgili makaleler