إخفاء صف محدد بشرط

[أبوســـارة1973]

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

 

المطلوب هو كود يعمل تلقائيا يقوم بإخفاء ( Hide) صفوف  محددة ولنفترض انها الصفوف رقم  25 و 26 و27 في حالة أن خلية معينة = 0 ولنفترض أنها الخلية رقم  A10 

تم تعديل أبريل 15, 2013 بواسطه أبوســـارة1973

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [a10].Address Then
If Target = 0 Or IsEmpty(Target) Then
[a25:a27].EntireRow.Hidden = True
End If
End Sub

 

تحياتي

[أبوســـارة1973]

السلام عليكم ورحمة الله أستاذي أحمد عبدالناصر

شكراً على سرعة ردك

ولكن جربت وضع الكود ولكنه لا يعمل ويظهر أن به خطأ

[احمد عبد الناصر]

معذرة علي الخطأ 

 

جرب هذا 

Book1.rar

[أبوســـارة1973]

أرفق لكم هذه الملف لتوضيح المطلوب

عند تغير قيمة الخلية h2  إلى الرقم 2 بناء على اختيار (الطالب ) في Drop Down 1 مطلوب إخفاء الصفوف 30+31+32

وعند اختيار المعلم فسوف تتبدل قيمة الخلية h2  إلى 1 وهنا يقوم الكود بإعادة الصفوف ( 30+31+32) إلى وضع إظهار .

 

abusarah73 book1.rar

[أبوســـارة1973]

شكراً أستاذي / أحمد عبدالناصر ولكن الكود لا يقوم بإظهار الصفوف مرة أخرى إذا تغير قيمة الخلية من صفر إلى قيمة أخرى

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا و اعلمني بالنتيجة . 

 

تحياتي

abusarah73 book1+.rar

[أبوســـارة1973]

نعم يعمل هذا الكود بكفاءة ولكن

أريد أن يعطي المطلوب عند تغير قيمة الخلية h2  إلى الرقم 2 بناء على اختيار (الطالب ) في Drop Down 1 مطلوب إخفاء الصفوف 30+31+32

وعند اختيار المعلم فسوف تتبدل قيمة الخلية h2  إلى 1 وهنا يقوم الكود بإعادة الصفوف ( 30+31+32) إلى وضع إظهار

لاحظ بنفسك فقد قمت بتهيئة الملف

ألف شكر

 

abusarah73 book2.rar

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

 

abusarah73++.rar

[خالد القدس]

السلام عليكم

كود ممتاز استاذ احمد

بارك الله فيك

[احمد عبد الناصر]

حياك الله استاذ خالد و شكرا لمرورك الكريم

 

تحياتي

[أبوســـارة1973]

الأستاذ الفاضل / أحمد عبدالناصر

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

 وجعل عملك هذا في ميزان حسناتك

ألف شكر لك على جهودك الطيبة