تنقل بين اوراق العمل عن طريق الليست بوكس مع اخفاء الباقي

[علي العابد]

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

 

المطلوب كما هو بالعنوان مرفق مثال للتعدبل عليه ارجو من الاخوة الكرام التكرم بالتعديل عليه ولهم جزيل الشكر

مثال.rar

[الجموعي]

السلام عليكم

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

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

Private Sub UserForm_Initialize()
Dim i As Integer
 On Error Resume Next
With ListBox1
 For i = 1 To Sheets.Count
 .AddItem Sheets(i).Name
 Next i
End With
Me.ListBox2.List = Sheets("bb").Range("Q7").Resize(10, 1).Value
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Me.ListBox1.Value = "" Then: Exit Sub
Sheets(ListBox1.Value).Select
End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Me.ListBox2.Value = "" Then: Exit Sub
Sheets(ListBox2.Value).Select
End Sub

[ياسر خليل أبو البراء]

أخي الجموعي ممكن ترفق ملف ..

[الجموعي]

أخي الجموعي ممكن ترفق ملف ..

تفضل الملف أستاذي

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

مثال.rar

[احمد ابوزيزو]

التنقل بين اوراق الملف

تم وضع الكود السابق في الملف المرفق

 

التنقل بين الاوراق.rar

[علي العابد]

شكرا للجميع كما تفضل الاخ الجموعي ان الاوراق تبقى ظاهرة كلها والمطلوب ان لا يكون ظاهر في ملف الاكسل الا الورقة المطلوب فقط

[ibn_egypt]

اخى الفاضل

 

حسب ما فهمت من طلبك .. مرفق ملف لربما هو المطلوب

 

تحياتي  

مثال.rar

[علي العابد]

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

[ibn_egypt]

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

 

اخى الفاضل

 

على افتراض ان أوراق البنوك من شيت 1 الى شيت 5 واوراق العملاء من شيت 6 الى شيت 8 ... تفضل المرفق

 

تحياتي  

مثال.rar

[ibn_egypt]

حل آخر بغض النظر عن ترتيب الشيتات 

 

تحياتي  

مثال.rar

[علي العابد]

لا شك ان الحل الاخير ممتاز وعمل رائع جدا باركك الله عليه ولكن يا ريت لو تحل مشكلة الورقة ما قبل الاخيرة التي تبقى ظاهرة في تبويب الاوراق فلا داعي لوجودها

[ibn_egypt]

لا شك ان الحل الاخير ممتاز وعمل رائع جدا باركك الله عليه ولكن يا ريت لو تحل مشكلة الورقة ما قبل الاخيرة التي تبقى ظاهرة في تبويب الاوراق فلا داعي لوجودها

 

مش فاهم ايه الورقة قبل الأخيرة دي، انت تخفى وتظهر ما تريد من خلال ال ListBoxes الموجودة .. لاتوجد عندي هذه المشكلة 

 

تحياتي  

[علي العابد]

اخي الفاضل اول ما افتح الملف تظهر ورقتان AA  NN    وعندما اختار ورقة XX  تختفي الورقة AA ويبقى ظاهرا XX  NN  يعني باستمرار يظهر بعلامة تبويب الاوراق ورقتان مثل الصورة المرفقة والمفروض ان يظهر بعلامة تبويب الاوراق  الورقة التى اختارها فقط

مثال.rar

[ibn_egypt]

اخي الفاضل اول ما افتح الملف تظهر ورقتان AA  NN    وعندما اختار ورقة XX  تختفي الورقة AA ويبقى ظاهرا XX  NN  يعني باستمرار يظهر بعلامة تبويب الاوراق ورقتان مثل الصورة المرفقة والمفروض ان يظهر بعلامة تبويب الاوراق  الورقة التى اختارها فقط

 

حبيبي أ.على 

 

أنا ما فهمته من كلامك ان هناك مجموعة اوراق خاصة وليكن بالبنوك في ال ListBox1 ومجموعة أخرى من الأوراق خاصة وليكن بالعملاء في ال ListBox2 لذلك فالكود يظهر الورقة التى تختارها من المجموعة الأولى ويخفى باقي اوراق المجموعة ويظهر الورقة التى تختارها من المجموعة الثانية ويخفي باقي أوراق المجموعة والا لماذا نقسم الاوراق على اثنين ListBox اذا كانوا مجموعة واحدة وتريد اختيار واحدة منهم فقط

 

تحياتي  

[علي العابد]

اخي الكريم حفظك الله وجازاك كل خير امن شاء الله الهدف من قسمة الاوراق الى قسمين هي عملية تنظيمية وترتيب افضل للاوراق حيث انه كل مجموعة متشابهة في لست بوكس وثانيا  ان الاوراق عددها اكثر من المثال فلو عملت ليست بوكس واحد سيكون عددها كبير وسيكون البحث عن الورقة المطلوبة اطول وقتا فان امكن  ان تفعلها كان به والا فجزاك الله الف خير واسف لاني غلبتك معي وشكرا لك لتفاعلك معي

[علي العابد]

استاذي الفاضل :

 

ما رأيك في هذا التعديل لمساتك الاخيرة اذا لزم الامر

مثال.rar

[علي العابد]

عزيزي عندما طبقت الكود على برنامجي كان بطئ هل يمكن تسريعه

[ibn_egypt]

استاذي الفاضل :

 

ما رأيك في هذا التعديل لمساتك الاخيرة اذا لزم الامر

 

أخى الفاضل

 

الحمد لله أن وصلت لمبتغاك .. تمت اضافة سطر واحد لمنع اهتزاز الشاشة اثناء الإظهار والإخفاء .. مرفق الملف

 

تحياتي  

مثال.rar