كيفية إخفاء قيم خطأ محددة في Excel؟

لنفترض أن هناك قيم خطأ في ورقة عمل Excel الخاصة بك والتي لا تحتاج إلى تصحيحها ولكنك ترغب في إخفائها. للتعامل مع هذه المشكلة، تحدثنا سابقًا عن كيفية إخفاء جميع قيم الخطأ في Excel، ولكن ماذا لو كنت تريد إخفاء قيم خطأ محددة فقط؟ في هذا البرنامج التعليمي، سنوضح لك كيفية القيام بذلك بثلاث طرق مختلفة أدناه.

إخفاء قيم خطأ محددة متعددة عن طريق تحويل النص إلى اللون الأبيض باستخدام VBA

لقد أنشأنا كودين VBA لمساعدتك على إخفاء قيم خطأ محددة متعددة في النطاق المحدد أو عبر أوراق عمل متعددة بسرعة عن طريق تحويل لون الخط للأخطاء المحددة إلى اللون الأبيض. يرجى اتباع الخطوات أدناه وتشغيل الكود حسب احتياجاتك.

1. في Excel الخاص بك، اضغط على مفتاح "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".

2. انقر فوق "إدراج" > "وحدة". ثم انسخ أحد كودي VBA التاليين إلى نافذة "الوحدة".

كود VBA 1: إخفاء قيم خطأ محددة متعددة في النطاق المحدد

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

ملاحظة: في الجزء "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")" في الصف الثاني عشر، يجب عليك استبدال "#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

3. اضغط على "F5" لتشغيل كود VBA.

4. سيظهر مربع الحوار كما هو موضح أدناه لإخبارك بأن قيم الخطأ المحددة تم إخفاؤها. انقر فوق "موافق" لإغلاق مربع الحوار.

5. تم إخفاء قيم الخطأ المحددة دفعة واحدة.

استبدال قيم خطأ محددة بقيم أخرى باستخدام ميزة معالج شرط الخطأ

إذا لم تكن على دراية بكود VBA، فإن ميزة "معالج شرط الخطأ" في Kutools لـ Excel يمكن أن تساعدك بسهولة في العثور على جميع قيم الخطأ، جميع أخطاء #N/A، أو أي أخطاء باستثناء #N/A، واستبدالها بقيم أخرى تحددها. يرجى الاستمرار في القراءة لمعرفة كيفية إنجاز هذه المهمة.

1. على علامة التبويب "Kutools"، في مجموعة "الصيغة"، انقر فوق "المزيد" > "معالج شرط الخطأ".

3. انقر فوق "موافق". سيتم عرض قيم الخطأ المحددة بالطريقة التي اخترتها.

استبدال خطأ محدد بقيم أخرى باستخدام صيغة

لاستبدال قيمة خطأ محددة، يمكن لدوال IF، IFNA، و ERROR.TYPE في Excel مساعدتك. ولكن أولاً، يجب أن تعرف رمز الرقم المقابل لكل قيمة خطأ.

على سبيل المثال، لديك جدول بالقيم كما هو موضح أعلاه. لاستبدال خطأ "#DIV/0!" بنص السلسلة "Divide By Zero Error"، يجب أن تجد أولاً رمز هذا الخطأ، وهو "2". وبعد ذلك قم بتطبيق الصيغة التالية في الخلية "B2"، واسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا أدناه:

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

مقالات ذات صلة