انتقل إلى المحتوى الرئيسي

كيفية إخفاء قيم خطأ معينة في Excel؟

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


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

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

1. في برنامج Excel ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة. ثم انسخ أيًا من أكواد 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 = Array ("# ​​DIV / 0!"، “# N / A”، “#NAME؟") في الصف الثاني عشر ، يجب أن تستبدل "# DIV / 0!" ، "# N / A" ، "# NAME؟" مع الأخطاء الفعلية التي تريد إخفاءها ، تذكر أن تحيط كل قيمة بعلامات اقتباس مزدوجة وتفصل بينها بفاصلات.

كود فبا 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 = Array ("Sheet1"، "Sheet2") في الصف الثاني عشر ، يجب أن تستبدل "ورقة 1" ، "ورقة 2" مع الأسماء الفعلية للأوراق حيث تريد إخفاء الأخطاء. تذكر إرفاق أسماء كل ورقة بعلامات اقتباس مزدوجة وفصل بينها بفاصلات.
  • في المقتطف xArrFinStr = Array ("# ​​DIV / 0!"، “# N / A”، “#NAME؟") في الصف الثاني عشر ، يجب أن تستبدل "# DIV / 0!" ، "# N / A" ، "# NAME؟" مع الخطأ الفعلي الذي تريد إخفاءه ، تذكر إرفاق كل خطأ بعلامات اقتباس مزدوجة وفصل بينها بفاصلات.

3. صحافة F5 لتشغيل التعليمات البرمجية لـ VBA. ملحوظة: إذا كنت تستخدم ملف كود فبا 1، سيظهر مربع حوار يطلب منك تحديد النطاق الذي يمكنك العثور فيه على قيم الخطأ وحذفها. يمكنك أيضًا النقر فوق علامة تبويب الورقة لتحديد الورقة بأكملها.

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

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


استبدل قيم الخطأ المحددة بقيم أخرى بميزة Error Condition Wizard

إذا لم تكن معتادًا على رمز VBA ، يمكن أن تساعدك ميزة Kutools for Excel's Error Condition Wizard في العثور بسهولة على جميع قيم الخطأ ، أو جميع أخطاء # N / A ، أو أي أخطاء باستثناء # N / A ، واستبدالها بقيم أخرى تحددها ، يرجى القراءة لمعرفة كيفية إنجاز هذه المهمة.

1. على كوتولس علامة التبويب، في المعادلة مجموعة، انقر فوق المزيد > معالج حالة الخطأ.

2. في النافذة المنبثقة معالج حالة الخطأ مربع الحوار ، يرجى القيام بما يلي:
  • في مجلة الفترة (من ... إلى) مربع ، انقر فوق زر تحديد النطاق على اليمين لتحديد النطاق الذي يحتوي على أخطاء لإخفائها. ملحوظة: للبحث عبر الورقة بأكملها ، انقر فوق علامة تبويب الورقة.
  • في مجلة أنواع الأخطاء ، حدد قيم الخطأ التي تريد إخفاءها.
  • في مجلة عرض الخطأ ، اختر طريقة كيف تريد استبدال الأخطاء بها.

3. انقر Ok. يتم عرض قيم الخطأ المحددة كخيار حددته.

ملحوظة: لاستخدام ال معالج حالة الخطأ ميزة ، يجب أن يكون لديك Kutools for Excel مثبتًا على جهاز الكمبيوتر الخاص بك. إذا لم يكن لديك Kutools مثبتًا ، انقر هنا للتنزيل والتثبيت. تقدم الوظيفة الإضافية الاحترافية لبرنامج Excel إصدارًا تجريبيًا مجانيًا لمدة 30 يومًا بدون قيود.


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

لاستبدال قيمة خطأ معينة ، فإن ملف Excel IF, إيفناو نوع الخطأ وظائف يمكن أن تقدم لك معروفا. لكن أولاً ، يجب أن تعرف رمز الرقم المقابل لكل قيمة خطأ.

# خطأ المعادلة الإسترجاع :
#لا شيء! = نوع الخطأ (#NULL!) 1
# DIV / 0! = ERROR.TYPE (# DIV / 0!) 2
#القيمة! = ERROR.TYPE (#VALUE!) 3
#REF! = ERROR.TYPE (#REF!) 4
# NAME؟ = ERROR.TYPE (#NAME؟) 5
#NUM! = ERROR.TYPE (#NUM!) 6
# N / A = نوع الخطأ (# N / A) 7
#الحصول على البيانات = ERROR.TYPE (#GETTING_DATA) 8
#تسرب! = نوع الخطأ (# SPILL!) 9
#مجهول! = نوع الخطأ (# غير معروف!) 12
#مجال! = ERROR.TYPE (#FIELD!) 13
#كالك! = نوع الخطأ (#CALC!) 14
أي شيء آخر = ERROR.TYPE (123) # N / A

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

= IF (IFNA (ERROR.TYPE (A2)، A2) = 2، "Divide By Zero Error"، 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؟

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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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