عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 اخي ايهاب جرب هذا الكود Sub OFFICNA() For i = 1 To Sheets.Count If Sheets(i).Visible = False Then Sheets(i).Visible = True End If Next i End Sub ابواحمد
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 وهذا كود آخر لاظهار الورق المخفي حتى لو كان الاخفاء بالكود 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
أيهاب ممدوح قام بنشر سبتمبر 14, 2011 الكاتب قام بنشر سبتمبر 14, 2011 كم انت رائع يا اخي ابو احمد فمجرد ان رايت اسمك من ضمن المتواجدين جاي لدي شعور باليقين ان الطلب الذي طلبه قد تم منك والحمد لله تم بنجاح فكم انت رائع يا ابو احمد كم انت كبير ايها المنتدي العظيم لتفرز لنا خير شباب الامه العربيه الله المستعان والموفق دائما اخوك ايهاب
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 اخي ايهاب لا داعي للشكر فكما قلت وأقول ما نقدمه هو رد جميل لما قدمه المنتدى لنا من معرفة وشكراً لك على كلامك الجميل ابو احمد
أيهاب ممدوح قام بنشر سبتمبر 14, 2011 الكاتب قام بنشر سبتمبر 14, 2011 اخي احمد هذا حقق انت وجميع الخبراء في المنتدي هل من الممكن كود يقوم بالاظهاء والاخفاء ايضا
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 هل من الممكن كود يقوم بالاظهاء والاخفاء ايضا اخي ايهاب وضح اكثر كيف يتم الاظهار ليتم الاخفاء مجدداً ام هل تريد زر للاظهار وزر للاخفاء (اوراق محددة) ابواحمد
أيهاب ممدوح قام بنشر سبتمبر 14, 2011 الكاتب قام بنشر سبتمبر 14, 2011 يوجد اوراق مخفيه كثيرة وحتي نقوم بالعمل عليها كلها مرة واحد نقوم باظهارها وبعد الانتهاء من العمل نقوم باخفاء جميع الاوراق مرة اخري المطلوب زر مرتبط بكود يظهر الاوراق وبعد الانتهاء نضغط علي الزر مرة اخري ليخفيي الاوراق
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 اخي ايهاب هل تقصد بان الكود يقوم بإخفاء الاوراق ماعداء الرئيسية ويقوم بإظهار الكل بإنتظر الاجابة ابواحمد
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 (معدل) هذا ما اقصده إذاً خذ المرفق وإدعي لي ابواحمد أوفيسنا.rar تم تعديل سبتمبر 14, 2011 بواسطه عبدالله المجرب
أيهاب ممدوح قام بنشر سبتمبر 14, 2011 الكاتب قام بنشر سبتمبر 14, 2011 بارك الله لك ووفقك لخير دائما ويرزقك جنات النعيم
أيهاب ممدوح قام بنشر سبتمبر 14, 2011 الكاتب قام بنشر سبتمبر 14, 2011 اخي عبد الله لقد قمت بنقل الكود للملف الخاص بي ولكن عند الضغط علي الزر بقوم باخفاء جميع الاوراق حتي الورقه الرئيسيه الذي هو موجود بها ويظهر فقط ورقه اخري ليست الرئيسيه فما هي الضوابط التي اعمل عليها لكي يعمل الكود بطريقه صحيحه معي بعد النقل للملف الجديد شكرا
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 اخي ايهاب ارجو منك ارسال صورة مثل هذه وسأقوم بالتعديل على الكود * الكود يعتمد على الارقام الافتراضية لاوراق العمل ولا يعتمد على الاسم والورقة المستثناه من الاخفاء هي الورقة ذات التسلسل 1 ابواحمد أوفيسنا.bmp
أيهاب ممدوح قام بنشر سبتمبر 14, 2011 الكاتب قام بنشر سبتمبر 14, 2011 لقد قمت بتحريك الورقه الرئيسيه الي اول ورقه وتم عمل الكود بنجاح لكني اريد ان اري الحل الذي سوف تقوم به شكرا
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 لقد قمت بتحريك الورقه الرئيسيه الي اول ورقه وتم عمل الكود بنجاح ممتاز لكني اريد ان اري الحل الذي سوف تقوم به شكرا وخذ الملف وشاهد ما قمت بعمله واي سؤال انا حاضر ابواحمد أوفيسنا.rar
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 للعلم اخي ايهاب انك اذا قمت بتحريك الورقة فسيحدث خلل لان الكود قائم على استثناء الورقة ذات التسلسل 15 امنى ان تكون قد فهمت الية عمل الكود والله الموفق ابواحمد
ياسر الحافظ قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 اخي / الاستاذ " ابو احمد " عبد الله المجرب : حتى كلمات الشكر والامتنان ماعادت تكفي وفقــــــــــــــــــــــــــــــك الل ابو الحارث
عبدالله المجرب قام بنشر سبتمبر 14, 2011 قام بنشر سبتمبر 14, 2011 حتى كلمات الشكر والامتنان ماعادت تكفي اخي ابو الحارث وجودك في الموضوع بحد ذاته شرف كبير لي يا صاحب الاخلاق الرفيعة فشكراً لدعمك الدائم وتشجيعك المتواصل ابواحمد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.