انتقل إلى المحتوى الرئيسي

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

لنفترض أن لديك مصنفًا كبيرًا يحتوي على مئات أوراق العمل ، والآن تحتاج إلى تطبيق 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations