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

كيفية تأمين موضع الورقة ليكون مرئيًا دائمًا في Excel Workbook؟

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

موضع ورقة قفل المستند 1 دوك السهم الأيمن موضع ورقة قفل المستند 2

وضع قفل الورقة مع VBA


وضع قفل الورقة مع VBA

هنا أقدم لك رمزين من رموز VBA للتعامل مع هذه الوظيفة.

القفز إلى الورقة

1. صحافة ALT + F11 مفاتيح لتمكين مايكروسوفت فيجوال بيسك لويندوز.

2. انقر إدراج > وحدة، ثم انسخ الكود أدناه والصقه في البرنامج النصي.

فبا: انتقل إلى الورقة الرئيسية

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

ملاحظات: في شريحة الكود الأوراق ("الرئيسية").تنشيط، يمكنك تغيير الماجستير إلى أي اسم ورقة ما تحتاج إليه.

3. ثم احفظ هذا الرمز، ثم ارجع إلى المصنف، وانقر فوق المطور > وحدات الماكرو.
موضع ورقة قفل المستند 3

4. في ال الماكرو في مربع الحوار، حدد الاسم الرمزي الذي أدخلته للتو، وانقر فوق مزيد من الخيارات، أنشئ اختصارًا لتشغيل هذا الرمز.
موضع ورقة قفل المستند 4

5. انقر OK وإغلاق الماكرو الحوار.

من الآن، أثناء الضغط على الاختصار الذي قمت بإنشائه، سيتم تنشيط الورقة الرئيسية مهما كانت الورقة التي تستخدمها.

احتفظ بالورقة دائمًا في المقدمة

1. صحافة ALT + F11 مفاتيح لتمكين مايكروسوفت فيجوال بيسك لويندوز.

2. نقرتين متتاليتين ThisWorkbook من مشروع- VBAProject الجزء، ونسخ ولصق التعليمات البرمجية أدناه إلى البرنامج النصي.

VBA: احتفظ بالورقة دائمًا في المقدمة

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

موضع ورقة قفل المستند 5

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

موضع ورقة قفل المستند 6 دوك السهم الأيمن موضع ورقة قفل المستند 7

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

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations