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

كيف تخفي الصيغة مع عرض النتيجة دون حماية ورقة العمل في Excel؟

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

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


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

لإخفاء الصيغ مع عرض النتائج دون حماية ورقة العمل ، يرجى القيام بما يلي.

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز VBA في نافذة التعليمات البرمجية.

كود فبا: إخفاء الصيغة ولكن عرض النتيجة دون حماية ورقة العمل

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

ملاحظة: في الكود ، C1: C10 هو نطاق الخلايا الذي تريد إخفاء الصيغ بداخله. يرجى تغييره بناءً على احتياجاتك.

3. ثم اضغط الأدوات > المراجع…. مراجعة وقت تشغيل البرنامج النصي لـ Microsoft مربع وانقر فوق OK زر في المراجع - VBAProject نافذة او شباك. انظر لقطة الشاشة:

4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدًا ، عند النقر فوق الخلية في النطاق المحدد ، سيتم إخفاء الصيغة على الفور في شريط الصيغة.


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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (20)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد حاولت استخدام رمز VBA وتلقيت رسالة خطأ تفيد بأنني بحاجة إلى تصحيح الجزء التالي من الكود: "إذا كان xDic.Count <> xRg.Count ثم"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي جيني ،
ما هو إصدار Office الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة لي نفس الخطأ أيضا
نسخة أوفيس 2013
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يرجى نسخ البرنامج النصي بأكمله بما في ذلك السطر الأول "Dim xDic As New Dictionary".
سوف تفوت السطر الأول في رمز هذا الخطأ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أيضا أتلقى نفس الخطأ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد تم نسخ العالم بأسره ولكن ما زلت أعطي خطأ لأن النوع المحدد من قبل المستخدم غير محدد فماذا يمكنني أن أفعل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قم بتمييز مرجع إلى مكتبة كائنات بيانات Microsoft Active X في محرر VBA.


1. افتح محرر VBA وانتقل إلى الأدوات | مراجع.


2. قم بالتمرير لأسفل حتى ترى مكتبة كائنات بيانات Microsoft Active X.


3. إذا كانت لديك إصدارات متعددة ، فاستخدم أحدث إصدار. سوف تتوافق الإصدارات مع إصدارات MDAC. المرة الوحيدة التي لا تريد فيها استخدام أحدث إصدار هي إذا كنت تقوم بتوزيع المشروع على جهاز لديه إصدار أقدم عليه. لذلك إذا كانت الأجهزة التي توزعها مثبتة عليها MDAC 2.6 فقط ، وكان لديك MDAC 2.7 ، فتحقق من المرجع إلى الإصدار 2.6 من Microsoft Active X Data Object Library للتأكد من أن المشروع سيعمل على الأجهزة التي توزعه عليها.
أكثر
وقت تشغيل البرمجة لـ Microsoft
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يستمر في قول تصحيح الأخطاء ويتم تحديثه في كل ثانية ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هناك طريقة سهلة كذلك.
حدد الخلية أو الخلايا التي تريد إخفاء الصيغة أو البيانات.
انتقل إلى الصفحة الرئيسية -> تنسيق -> تنسيق الخلايا -> رقم -> مخصص
ضمن النوع ، قم بإزالة عام ثم أدخل "" ""
لا تظهر قيمة الخلية أو الصيغة على الشاشة
ومع ذلك ، ستظهر في شريط الصيغة إذا قمت بتحديد الخلية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت استخدام رمز VBA ولكن بعد تطبيق هذا الرمز ، أصبح برنامج Excel الخاص بي بطيئًا ويتوقف عن العمل. الرجاء مساعدتي في حل هذه المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا ضغطنا مع الاستمرار على زر الماوس الأيسر فوق الخلية ، فستظهر الصيغة حتى تترك النقرة اليسرى. وإلا فإن هذا سيعمل بشكل جيد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد تطبيق رمز vba هذا ، لا تظهر نتيجة صيغة الجمع الجديدة في الخلية ، الرجاء المساعدة ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك. نجحت الصيغة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا جراسي ، أحاول إخفاء الصيغة في عمود معين بدون كلمة مرور تحمي الورقة. لقد قمت بنسخ الكود ولصقه بالكامل وغيرت الخلايا ولكن ما زلت غير قادر على إخفاء الصيغة. هل يمكنك المساعدة.

تم تصغير هذا التعليق بواسطة المشرف على الموقع
نجحت الصيغة ولكن المشكلة هي عندما نغلق الورقة ونعيد فتحها من VBA لا يعمل ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لمتابعة استخدام VBA هذا في المستقبل ، بعد إضافة الرمز ، يرجى حفظ المصنف كمصنف Excel Macro-Enabled. انقر فوق قم بتقديم > حفظ باسم. في مربع الحوار حفظ باسم ، حدد مصنف Excel ممكن بماكرو من حفظ ك اكتب القائمة المنسدلة ، ثم انقر فوق حفظ ثم استخدم هذا المصنف الذي يدعم ماكرو excel في المستقبل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك على هذا الرمز ، كنت حقًا بحاجة إلى شيء كهذا
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ضياء tetap تحميل ya ko؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
saya da coba sesuai الترميز nya ، bisa berjalan ، tetapi di Layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading ، (tanda bulat berkedip). ملف saya mmg 18 ميغابايت ، bagaimana caranya agar tidak keluar tanda kedip tersebut؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أكيا ،
المشكلة التي ذكرتها لا تتكرر في حالتي. هل لي أن أسأل عن إصدار Excel الذي تستخدمه؟
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

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