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

كيفية إخفاء أو إظهار زر الأمر بناءً على قيمة الخلية المحددة في إكسيل؟

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

إخفاء أو إظهار زر الأمر بناءً على قيمة الخلية المحددة برمز VBA


إخفاء أو إظهار زر الأمر بناءً على قيمة الخلية المحددة برمز VBA

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

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

2. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز VBA أدناه في ملف رمز نافذة.

كود فبا: إخفاء أو إظهار زر الأمر بناءً على قيمة الخلية المحددة

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود ، الخلايا (1 ، 1), 1 و CommandButton1 أشر إلى أنه سيتم إخفاء CommandButton1 عندما تحتوي الخلية A1 على الرقم 1 ، وعرضه إذا كانت الخلية A1 تحتوي على أي قيم أخرى باستثناء الرقم 1. انظر أدناه لقطة الشاشة. ويمكنك تغييرها بناءً على حاجتك.


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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (13)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
hola que tal، tengo un boton con macro، que me devuelve a una hoja "menu"، pero no quiero que ese boton aparezca en la hoja menu como le puedo hacer؟ '


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

Dónde debería mostrarse؟
- Uno es la hoja de menú
- El botón está Integrado en una hoja diferente ، أليس كذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أدخلت هذا الرمز وأدخلت اسم الزر الخاص بي (إنهاء) ، وقمت بالإشارة إلى الخلية المرجعية (P11 - 16 ، 11) ولكن في كل مرة أقوم فيها بإجراء تغيير على الخلية المرجعية (P11) أحصل على خطأ تجميع ويبرز قسم ".Finish" من الكود ، والذي يعني على ما يبدو أن اسم الزر الذي أدخلته "Finish" غير موجود في ورقة العمل. لقد أكدت ، في منطقة القائمة المنسدلة على يسار شريط الصيغة وفي منطقة "تحديد الاسم" في علامة تبويب الصيغة ، أن اسم الزر الخاص بي هو في الواقع "إنهاء" ، لكنه لا يزال لا يعمل.


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

أنا جديد في VBA ، لقد وضعت هذا الرمز في برنامج Excel جديد. CommnadButton واحد ، على الورقة 1 لكن الكود لا يعمل.

هل علي أن أفعل أي شيء قبل هذا؟


شكرا مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
Application.ScreenUpdating = خطأ
إذا كانت الخلايا (1 ، 1) .Value <> "1" ثم
أنا ، الأشكال ("الزر 1") ، المرئي = صحيح
آخر
الأشكال ("الزر 1") تنتهي إذا
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لسبب ما بعد انتقال الزر من الوضع غير المرئي إلى المرئي ، لم يعد الزر يعمل. إذا قمت بالتبديل + F11 في الكود ، حدد الفرع XXX () وقم بتشغيله باستخدام F5 ، فإن الكود يعمل مع الماكرو الخاص بي. لماذا لا يعمل عند النقر فوق الزر بعد الآن؟ في الخصائص ، تم تعيين "Enabled" على "true"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا، el codigo esta bien؟ es que no me funciona y ya intente varias cosas para que funcione y nana، ayuda por favour es que lo necesito para algo important: c
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا!
Alguien sabe como puedo hacer para que el boton comando aparezca o desaparezca segun información de otra hoja؟
El ejemplo está muy bueno، pero las celdas son de la misma hoja donde esta el boton. Yo necesito ocultar un boton segun info de otra hoja.

بفضل!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
لنفترض أن القيمة المستخدمة لعرض أو إخفاء زر الأمر يقع في A1 of Sheet1، ويوجد زر الأوامر في Sheet2. يرجى فتح الورقة 1 ، والنقر بزر الماوس الأيمن فوق علامة تبويب الورقة والنقر عرض الرمز. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات في النافذة ، انسخ رمز فبا التالي في نافذة الورقة 1 (الرمز) ، ثم اضغط على قديم + F11 مفاتيح لإغلاقه.
ملاحظة: الرجاء تغيير الخلايا (1، 1) "1"و"Sheet2" ما تحتاج إليه.
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Sheets("Sheet2").CommandButton1.Visible = True
    Else
        Sheets("Sheet2").CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
وظيفة Der Code هي أولية.
Ich würde nur gerne den Button bei jeder 0 und leeren Zelle ausblenden lassen. Irgendwie bekomme ich es nicht hin. يمكنك العثور على معلومات مفيدة. Könnten Sie mir bitte weiter helfen danke
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستوف ،

آسف لا أفهم ما تعنيه. للتوضيح ، يرجى إرفاق نموذج ملف أو لقطة شاشة ببياناتك والنتائج المرجوة.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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