تحديد الأوراق التي يجب أن تظهر في قائمة الانتقال بين أوراق الملف

[ابو تميم]

أسعد الله أوقاتكم جميعا

المطلوب في هذا الملف المرفق هو تحديد الصفحات التي يجب أن تظهر في قائمة الانتقال إلى ..

أي أنه عندما نضغط على زر الانتقال إلى .. تظهر لدينا قائمة تحتوي على جميع الأوراق الموجودة في الملف والمطلوب هو تحديد أوراق معية هي المطلوب ظهورها في القائمة ولا أرغب بظهور باقي الاوراق في القائمة

Book1.rar

[ابو اسامة العينبوسي]

salmu alikum

try this brother

or tell me what sheets do u want to view in the listbox Etc. sheet1 or sheet2......

123.rar

تم تعديل فبراير 17, 2012 بواسطه ابو اسامة العينبوسي

[mhrrd]

جزاك الله خيرا

لماذا الغيبه يا اخي الفاضل

[ابو تميم]

أخي الكريم ابو اسامة العينبوسي

شكرا جزيلا لك على هذه الطريقة الجميلة

ولكني أريد أن يكون التنقل بين الصفحات بالطريقة التي طرحتها بداية في الملف المرفق ولا أريد أن أختار من فورم

ولك جزيل الشكر مرة أخرى

Book1.rar

[عبدالله المجرب]

السلام عليكم

اعتقد ان افضل طريقة هي طريقة الاستاذ ابواسامة

[ابو تميم]

شكرا للجميع

أعتقد أن السؤال غير واضح كفاية

المطلوب بالضبط هو أنني أريد أن أضع زر الانتقال في جميع الأوراق الموجودة في المصنف ولكن الأوراق التي يجب الانتقال إليها هي بعض الأوراق الرئيسية فقط أما باقي الأوراق فهر عبارة عن أوراق فرعية ليس بالضرورة الانتقال إليها لذلك لا أريدها أن تظهر في قائمة التنقل

الأمور التي تم شرحها سابقا هي لتحديد الأوراق المطلوب ظهورها في المصنف وسؤالي هو تحديد الأوراق المطلوب ظهورها في قائمة التنقل داخل المصنف وهي الاوراق الرئيسية فقط

[ابو اسامة العينبوسي]

السلام عليكم

حدد اخي الاوراق التى تريد ان تظهر و نجعلها لك كما تحب

[علي فاهم]

[ابو تميم]

شكرا أخي أبو أسامة

المطلوب في هذا الملف هو تحديد الصفحات التي يجب أن تظهر في قائمة الانتقال إلى ..

أي أنه عندما نضغط على زر الانتقال إلى .. تظهر لدينا قائمة تحتوي على جميع الأوراق الموجودة في الملف والمطلوب هو تحديد أوراق معينة هي المطلوب ظهورها في القائمة ولا أرغب بظهور باقي الاوراق في القائمة

الصفحات المطلوب ظهورها في قائمة التنقل هي :

الصفحة الرئيسية

البيانات

التصفية

أي أنني أريد أن أنتقل إلى هذه الصفحات فقط لأنها هي الأساس وعندما أكون في أي صفحة أخرى مثل الرابط الأول ..... إلى ....... 6 فأنا بحاجة إلى الاختيار من إحدى القوائم الرئيسية للعودة إليها والقوائم الرئيسية هي المذكورة أعلاه فقط وباقي الصفحات \ الورقات هي أوراق فرعية ليس لي حاجة للعودة إليها ولذلك لا أحتاج إلى وجودها في القائمة عند الاختيار

والقائمة التي تنتج عندي عندما أضغط على زر الانتقال إلى ... يظهر عندي في القائمة جميع الأوراق في المصنف ابتداء من الرئيسية إلى الورقة 6

والمطلوب في القائمة هو

الصفحة الرئيسية

البيانات

التصفية

الملف المرفق يبين ذلك

Book1.rar

[يحيى حسين]

السلام عليكم و رحمة الله

الاخ الحبيب ابو اسامة

روائعك كما هي

إشتقنالك

[يحيى حسين]

السلام عليكم و رحمة الله

أخي يمكنك اخفاء جميع الصفحات قبل تفعيل كودك بهدف عدم إظهارها في القائمة

جرب هذا الكود

Sub GO_TO()

Dim ShArr()

Dim ws As Worksheet

On Error Resume Next

ShArr = Array("الصفحة الرئيسية", "البيانات", "التصفية")

For Each ws In Sheets

    If Not IsNumeric(Application.WorksheetFunction.Match(ws.Name, ShArr, 0)) Then ws.Visible = xlSheetHidden

Next ws

  Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute

  If Err.Number > 0 Then

    Err.Clear

    Application.CommandBars("Workbook Tabs").ShowPopup

  End If

  On Error GoTo 0

End Sub

[ابو تميم]

كود رائع جدا أخي يحيى حسن ولكنه يقوم بإخفاء باقي الأوراق والمطلوب أن تبقى الأوراق جميعها ظاهرة وذلك لوجود ارتباط تشعبي يربط الاوراق الفرعية بالأوراق الرئيسية

أي أنه يتم الانتقال إلى الورقة الفرعية من خلال ارتباط تشعبي داخل الورقة الرئيسية

ولك جزيل الشكر

[يحيى حسين]

يمكن استخدام كود ثاني لإظهار الصفحات عند التوجهه لها و من ثم اعادة اخفائها عند الانتهاء منها

[عبدالله المجرب]

السلام عليكم

اخي الفاضل

سختفي الاوراق وبعد اختيار الورقة الرئيسية التي تريد ستظهر الاوراق

جرب الكود بعد التعديل

Sub GO_TO()

On Error Resume Next

For i = 4 To Sheets.Count

Sheets(i).Visible = 2

Next

  Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute

  If Err.Number > 0 Then

    Err.Clear

    Application.CommandBars("Workbook Tabs").ShowPopup

  End If

  On Error GoTo 0

  For i = 4 To Sheets.Count

Sheets(i).Visible = -1

Next

End Sub

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

جزاكم الله كل الخير وجنبكم كل الشر

أستاذي أبا أسامه

أستاذي يحي حسين

أستادي أبا أحمد (عبد الله المجرب)

أبو أنس

[ابو تميم]

جزاك الله خيرا أخي اا عبدالله المجرب اا

فعلا كود ممتاز ومميز جدا وفعال

وقمت بتجربته وهو يعمل بشكل فعال ولكن في المصنفات التي تحتوي على عدد محدود من الاوراق الفرعية ولكنه لم يفلح في ملفي لأنه يحتوي على 530 ورقة فرعية وهو يأخذ وقتا من الزمن لتنفيذ المطلوب

لذلك قمت بعمل قائمة تنقل أخرى باستخدام VB وقمت بتنفيذها على المف

بالنسبة إلى هذا السؤال تمت الاجابة عليه بشكل فعال من الأخ اا عبدالله المجرب اا جزاه الله خيرا

انتهى السؤال

شكرا للجميع على التعاون وجزاكم الله كل الخير