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

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

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




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





استخراج تقارير بناء على تحديد الخليه النشطه

حل طلب على الفيس لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب



21-01-2018 11:10 صباحا
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1526
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 430
قوة السمعة : 13696
الاعجاب : 3308
موقعي : زيارة موقعي
 Online 

 
 
  ex.zip   تحميل zip مرات التحميل :(10)
الحجم :(14.166) KB


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله




27-01-2018 05:09 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5201
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 338
قوة السمعة : 15060
الاعجاب : 5637
 offline 
look/images/icons/i1.gif استخراج تقارير بناء على تحديد الخليه النشطه
وعليكم السلام أخي الحبيب حسام عيسى
مشكور على الملف المميز والحل الرائع ..

رأيت أنك اعتمدت على المعادلات والأكواد في نفس الوقت .. لذا اسمح لي أن أثري الموضوع بوضع كود في حدث ورقة العمل بدون الحاجة لمعادلات
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(ActiveCell, Range("H10:M14")) Is Nothing Then
        [L20] = Cells(Target.Row, 7)
        [L21] = Cells(Target.Row, 14)
        [L22] = Cells(9, Target.Column)
        [L23] = Cells(15, Target.Column)
    Else
        Range("L20:L23").ClearContents
    End If
End Sub







الكلمات الدلالية
استخراج ، تقارير ، بناء ، تحديد ، الخليه ، النشطه ،


 







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



الساعة الآن 12:16 مساء

أعلن هنا
أعلن هنا
أعلن هنا