كيفية تحديد جميع الأوراق باستثناء واحدة في Excel؟

يمكننا استخدام ميزة تحديد جميع الأوراق لتحديد جميع علامات أوراق العمل في المصنف، ولكن هل لديك أي أفكار لتحديد جميع الأوراق باستثناء واحدة معينة في Excel؟

تحديد جميع علامات الأوراق باستثناء واحدة محددة باستخدام كود VBA

تحديد جميع علامات الأوراق باستثناء واحدة محددة باستخدام كود VBA

لتحديد جميع العلامات باستثناء واحدة محددة، يمكن أن يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11، ثم سيتم فتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تحديد جميع الأوراق باستثناء واحدة:

Sub selectallbutone()
'Updateby Extendoffice
Dim x As Long
Sheet1.Select
For x = 2 To ThisWorkbook.Sheets.Count
    If Sheets(x).Name <> "Sheet5" Then Sheets(x).Select Replace:=False
Next x
End Sub

ملاحظة: في الكود أعلاه، Sheet5 هو اسم الورقة التي تريد استبعادها عند تحديد جميع الأوراق، يرجى تغييره حسب حاجتك.

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

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!