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

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

قام بنشر

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

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

 

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

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

 

 

عدد صفوف عدد طلاب.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

  • Like 2
قام بنشر

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

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

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

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

قام بنشر

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

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  حتى آخر صف

  • Like 1

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