أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





إظهار نتيجة معينة فقط وإخفاء باقي النتائج

السلام عليكم ورحمة الله وبركاته : الملف المرفق به ورقتين عمل أريد في عمود الحالة في شيت رقم 2 أن يظهر لي حالة طلاب المنا ..


موضوع مغلق


18-11-2020 05:30 مساء
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

السلام عليكم ورحمة الله وبركاته : الملف المرفق به ورقتين عمل أريد في عمود الحالة في شيت رقم 2 أن يظهر لي حالة طلاب المنازل فقط وإخفاء باقي الحالات جزاكم الله خيراً
 
 
  Book1.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(11.717) KB



أفضل إجابة مقدمة من salim وهي:
جرب هذا الملف

Option Explicit

Sub Hide_rows()
Dim i%
 Show_all
 For i = 2 To Range("A1").CurrentRegion.Rows.Count
  If Cells(i, 3).Value = Cells(1, "H") Then
   Cells(i, 1).EntireRow.Hidden = -1
  End If
 Next
End Sub
'+++++++++++++++++++++++
Sub Show_all()
 Range("A1").CurrentRegion.EntireRow.Hidden = 0
End Sub

الملف مرفق (عدد 2 ) الاول كود والثاني معادلة
عرض الإجابة




18-11-2020 08:22 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif إظهار نتيجة معينة فقط وإخفاء باقي النتائج
جرب هذا الملف

Option Explicit

Sub Hide_rows()
Dim i%
 Show_all
 For i = 2 To Range("A1").CurrentRegion.Rows.Count
  If Cells(i, 3).Value = Cells(1, "H") Then
   Cells(i, 1).EntireRow.Hidden = -1
  End If
 Next
End Sub
'+++++++++++++++++++++++
Sub Show_all()
 Range("A1").CurrentRegion.EntireRow.Hidden = 0
End Sub

الملف مرفق (عدد 2 ) الاول كود والثاني معادلة
 
 
  Ali_Salem.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(31.613) KB
  Ali_Salem_Formula.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(27.7) KB


19-11-2020 07:01 صباحا
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif إظهار نتيجة معينة فقط وإخفاء باقي النتائج
تمام استاذنا الاستاذ سليم المعادلة هو المطلوب وذلك لقيام الكود بإخفاء باقي الأسماء ولكن هل توجد طريقة لإظهار كلمة (منازل) فقط وإخفاء (منقول) و إخفاء (باق) جزاكم الله خيراً على المجهود الرائع

19-11-2020 10:00 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif إظهار نتيجة معينة فقط وإخفاء باقي النتائج

نفس المعادلة لكن تكتب في H1  الكلمة التي لا تريدها
في حال كانت H1 فارغة او يوجد فيها كلمة غير هذه الكلمات الثلاث تحصل على كل شيء



الكلمات الدلالية
إظهار ، نتيجة ، معينة ، وإخفاء ، باقي ، النتائج ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 02:40 صباحا