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

[ibra]

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

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

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

ودمتم

جدول.rar

تم تعديل يونيو 29, 2011 بواسطه ibra

[عادل حنفي]

تفضل

جدول.rar

[عبدالله المجرب]

تفضل

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

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

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

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

ابواحمد

[ibra]

تفضل

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

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

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

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

تم تعديل يونيو 29, 2011 بواسطه ibra

[عبدالله المجرب]

تفضل

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

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

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

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

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

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

For i = 7 To 51

لتصبح

For i = 7 To 56

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

والله اعلم

[ibra]

تفضل

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

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

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

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

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

[عادل حنفي]

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

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

يتم اظهارها

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

تحياتي

جدول.rar

[ibra]

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

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

يتم اظهارها

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

تحياتي

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

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

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

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

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

تم تعديل يونيو 29, 2011 بواسطه ibra

[عبدالله المجرب]

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

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

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

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

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

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

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

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

[يوسف عطا]

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

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

[عبدالله المجرب]

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

اخي يوسف

جرب المرفق

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

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

[يوسف عطا]

الف شكر وجارى التجربة

[يوسف عطا]

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

[الـعيدروس]

السلام عليكم

الاستاذ عادل

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

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

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

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

[عبدالله المجرب]

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

اخي يوسف

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

السلام عليكم

الاستاذ عادل

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

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

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

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

اخي ابو نصار

شكراً لمرورك

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

ابواحمد

[ibra]

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

اخي يوسف

جرب المرفق

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

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

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

[ibra]

وحتى يكون الأمر أوضح أنا عندي ملف يعمل بهذه الطريقة ولكن لم أستطع تعديل الكود

عدلت معطيات الكود فلم يعمل في الجدول الجديد وإليكم الملف وشكرا

اخفاء الصفوف الفارغة.rar

[ibra]

للرفع

[عادل حنفي]

السلام عليكم

اخي

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

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

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

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

تحياتي

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

[ibra]

السلام عليكم

اخي

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

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

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

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

تحياتي

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

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

[عبدالله المجرب]

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

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

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

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

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

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

والله اعلم

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

[ibra]

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

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

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

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

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

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

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

تم تعديل يونيو 30, 2011 بواسطه ibra

[عبدالله المجرب]

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

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

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

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

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

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

اخي الحل بسيط

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

ActiveSheet.Unprotect

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

ActiveSheet.protect

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

او ارفق ملف

[ibra]

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

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

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

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

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

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

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

[عادل حنفي]

تفضل يا اخي

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