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


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





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

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



21-01-2018 11:10 صباحا
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 834
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 245
قوة السمعة : 5388
الاعجاب : 1290
 offline 
 
 
  ex.zip   تحميل zip مرات التحميل :(9)
الحجم :(14.166) KB


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



27-01-2018 05:09 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 2191
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 9
يتابعهم : 0
يتابعونه : 223
قوة السمعة : 6201
الاعجاب : 1853
 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







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


 







الساعة الآن 11:04 صباحا

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