كيفية إخفاء قيم خطأ معينة في 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. على كوتولس علامة التبويب، في المعادلة مجموعة، انقر فوق المزيد > معالج حالة الخطأ.
- في مجلة الفترة (من ... إلى) مربع ، انقر فوق زر تحديد النطاق على اليمين لتحديد النطاق الذي يحتوي على أخطاء لإخفائها. ملحوظة: للبحث عبر الورقة بأكملها ، انقر فوق علامة تبويب الورقة.
- في مجلة أنواع الأخطاء ، حدد قيم الخطأ التي تريد إخفاءها.
- في مجلة عرض الخطأ ، اختر طريقة كيف تريد استبدال الأخطاء بها.
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 في حل هذه المشكلة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!