اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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
  • Like 1
رابط هذا التعليق
شارك

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

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

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

مثال.rar

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

 

اخى الفاضل

 

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

 

تحياتي :fff: 

مثال.rar

رابط هذا التعليق
شارك

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

 

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

 

تحياتي :fff: 

رابط هذا التعليق
شارك

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

مثال.rar

رابط هذا التعليق
شارك

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

 

حبيبي أ.على 

 

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

 

تحياتي :fff: 

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

 

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

 

أخى الفاضل

 

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

 

تحياتي :fff: 

مثال.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information