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

كيفية تطبيق أجزاء التجميد / إلغاء التجميد على أوراق عمل متعددة مرة واحدة؟

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

قم بتطبيق Freeze Panes على جميع أوراق العمل مرة واحدة باستخدام كود VBA

قم بتطبيق Unfreeze Panes على جميع أوراق العمل مرة واحدة باستخدام كود VBA

قم بتطبيق تجميد / إلغاء تجميد الأجزاء على جميع أوراق العمل دفعة واحدة بنقرة واحدة باستخدام Kutools for Excel


يمكنك استخدام الكود التالي لتطبيق Freeze Panes على جميع أوراق العمل ، يرجى اتباع الخطوات التالية:

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

2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

كود فبا: قم بتجميد جميع أوراق العمل مرة واحدة في إكسيل

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم تطبيق جميع أوراق العمل مع أجزاء التجميد في نفس الموضع.

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


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

1. قم بتشغيل المصنف الذي تم تطبيق أوراق العمل فيه مع أجزاء التجميد.

2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

كود VBA: قم بإلغاء تجميد جميع أوراق العمل مرة واحدة في Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم إلغاء تجميد جميع أوراق العمل المطبقة مع ألواح التجميد مرة واحدة.


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

ملاحظة:لتطبيق هذا تجميد أجزاء أوراق عمل متعددةأولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

يقوم المستند بتجميد جميع الأوراق 1-1

2. ثم اضغط كوتولس بلس > ورقة العمل > تجميد أجزاء أوراق عمل متعددة، انظر لقطة الشاشة:

3. وبعد ذلك تم تطبيق جميع أوراق العمل الخاصة بك على أجزاء التجميد في نفس موضع الخلية B2.

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

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

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

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

لتطبيق جزء التجميد على الأوراق المحددة ، يرجى استخدام الكود التالي:



تجميد فرعي ()

'تحديث بواسطة Extendoffice

خافت Ws كورقة عمل

خافت xArrName كمتغير

خافت xS

xArrName = Array ("Sheet2"، "Sheet3") "قم بتغيير أسماء الأوراق حسب حاجتك

Application.ScreenUpdating = خطأ

لكل xS في xArrName

تعيين Ws = أوراق العمل (xS)

إذا لم يكن Ws فلا شيء إذن

Ws.Activate

مع Application.ActiveWindow

.FreezePanes = صحيح

انتهت ب

إنهاء حالة

التالى

Application.ScreenUpdating = ترو

نهاية الفرعية



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

هل من الممكن تعديل الماكرو إلى الأوراق التي أحددها في الجزء الرئيسي من خلال النقر فوق أحدهما والضغط على Shift واختيار الأقسام الأخرى؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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