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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





إخفاء كلمة منازل من القائمة

السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير وتقبل الله منا ومنكم صالح الأعمال آمين يارب العالمين في الملف المرف ..


موضوع مغلق


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

السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير 
وتقبل الله منا ومنكم صالح الأعمال آمين يارب العالمين 
في الملف المرفق توجد قائمتين للطلاب يوجد من بينهم طلاب حالة القيد الخاصة بهم منازل فهل توجد طريقة لإخفاء هذا الطالب من القائمة بحيث يتم إخفاء التسلسل واسم الطالب والديانة وحالة القيد في حالة انه من طلاب المنازل
 
 
  اخفاء المنازل من القائمة.xlsx   تحميل xlsx مرات التحميل :(9)
الحجم :(15.032) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي العزيز علي وكل عام وأنت بخير
هيكلة الملف للأسف لا تعجبني حيث أنك استخدمت عدد أعمدة مختلف في كلا القائمتين واستخدمت الدمج بشكل كبير وهذا لا يحبذ في التعامل مع الملفات.
عموماً جرب الكود التالي عله يفي بالغرض .. 
تعتمد فكرة الكود على عمل حلقة تكرارية على كلا العمودين (حالة القيد) فإذا وجدت حالة القيد منازل يتم تلوين الخط باللون الأبيض بحيث يخفي البيانات الخاصة بهؤلاء الطلاب
Sub Test()
    Dim e, c As Range, m As Long
    For Each e In Array("C6", "J6")
        m = Sheets(1).Cells(Rows.Count, Sheets(1).Range(e).Column).End(xlUp).Row
        For Each c In Sheets(1).Range(e).Resize(m - 5).Cells
            If c.Value = "منازل" Then
                If e = "C6" Then
                    c.Offset(, -2).Resize(, 4).Font.Color = vbWhite
                ElseIf e = "J6" Then
                    c.Offset(, -4).Resize(, 6).Font.Color = vbWhite
                End If
            End If
        Next c
    Next e
End Sub
عرض الإجابة




20-04-2021 03:43 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif إخفاء كلمة منازل من القائمة
السلام عليكم أخي العزيز علي وكل عام وأنت بخير
هيكلة الملف للأسف لا تعجبني حيث أنك استخدمت عدد أعمدة مختلف في كلا القائمتين واستخدمت الدمج بشكل كبير وهذا لا يحبذ في التعامل مع الملفات.
عموماً جرب الكود التالي عله يفي بالغرض .. 
تعتمد فكرة الكود على عمل حلقة تكرارية على كلا العمودين (حالة القيد) فإذا وجدت حالة القيد منازل يتم تلوين الخط باللون الأبيض بحيث يخفي البيانات الخاصة بهؤلاء الطلاب
Sub Test()
    Dim e, c As Range, m As Long
    For Each e In Array("C6", "J6")
        m = Sheets(1).Cells(Rows.Count, Sheets(1).Range(e).Column).End(xlUp).Row
        For Each c In Sheets(1).Range(e).Resize(m - 5).Cells
            If c.Value = "منازل" Then
                If e = "C6" Then
                    c.Offset(, -2).Resize(, 4).Font.Color = vbWhite
                ElseIf e = "J6" Then
                    c.Offset(, -4).Resize(, 6).Font.Color = vbWhite
                End If
            End If
        Next c
    Next e
End Sub

20-04-2021 04:11 مساء
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif إخفاء كلمة منازل من القائمة
استاذنا جزاكم الله خيرا وبارك الله لك وجعله الله في ميزان حسناتك اللهم آمين... هذا هو المطلوب والملف بهذه البنية بالفعل غير مرغوب فيه لكن الكود سوف استخدمه للتطبيق على ملف آخر لكن الملف المرفق وجدته جاهزا للتطبيق عليه ليس اكثر... اشكرك جزيل الشكر استاذنا ونفع الله بكم اللهم آمين 

20-04-2021 04:52 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif إخفاء كلمة منازل من القائمة
وجزيت خيراً أخي العزيز علي والحمد لله أن تم المطلوب على خير.



الكلمات الدلالية
إخفاء ، كلمة ، منازل ، القائمة ،


 










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

الساعة الآن 06:30 صباحا