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

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

قام بنشر

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

 

اخواني لدي ملف اكسيل مكون من 10 صفحات

الصفحة الاولى هي الرئيسية وبها ازرار مرتبطة ارتباط تشعبي لباقي الصفحات

 

س / هل اقدر اخفي جميع الصفحات بستثنى الصفحة الاولى مع عمل الارتباطات التشعبية

 

اتمنئ واضحة الفكرة

قام بنشر

برجاء اخي الكريم

ارفاق ملف للعمل عليه

وان شاء  الله  ستجد الحل كما تريد

تقبل خالص تحياتي

قام بنشر

وبرجاء الاطلاع علي الرابط التالي

لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع

http://www.officena....showtopic=41520

 

==============

الادارة

==============

قام بنشر

السلام عليكم

اخ حمادة الرابط يودي الى نفس الصفحة

بشان تغير الاسم الى العربية باذن الله رح اغيرة

 

اخ سليم الي ارسلته نفس الفكرة الي ابحث عنها

اتمنى تعلمني كيف بتفصيل لان عندي اعمل كثيرة تحتاج الى التطبيق

 

سارفق مثال

نموذج.zip

قام بنشر

تم التطبيق بنجاح

 

بس فيه مشكلة ان الصفحة الريسية فيها روابط تشعبية لصفحات اخرى

وعند اخفاء الصفحات لا تعمل الروابط التشعبية في الصفحة الرئيسية

قام بنشر

بعد إذن الأساتذة الأفاضل

إذاا كنت تعمل على ملف الاستاذ سليم 

فعليك بالأتي

اظهار الورقة المراد تغيير اسمها أولا ثم تغيير اسمها  ثم الانتقال للرئيسية وتغيير اسم الرابط الموصل لها وليس العكس

ويجب أن يكون الاسم في الرئيسية مطابق لاسم الورقة الجديد

قام بنشر

برجاء ارفاق الملف الذي تريد وضع كود الإظهار به وسوف يتم عمل ذلك إن شاء الله

أو يمكنك وضع الصيغة التالية في حدث الضغط على الزر

Sheet.Visible = False

حيث sheet اسم ورقة العمل المراد إظهارها

قام بنشر

بارك الله فيك وفي مجهودك

 

ولاكن للاسف اذا استخدمت التنقلات تظهرات الصفحات تحت معاد تختفي

 

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

قام بنشر

السلام عليكم

الشكر واصل لجميع المشاركين ...جزاكم الله خير

 

لاثراء الموضوع

 

يمكنك استخدام هذا الكود لجميع الازرة

فهو يستخدم الاسم الذي على الزر للاستعلام عن اسم الورقة


Sub Kh_Sheets_Go()
On Error Resume Next
Dim Kh_Name As String
Kh_Name = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
With Sheets(Kh_Name)
    .Visible = xlSheetVisible
    .Select
End With
On Error GoTo 0
End Sub

المرفق 2010

نموذج.rar

  • Like 1
قام بنشر

أستاذنا العلامة جزاكم الله خيرا

 

 

 

باقي مشكلة حل التوافق

 

تخرب شكل الملف

علماً استخدم اكسيل 2010

 

هل من حل

  أخي أبو نواف ماذا تقصد ؟

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