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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil الغاء اعمده مخفيه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





هل ممكن تعديل الكود

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



29-11-2019 11:23 مساء
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 30
الاعجاب : 2
 offline 
 
 
  السلام عليكم أولا أتقدم بالشكر لكل أساتذة المنتدى الذين أجدهم دعم لي في كل مرة .تحياتي للجميعالكود هذا من انجاز أحد الأساتذة فكل الشكر موصول لهأردت إضافة رسالة تنبهنية " قل قمت بطباعة التقرير اليومي " الكود عمل نص و النص المهم لم يعمل و هو : تجيني الرسالة و في حالة No من المفروض لا يقوم بتثبيت الغيابات و يعود إلى شيت التقرير اليومي للطباعة و في حالة yes  يتمم الكود مهمته.الكود موجود في الموديول 3.
كما أريد إضافة كود لنسخ خلايا كل أعمدة (الخميس ) في أعمدة الجمعة و السبت
 
 
 
  jour.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(706.312) KB





30-11-2019 09:42 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif هل ممكن تعديل الكود
وعليكم السلام
أضف جملة Exit Sub في هذا الجزء
    If Answer = vbNo Then
        Application.ScreenUpdating = False
        Worksheets("التقرير اليومي").Select
        Exit Sub
    End If


النقطة الثانية غير واضحة . يرجى وضع المزيد من التفاصيل حول أي مشكلة

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



30-11-2019 08:04 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 30
الاعجاب : 2
 offline 
look/images/icons/i1.gif هل ممكن تعديل الكود
أولا شكرا أستاذ ياسر على الكود تمام .
فيما يخص الجزء الثاني هو كالتالي :
عندي الجمعة و السبت عطلة الأسبوع weekend لا يوجد عمل و لا تقرير و بما أنه الطالب إذا كان غائب الخميس فالجمعة و السبت يعتبر غائب كذلك و عليه أريد نسخ محتوى العمود(الخميس) في عمودي الجمعة و السبت و هذا على مدار السنة  فمثلا :
الطالب في الخلية  N208 (غ) تنسخ في الخلية N209 ; N210
 




30-11-2019 08:36 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif هل ممكن تعديل الكود
ممكن تضع لشكل النتائج المتوقعة .. كصورة أو ما شابه لتتضح الصورة
وما هو الكود المرتبط بهذه العملية؟




30-11-2019 09:09 مساء
مشاهدة مشاركة منفردة [4]
ayoub2007
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 30
الاعجاب : 2
 offline 
look/images/icons/i1.gif هل ممكن تعديل الكود
كود تثبيت الغيابات موجود دائما في الموديل 3
الملف المرفق في شيت الغيابات قمت بتعبئة الخليتين اللازم نسخهما بلون أصفر للتوضيح
و شكرا مسبقا
 
 
  jour.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(706.495) KB





01-12-2019 06:49 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif هل ممكن تعديل الكود
صراحةً لم أفهم طبيعة الملف بشكل جيد ..
ملف غريب جداً وأعتقد أنه لابد من وجود طريقة أخرى أفضل للتعامل مع تسجيل الغياب ...

ضع ملف مرفق معبر وضع مثال بحيث نستطيع التجربة عليه ووضح كافة التفاصيل المطلوبة وشكل النتائج المتوقعة ، وهل تريد الإضافة في نفس الكود المسمى FormulaCopy ام أنه سيكون بكود منفصل؟
ولما لا تضع معادلة بشكل يدوي في الأعمدة التي فيها اليوم الجمعة والسبت بحيث لو كانت الخلية في العمود السابق لهما (يوم الخمس) به غياب يضع غ ...




01-12-2019 06:59 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif هل ممكن تعديل الكود
جرب تغيير الجزء التالي عله يفي بالغرض
جرب تغيير التاريخ ليوم يكون موافق ليوم الخميس لتستطيع تجربة الكود
        With sh.Range(sh.Cells(6, x), sh.Cells(sh.Cells(Rows.Count, 2).End(xlUp).Row, x))
            .Formula = "=IF(AND(COUNTIF('التقرير اليومي'!$C$68:$I$107,$B6)=1,COUNTIF('التقرير اليومي'!$N$66," & Split(sh.Cells(5, x).Address, "$")(1) & "$5)=1),""غ"","""")"
            .Value = .Value
            
            If Weekday(sh.Cells(5, x).Value) = 5 Then
                .Offset(, 1).Resize(, 2).Value = Evaluate("=IF(" & .Address & "=""غ"",""غ"","""")")
            End If
        End With

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






الكلمات الدلالية
ممكن ، تعديل ، الكود ،


 







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

الساعة الآن 09:52 صباحا

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