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

اخفاء سطور بناء على شرط


ibra

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

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

جزاكم الله خيرا سلفا لما تقدموه من مجهود اريد طلب لو تفضلتم

في الجدول المرفق اريد اخفاء السطور الفارغة اعتمادا على وجود اسم في خانة الاسم او عدم وجود اسم

ودمتم

جدول.rar

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

تفضل

سلمت الايادي استاذ عادل

وهذه مساهمة لجعل الزر يعمل بحالتين للاخفاء والاظهار

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

If CommandButton1.Caption = "اخفاء الفارغ" Then

For i = 7 To 51

If Cells(i, 33) = "" Then

Cells(i, 33).EntireRow.Hidden = True

End If

Next

CommandButton1.Caption = "اظهار الفارغ"

Else

 CommandButton1.Caption = "اظهار الفارغ"

For i = 7 To 51

If Cells(i, 33) = "" Then

Cells(i, 33).EntireRow.Hidden = False

End If

Next

CommandButton1.Caption = "اخفاء الفارغ"

Application.ScreenUpdating = True

End If

End Sub

استبدل هذا الكود بكود الاستاذ عادل (هو نفس الكود بس تعديل بسيط)

ابواحمد

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

تفضل

أشكركم كل الشكر ولكن إذا اتسعت قلوبكم

أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول

ليصل عدد الصفوف إلى 50 صف بدل 45

وسامحوني إن أثقلت عليكم

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

تفضل

أشكركم كل الشكر ولكن إذا اتسعت قلوبكم

أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول

ليصل عدد الصفوف إلى 50 صف بدل 45

وسامحوني إن أثقلت عليكم

اخي اذا اردت زيادة الصفوف

غير هذه الجزئية في الكود

For i = 7 To 51
لتصبح
For i = 7 To 56

وذلك بعد اضافة الخمسة الاسطر الزيادة

والله اعلم

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

تفضل

أشكركم كل الشكر ولكن إذا اتسعت قلوبكم

أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول

ليصل عدد الصفوف إلى 50 صف بدل 45

وسامحوني إن أثقلت عليكم

شكرااخي الكريم لتفضلك بالرد انا غيرتها ولكن اريد الكود أن يعمل بمجرد تغيير قيمة الخانة المذكورة(ُِِAE52)

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

سلمت يا ابو احمد

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

يتم اظهارها

ملحوظة راجع معادلات العشرة صفوف الاخرة لانه تم اضافة صفوف دون النظر للمعادلات

تحياتي

جدول.rar

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

سلمت يا ابو احمد

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

يتم اظهارها

ملحوظة راجع معادلات العشرة صفوف الاخرة لانه تم اضافة صفوف دون النظر للمعادلات

تحياتي

انا اسف للآزعاج مرة اخرى الخلية المذكورة تعني عدد طلاب الصف اريد ان تختفي السطور الفارغة بالاعتمادعلى عدد طلاب الصف

ولا اريد اظهار واخفاء.

في الخلية (ُِAE57) بمجرد تغيير عدد الطلاب تتغير السطور اذا زاد العدد زادت السطور واذا نقص العدد نقصت السطور

شكرا مرة اخرى لتفضلكم بالرد السريع وإعطائي الكثير من وقتكم

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

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

انا اسف للآزعاج مرة اخرى الخلية المذكورة تعني عدد طلاب الصف اريد ان تختفي السطور الفارغة بالاعتمادعلى عدد طلاب الصف

ولا اريد اظهار واخفاء.

في الخلية (ُِAE57) بمجرد تغيير عدد الطلاب تتغير السطور اذا زاد العدد زادت السطور واذا نقص العدد نقصت السطور

شكرا مرة اخرى لتفضلكم بالرد السريع وإعطائي الكثير من وقتكم

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

هل تقصد ان يكون الكود مرن (يعني يزيد بزيادة الصفوف) ام ماذ

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

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

بالفعل أعتقد أنه يريد الكود أكثر مرونة بحيث يظهر فقط عدد الأسطر التى تتساوى مع عدد الطلاب الذى سيكون موجود فى الخلية المذكورة ويقوم تلقائياً بإخفاء باقى الاسطر وإذا أراد أن يزيد عدد الأسطر فيكفى أن يقوم بزيادة العدد الموجود فى الخلية التى ذكرها

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

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

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

اخي يوسف

جرب المرفق

ان شاء الله يفي بالغرض

جدول يوسف عطا.rar

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

السلام عليكم

الاستاذ عادل

والاستاذ عبدالله

مشكورين على هذا الابداع

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

دروس نتعلمها من اعمالكم

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

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

اخي يوسف

الميكرو موجود في زر باسم اخفاء الفارغ

السلام عليكم

الاستاذ عادل

والاستاذ عبدالله

مشكورين على هذا الابداع

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

دروس نتعلمها من اعمالكم

اخي ابو نصار

شكراً لمرورك

وهذه الدروس انا تعلمتها من الاستاذ عادل حفظه الله

ابواحمد

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

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

اخي يوسف

جرب المرفق

ان شاء الله يفي بالغرض

اخي الكريم عبد الله المجرب شكرا لاهتمامكم ولكن الملف لا يعمل ولا يوجد به مايكرو وبنفس الوقت لا أريده أن يعمل بكبسة زر

أريدة ان يعمل تلقائيا عند نقصان او زيادة الخلية الهدف AE78 وشكرا لتعاونكم المستمر

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

السلام عليكم

اخي

بالفعل انت لم تستطع توصيل المعلومة الصحيحة

و لم افهمها الا من الملف الثاني

مشكور مجهودك يا ابو احمد

تم عمل الملفان بفكرة الملف الثاني

تحياتي

إخفاء القوائم الفارغة.rar

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

السلام عليكم

اخي

بالفعل انت لم تستطع توصيل المعلومة الصحيحة

و لم افهمها الا من الملف الثاني

مشكور مجهودك يا ابو احمد

تم عمل الملفان بفكرة الملف الثاني

تحياتي

بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير

مجهود رائع ولك مني جزيل الشكر

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

بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير

مجهود رائع ولك مني جزيل الشكر

بالفعل مجهو رائع نشكر الاستاذ عادل عليه وكل يوم نتعلم اشياء جديدة من ردوده

هذه اضافة بسيطة لجعل الكود مرن

بحيث يتم ربطه بالصف الاخير المكتوب فيه (معلم المادة والمشرف التربوي)

حيث يمكن قص هذا الصف ولصقه باي مكان (لزيادة عدد الصفوف ) ولا حاجة لتعديل الكود (شاهد المرفق)

والله اعلم

إخفاء القوائم الفارغة.rar

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

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

إخواني الكرام الأعزاء

الكود اشتغل بشكل ممتاز ولكن عندما وضعت البيانات وعملت حماية على الورقة

حتى لا يتم التغيير في المعادلات اعطاني الكود رسالة خطأ

وعندما أزلت الحماية عن الورقة ااشتغل الكود بشكل طبيعي

فهل هناك حل لهذه المشكة؟

جدول يوسف عطا.rar

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

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

إخواني الكرام الأعزاء

الكود اشتغل بشكل ممتاز ولكن عندما وضعت البيانات وعملت حماية على الورقة

حتى لا يتم التغيير في المعادلات اعطاني الكود رسالة خطأ

وعندما أزلت الحماية عن الورقة ااشتغل الكود بشكل طبيعي

فهل هناك حل لهذه المشكة؟

اخي الحل بسيط

اضف هذا الكود في بداية الكود

ActiveSheet.Unprotect

وهذا الكود في النهاية

ActiveSheet.protect

ويمكك ان تعدل شروط الحماية بواسطة تسجيل ماكرو

او ارفق ملف

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

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

إخواني الكرام الأعزاء

الكود اشتغل بشكل ممتاز ولكن عندما وضعت البيانات وعملت حماية على الورقة

حتى لا يتم التغيير في المعادلات اعطاني الكود رسالة خطأ

وعندما أزلت الحماية عن الورقة ااشتغل الكود بشكل طبيعي

فهل هناك حل لهذه المشكة؟

بوركت سيدي تم المطلوب جزاك الله خيرا ونشكركم على الرد السريغ

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

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

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



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

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

Important Information