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

كود اظهار الورق المخفي


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

اخي ايهاب جرب هذا الكود


Sub OFFICNA()

For i = 1 To Sheets.Count

If Sheets(i).Visible = False Then

Sheets(i).Visible = True

End If

Next i

End Sub

ابواحمد

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

وهذا كود آخر لاظهار الورق المخفي حتى لو كان الاخفاء بالكود


Sub OFFICNA1()

For i = 1 To Sheets.Count

If Sheets(i).Visible = 0 Then

Sheets(i).Visible = 1

End If

If Sheets(i).Visible = 2 Then

Sheets(i).Visible = 1

End If

Next i

End Sub

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

كم انت رائع يا اخي ابو احمد فمجرد ان رايت اسمك من ضمن المتواجدين جاي لدي شعور باليقين ان الطلب الذي طلبه قد تم منك والحمد لله تم بنجاح

فكم انت رائع يا ابو احمد

كم انت كبير ايها المنتدي العظيم لتفرز لنا خير شباب الامه العربيه

الله المستعان والموفق دائما

اخوك ايهاب

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

اخي ايهاب

لا داعي للشكر

فكما قلت وأقول ما نقدمه هو رد جميل لما قدمه المنتدى لنا من معرفة

وشكراً لك على كلامك الجميل

ابو احمد

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

هل من الممكن كود يقوم بالاظهاء والاخفاء ايضا

اخي ايهاب

وضح اكثر

كيف يتم الاظهار ليتم الاخفاء مجدداً

ام هل تريد زر للاظهار وزر للاخفاء (اوراق محددة)

ابواحمد

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

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

المطلوب زر مرتبط بكود يظهر الاوراق وبعد الانتهاء نضغط علي الزر مرة اخري ليخفيي الاوراق

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

اخي ايهاب

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

ويقوم بإظهار الكل

بإنتظر الاجابة

ابواحمد

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

هذا ما اقصده

إذاً خذ المرفق وإدعي لي

ابواحمد

779646062.gif

تم تعديل بواسطه عبدالله المجرب
رابط هذا التعليق
شارك

اخي عبد الله

لقد قمت بنقل الكود للملف الخاص بي ولكن عند الضغط علي الزر بقوم باخفاء جميع الاوراق حتي الورقه الرئيسيه الذي هو موجود بها ويظهر فقط ورقه اخري ليست الرئيسيه

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

شكرا

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

اخي ايهاب ارجو منك ارسال صورة مثل هذه وسأقوم بالتعديل على الكود

* الكود يعتمد على الارقام الافتراضية لاوراق العمل ولا يعتمد على الاسم والورقة المستثناه من الاخفاء هي الورقة ذات التسلسل 1

ابواحمد

أوفيسنا.bmp

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

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

ممتاز

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

شكرا

وخذ الملف وشاهد ما قمت بعمله

واي سؤال انا حاضر

ابواحمد

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

للعلم اخي ايهاب انك اذا قمت بتحريك الورقة فسيحدث خلل لان الكود قائم على استثناء الورقة ذات التسلسل 15

امنى ان تكون قد فهمت الية عمل الكود

والله الموفق

ابواحمد

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

حتى كلمات الشكر والامتنان ماعادت تكفي

اخي ابو الحارث

وجودك في الموضوع بحد ذاته شرف كبير لي يا صاحب الاخلاق الرفيعة

فشكراً لدعمك الدائم وتشجيعك المتواصل

ابواحمد

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information