كيف تخفي خطأ صيغة غير متناسقة في إكسيل؟

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

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

إخفاء خطأ صيغة واحدة غير متناسقة مع تجاهل الخطأ

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

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

1. حدد الخلية التي تحتوي على مؤشر الخطأ الذي تريد إخفاءه ، ثم انقر فوق زر العرض بجانب الخلية. انظر لقطة الشاشة:

2. حدد تجاهل الخطأ من القائمة المنسدلة كما هو موضح أدناه.

ثم سيتم إخفاء مؤشر الخطأ على الفور.

إخفاء كافة أخطاء الصيغ غير المتسقة في التحديد باستخدام رمز VBA

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

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة، ثم انسخ والصق كود فبا في نافذة الكود.

كود فبا: إخفاء كافة أخطاء الصيغ غير المتسقة في ورقة العمل

Sub HideInconsistentFormulaError()
    Dim xRg As Range, xCell As Range
    Dim xError As Byte
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the range:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Errors(xlInconsistentFormula).Value Then
            xCell.Errors(xlInconsistentFormula).Ignore = True
        End If
    Next
End Sub

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

ثم يتم إخفاء جميع أخطاء الصيغ غير المتسقة على الفور من النطاق المحدد. انظر لقطة الشاشة:

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (7)

لا يوجد تقييم. كن أول من يقيم!

عاجل

منذ حوالي 5 أشهر

#39754

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،

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

رد

كريستال عاجل

منذ حوالي 5 أشهر

#39785

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سريع
هل يمكنك إخباري بإصدار Excel 365 لديك؟
لقد اختبرت الكود في Excel 365 وهو يعمل بشكل جيد. لذلك لا يمكن تكرار المشكلة.

رد

بلغ

عاجل

منذ حوالي 5 أشهر

#39792

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا كريستال ،

أحدث إصدار من Excel 365 الإصدار 2207 (النسخة 15427.20210)

رد

كريستال عاجل

منذ حوالي 5 أشهر

#39810

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سريع
لقد اختبرت الكود في نفس الإصدار (2207 (بناء 15425.20210)) ولا يزال يعمل.
هل يمكنك تحميل ملف عينة من بياناتك هنا؟

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/365_version.png

رد

بلغ

عاجل

منذ حوالي 5 أشهر

#39817

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا كريستال ،

شكرا لك على وقت الاختبار الخاص بك.

هل تستخدم مدرسة قديمة أساسية (جدول منسق من قبل المستخدم) فقط أم أنها جدول مع تصميم Excel ووظيفة التصفية في رأس العمود؟
كما هو موضح هنا:
https://support.microsoft.com/de-de/office/%C3%BCbersicht-zu-excel-tabellen-7ab0bb7d-3a9e-4b56-a3c9-6c94334e492c

الأحدث هو ما أستخدمه.

لا يمكنني مشاركة "البرنامج" الخاص بي - فهو أداة مالية للاستخدام الشخصي.
الخلايا مع هذا المحتوى:
= HYPERLINK ("https://www.domain.de/abc.html" ؛ "www")

نظرًا لأن كل صف له ارتباط آخر ، فإنني أحصل على أخطاء غير متسقة.
يمكنني إخفائه يدويًا ، ولكن ليس باستخدام VBA.

لا أعرف ما إذا كان vba الخاص بك يعمل فقط لبضع ثوان ثم تظهر الأخطاء مرة أخرى.

رد

كريستال عاجل

منذ حوالي 5 أشهر

#39860

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سريع
شكرا جزيلا لملاحظاتك. لم يأخذ الكود الأصلي بعين الاعتبار بيانات تنسيق الجدول. تم تحديث الكود على النحو التالي ، يرجى المحاولة.

Sub HideInconsistentFormulaError()
'Updated by Extendoffice 20220902
    Dim xRg As Range, xCell As Range
    Dim xError As Byte
    On Error Resume Next
   Set xRg = Application.InputBox("Please select the range:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Errors(xlEmptyCellReferences).Value Then
            xCell.Errors(xlEmptyCellReferences).Ignore = True
        ElseIf xCell.Errors(xlEvaluateToError).Value Then
            xCell.Errors(xlEvaluateToError).Ignore = True
        ElseIf xCell.Errors(xlInconsistentFormula).Value Then
            xCell.Errors(xlInconsistentFormula).Ignore = True
        ElseIf xCell.Errors(xlInconsistentListFormula).Value Then
            xCell.Errors(xlInconsistentListFormula).Ignore = True
        ElseIf xCell.Errors(xlListDataValidation).Value Then
           xCell.Errors(xlListDataValidation).Ignore = True
        ElseIf xCell.Errors(xlNumberAsText).Value Then
            xCell.Errors(xlNumberAsText).Ignore = True
        ElseIf xCell.Errors(xlOmittedCells).Value Then
            xCell.Errors(xlOmittedCells).Ignore = True
        ElseIf xCell.Errors(xlTextDate).Value Then
            xCell.Errors(xlTextDate).Ignore = True
        ElseIf xCell.Errors(xlUnlockedFormulaCells).Value Then
            xCell.Errors(xlUnlockedFormulaCells).Ignore = True
        End If
    Next
End Sub

رد

بلغ

عاجل

منذ حوالي 5 أشهر

#39865

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا كريستال ،

شكرا جزيلا على الكود ، إنه يعمل الآن :)

يحيي

عاجل

رد

لا توجد تعليقات منشورة هنا حتى الآن