تحديد عدد صفوف على اساس عدد طلاب

[أبو أنس80]

بسم الله الرحمن الرحيم

تحديد عدد صفوف على اساس عدد طلاب

 

يا اخوان ممكن تحديد عدد صفوف كل شيت من بوك

واحد على اساس عدد طلاب كما هي من قائمة منسدلة

 

 

عدد صفوف عدد طلاب.zip

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب الكود التالى لتنفيذ ما تريد

Sub ragab()
For i = 1 To Sheets.Count
    Sheets(i).Cells.EntireRow.Hidden = False
    x = Sheet1.Range("A4") + 1
    Sheets(i).Range("a" & x & ":a" & Rows.Count).EntireRow.Hidden = True
Next
End Sub

اخفاء صفوف حسب عدد الطلاب.rar

[محمود_الشريف]

أخى فى الله

الأستاذ القدير // رجب جاويش

بارك الله فيكم

(( إطلالتكم دائما مميزة وتنير المنتدى ))

وتقبل منى وافر الاحترام والتقدير

[hafez81]

ممتاز و بارك الله فيكم

[رجب جاويش]

أخى الحبيب / محمود الشريف

شكرا جزيلا أخى الحبيب على هذه الكلمات الرقيقة

وجزاك الله كل خير

[رجب جاويش]

أخى الفاضل /hafez81

جزاك الله كل خير

[قصي]

الاستاذ المحترم رجب

رائع جزاك الله خيرا

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

اظهاره والباقي مخفي

[قصي]

ممكن لو تكرمت شرح الكود

[رجب جاويش]

السلام عليكم

أخى الفاضل / قصي

جزاك الله كل خير

تم عمل ما تريد والغاء القائمة المنسدلة

 

اخفاء صفوف حسب عدد الطلاب2.rar

[رجب جاويش]

وبالنسبة لشرح الكود

For i = 1 To Sheets.Count

السطر السابق يمثل حلقة تكرارية تبدأ من رقم 1 حتى عدد الشيتات الموجودة فى الملف

Sheets(i).Cells.EntireRow.Hidden = False

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

x = Sheet1.Range("A4") + 1

السطر السابق وضع قيمة x  تساوى الرقم الموجود فى الخلية A4 ونزيد واحد حتى يبدأ الإخفاء من السطر التالى للرقم الذى نحدده

Sheets(i).Range("a" & x & ":a" & Rows.Count).EntireRow.Hidden = True

السطر السابق يخفى جميع الصفوف من الصف المساوى للرقم x  حتى آخر صف

[krimo145]

بالتوفيق اخي

[قصي]

استاذ رجب جزاك الله كل خير وبارك لك

[أبو أنس80]

جزاك الله خير اخي

[قصي]

سيزداد حسنا لو تم اختيار صفحات معينه الصفحات ليست مرتبه مش ورا بعض   ... يتم فيها الكود