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

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


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





كود نسخ

السلام عليكم أتمنى أن يكون الجميع بصحة و عافية عندي في الجدول لما أثبت الغيابات (بما أن الجمعة و السبت عطلة نهاية الأسبو ..



21-03-2020 11:58 صباحا
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم
أتمنى أن يكون الجميع بصحة و عافية
عندي في الجدول لما أثبت الغيابات (بما أن الجمعة و السبت عطلة نهاية الأسبوع ما فيش دراسة )
أريد كود لنسخ محتوى العمود (الخميس) في عمودي الجمعة و السبت على مدار السنة هو سهل بالعادلات لكن كما تعلمون الأيام تتغير كل سنة .
لكم مني جزيل الشكر
 
 
 
 
  نسخ غياب.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(22.01) KB


22-03-2020 05:10 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كود نسخ
استخدم الكود التالى عله يفى بالغرض
Sub Eslam_Abdullah()
Dim lr&, lc%, i%
lr = Application.Max(Cells(Rows.Count, 1).End(xlUp).Row, 6) - 5
lc = Application.Max(Cells(4, Columns.Count).End(xlToLeft).Column)
    For i = 6 To lc
        If Application.Text(Cells(4, i).Value, "[$-en-US]dddd") = "Friday" Or Application.Text(Cells(4, i).Value, "[$-en-US]dddd") = "Saturday" Then _
            Cells(6, i).Resize(lr).Value = Cells(6, i).Offset(, -1).Resize(lr).Value
    Next i
End Sub

23-03-2020 02:01 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif كود نسخ
الف شكر أستاذ إسلام و لكن الكود يشتغل مرة واحدة فقط يعني لو استعملت الخميس ذا الخميس الجاي ما يشتغلش

23-03-2020 08:08 مساء
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كود نسخ
ازاى ارفع ملف بالتطبيق
المفترض أن الكود يطبق على السنه بأكملها

23-03-2020 09:27 مساء
مشاهدة مشاركة منفردة [4]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif كود نسخ
ألف شكر أستاذ إسلام جربت الكود ثاني و اكتشفت أنك عملت نسخ عمود الجمعة في السبت و الأحد و بعدها غيرتهم و الكود شغال مية مية
ألف ألف تحية
 

23-03-2020 10:51 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كود نسخ
تمام الحمد لله على تمام الطلب على خير




الكلمات الدلالية
لا يوجد كلمات دلالية ..


 










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

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