Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

يمكنك إخفاء خطأ صيغة واحدة غير متناسقة في كل مرة مع تجاهل الخطأ في 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 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

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

أحدث إصدار من Excel 365 الإصدار 2207 (النسخة 15427.20210)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سريع
لقد اختبرت الكود في نفس الإصدار (2207 (بناء 15425.20210)) ولا يزال يعمل.
هل يمكنك تحميل ملف عينة من بياناتك هنا؟
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/365_version.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،

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

هل تستخدم مدرسة قديمة أساسية (جدول منسق من قبل المستخدم) فقط أم أنها جدول مع تصميم 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 الخاص بك يعمل فقط لبضع ثوان ثم تظهر الأخطاء مرة أخرى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سريع
شكرا جزيلا لملاحظاتك. لم يأخذ الكود الأصلي بعين الاعتبار بيانات تنسيق الجدول. تم تحديث الكود على النحو التالي ، يرجى المحاولة.

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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،

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


يحيي

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

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL