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

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

لنفترض أن لديك مصنفًا يحتوي على أوراق عمل متعددة ، فهناك ورقة عمل تسمى Main-sheet كأول علامة تبويب في المصنف. والآن ، تريد محاولة قفل أو تجميد علامة تبويب الورقة هذه لجعلها مرئية دائمًا حتى عند التمرير عبر عدد من أوراق العمل. في الواقع ، لا توجد طريقة مباشرة لتجميد علامة التبويب ، ولكن يمكنك استخدام حل بديل للتعامل مع هذه المشكلة.

قفل أو تجميد علامة تبويب ورقة عمل معينة برمز VBA


السهم الأزرق الحق فقاعة قفل أو تجميد علامة تبويب ورقة عمل معينة برمز VBA

في Excel ، يمكننا تطبيق رمز VBA التالي لجعل ورقة العمل المحددة دائمًا قبل علامة تبويب ورقة العمل الحالية التي تم النقر عليها ، بحيث يمكنك دائمًا رؤية ورقة العمل هذه عند التمرير عبر أي علامات تبويب أوراق أخرى. الرجاء القيام بما يلي:

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

2. ثم اختر ThisWorkbook من اليسار مستكشف المشروع الجزء ، انقر نقرًا مزدوجًا فوقه لفتح ملف وحدة، ثم انسخ والصق رمز فبا التالي في الوحدة النمطية الفارغة:

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Update by Extendoffice
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Main-sheet").Index Then
    Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Main-sheet").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

ورقة تجميد doc-tab-1

3. ثم احفظ هذا الرمز وأغلقه ، الآن ، عند النقر فوق أي من علامة تبويب ورقة العمل الخاصة بك ، ستكون ورقة العمل المحددة هذه دائمًا في مقدمة علامة تبويب الورقة التي تم النقر فوقها ، انظر لقطات الشاشة:

ورقة تجميد doc-tab-2
-1
ورقة تجميد doc-tab-3

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


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

كيفية تجميد الأجزاء في Excel 2010؟

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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أستخدم VBA ، لا يمكنني نسخ البيانات من Main-Sheet إلى ورقة أخرى. الرجاء مساعدتي في إصلاح هذا الخطأ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ها ها ها ها. بكل صدق! هل وجدت حلا لهذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعذر الحصول على الكود الخاص بك للعمل ، ولكن هذا الرمز قد نجح :) Private Sub Workbook_SheetActivate (ByVal Sh As Object) Dim sc As Long 'count of sheets Dim NewPos As Long' index of serlected sheet Application.EnableEvents = False Application.ScreenUpdating = False إذا كان ActiveSheet.Index 1 ثم sc = Sheets.Count NewPos = ActiveSheet.Index For i = 2 إلى NewPos - 1 Sheets (2). انتقل بعد: = Sheets (sc) Next i Sheets (1). تنشيط الأوراق (2). تنشيط End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن إنشاء واحد مع عدة حجج؟ بدلاً من مجرد نقل الورقة الرئيسية إلى مقدمة المكان الذي تعمل فيه ، هل من الممكن تحريك ثلاث علامات تبويب أمام ما تعمل عليه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم ، هذا ممكن ، عليك فقط إضافة المزيد من الوسائط إلى جملة if باستخدام "AND" مثل IF Application.ActiveSheet.Index Application.Sheets ("Main-sheet"). Index AND Application.ActiveSheet.Index Application. Sheets ("Other-Main-sheet"). فهرس وهكذا ... ثم Application.Sheets ("Main-sheet"). الانتقال قبل: = Application.Sheets (Application.Sheets ("Other-Main-sheet") .Index) Application.Sheets ("Main-sheet"). تنشيط Application.Sheets ("Other-Main-sheet") الانتقال قبل: = Application.Sheets (Application.ActiveSheet.Index) Application.Sheets ("Other-Main -sheet "). تنشيط Sh.Activate سيؤدي هذا إلى وضع الورقة الرئيسية ، ثم الورقة الرئيسية الأخرى أمام الورقة النشطة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هذه vba ورقة Excel الخاصة بي ليست متجمدة ، من فضلك أعطني الحل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز يعمل بشكل جيد. المشكلة الوحيدة هي ... إذا أغلقنا الملف وفتحناه مرة أخرى ، فسيتم إيقاف تشغيله.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] هذا الرمز يعمل بشكل جيد. المشكلة الوحيدة هي ... إذا أغلقنا الملف وفتحناه مرة أخرى ، فسيتم إيقاف تشغيله.بواسطة Sangs[/ quote] حاول حفظ المستند كمصنف ممكن بماكرو. أعتقد أنه يجب أن يعمل بشكل جيد بهذه الطريقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما أوضح Thuyen منذ عامين ، لا يمكنك نسخ البيانات بين الأوراق أثناء تنشيط هذا الرمز. علاوة على ذلك ، فإن الكود معقد بلا داع. يتم تمرير الورقة التي تقوم بتنشيطها إلى الإجراء كمعامل "Sh". هذا يجعل المكالمات المتكررة إلى "ActiveSheet" غير ضرورية ، ويمكن أن يسبب مشاكل لشخص يحاول تعديل الكود ولكن ليس لديه خبرة كبيرة.

هذه هي إصداراتي التي تصحح هذه المشكلات ، وتوضح أيضًا كيفية إضافة ورقة "رئيسية" ثانية (على غرار ما نشره دزينجاي):
-------------------------------------------------- ---------------

`` هذان السطران غير ضروريين إذا كنت تستخدم أسماء رموز الأوراق ، والتي أوصي بها.
تعيين shtMain1 = أوراق العمل ("Main-Sheet-1")
تعيين shtMain2 = أوراق العمل ("Main-Sheet-2")

إذا كان Application.CutCopyMode = False ثم
إذا كان Sh.Index <> shtMain1.Index و Sh.Index <> shtMain2.Index ثم
shtMain1.Move قبل: = sh
shtMain2.Move قبل: = sh
Sh.Activate
إنهاء حالة
إنهاء حالة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
chăng đc gi cả
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

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