اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

أخواتى الافاضل اتمنى لو أجد أجابة على سؤالى

اريد ان أعمل شيت بة ازرار للتنقل بين صفحات فيل الأكسل مع أخفاء باقى الصفحات بمعنى أخر

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

شكراً

قام بنشر

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

اما الاوراق فيمكن اخفاؤها من فائمة الادوات ثم خيارات ثم اظهار تبويب الاوراق ازل التاشير

ارجوا انني وضحت المطلوب

قام بنشر

كلام سليم

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

قام بنشر

كلام سليم

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

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

قام بنشر

السلام عليكم

بعد اذن الاخوة الافاضل

تفضل المرفق

صفحة واجهة دخول للوراق

اضغط دبل كليك على الخلايا الملونه

وعند الرجوع للواجهه تختفي الورقه

هذه عن طريق الاكواد

صفحة تنقل.rar

قام بنشر

السلام عليكم

بعد اذن الاخوة الافاضل

تفضل المرفق

صفحة واجهة دخول للوراق

اضغط دبل كليك على الخلايا الملونه

وعند الرجوع للواجهه تختفي الورقه

هذه عن طريق الاكواد

اخي العيدروس فكرة ممتازة

اليك هذا الملف نفس الملف به بعض الاضافة

windows-1256__صفحة تنقل.rar

قام بنشر

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

الاخ حســـام

بالإضـــافة إلى حل الإخوة إليك حل آخر فأختار ماتريد

بإمكانك إضافة اي عدد من الصفحات فتظهر تلقائي في الكومبو بكس والخاص بفورم الذهاب إلى الصفحة

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

إخفاء كافة الصفحات والتنقل بينها برقمها فقط.rar

  • 4 months later...
قام بنشر

السلام عليكم /

الاساتذة الكرام / هل يمكن تطبيق التنقل بين الصفحات بالاكواد على 40 صفحة .

آمل منكم مساعدتي فأنا بحاجة لهذه الطريقة

يمكن ذلك

ولو تلحظ حل الاخ KHMB انه لو يتم اضافة صفحات جديدة انه يتم ادراجها ضمن الاوراق الموجودة مسبقا

قام بنشر

الاخوة الزملاء

أراء رائعة وكل عام وانتم بخير

بعد اذنكم اضافة اوراق عمل اى عدد تحدده او مسح ورقة عمل او تسمية من زميل عزيز عليه من المنتدى مع بعض التعديلات

مجدى يونس

Last Add Remove قائمة منسدله.rar

قام بنشر (معدل)

السلام عليكم

جزاك الله خيرا أستاذي ، ولكن أنا بحاجة لطريقة الاستاذ alidroos .

عند إضافة صفحات واستخدام الطريقة لا يعمل الكود .

تم تعديل بواسطه باسنت العمري
قام بنشر

اخوانى الافاضل

كنت قد طرحت فورم بسيط يمكن التنقل به عبر الاوراق

والكمبوبكس تقبل الكتابة داخلها وتضيف منها اوراق

شكرا لكم

تحياتى

سعد عابد

التنقل والاضاف.rar

قام بنشر

السلام عليكم

الاخت الفاضلة باسنت العمري

تم عمل اللازم على ملف العيدروس

تم تعديل الكود ليقوم بإخفاء جميع الاوراق حتى المضاف منها كما ان اي ورقة جديدة تضتف الى الملف ستجدها في الورقة الاولى وبالضغط عليها ستنقلك الى هذه الورقة.

جرب واعلمني هل هذا هو المطلوب

صفحة تنقل.rar

قام بنشر (معدل)

أستاذي الكريم / شاكرة ومقدرة لك مساعدتي وبارك الله فيك هذا هو المطلوب ،

ولكن عند تغيير الخلية من مكانها لاعادة الترتيب فإن الامر لا يعمل .

صفحة تنقل .rar

تم تعديل بواسطه باسنت العمري
قام بنشر

الاخت الفاضلة بسنت العمري

امسحي هذ السطر من الكود


If Target.Row <> 4 Then Exit Sub

ليصبح الكود هكذا

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True

    If Target.Value <> "" Then

    x = Target.Value

    Sheets(x).Visible = True

    Sheets(x).Select

	 End If

End Sub

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