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

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


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





طباعة شهادتين بورقة واحدة ساجدة العزاوي

تم نشره في 24rlm;/08rlm;/2017 طباعة شهادات الناجحين والراسبين 2 طباعة شهادتين بورقة واحدة ساجدة العزاوي قناة ساجدة العز ..



25-08-2017 03:23 صباحا
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 

تم نشره في 24‏/08‏/2017

طباعة شهادات الناجحين والراسبين 2 طباعة شهادتين بورقة واحدة ساجدة العزاوي
قناة ساجدة العزاوي التعليمية print excel vba طباعة شهادات الطلاب طباعة تقدير الطلاب
sajida alazzawi
رابط ملف التطبيق
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
رابط صفحة الفيس بوك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب



توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 03:24 صباحا
مشاهدة مشاركة منفردة [1]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif طباعة شهادتين بورقة واحدة ساجدة العزاوي
توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 10:32 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36622
عدد الإجابات: 255
 offline 
look/images/icons/i1.gif طباعة شهادتين بورقة واحدة ساجدة العزاوي
أخي العزيز ناصر
بارك الله فيك وجزاك الله خيراً على محاولة تقديم الخير للناس

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

25-08-2017 11:38 صباحا
مشاهدة مشاركة منفردة [3]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif طباعة شهادتين بورقة واحدة ساجدة العزاوي
عند فتح الملف بعد تحميله تظهر هذه  الرساله من فضلكم ما الحل ؟
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 02:10 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36622
عدد الإجابات: 255
 offline 
look/images/icons/i1.gif طباعة شهادتين بورقة واحدة ساجدة العزاوي
ربما لم يتم تحميل الملف بشكل كامل مما أدى إلى ظهور رسالة أن الملف به تلف عند فتحه ..
عموماً دخلت على الفيديو ورابط الميديا فاير وقمت بتحميل الملف ها هنا لتمام الاستفادة
 
 
 
  شهادات الناجحين والراسبين بشهادتين في ورقة واحدة اخر تعديل ساجدة.rar   تحميل rar مرات التحميل :(25)
الحجم :(1221.748) KB


25-08-2017 03:33 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif طباعة شهادتين بورقة واحدة ساجدة العزاوي
وهذا هو الكود المرفق بالملف
Sub sajida()
Application.ScreenUpdating = False
lr = Sheets(1).Range("a1000").End(xlUp).Row
c = 2
    For i = 7 To lr
        If c Mod 2 = 0 Then
            If Sheets(1).Cells(i, 101) = "ناجــــح" Or Sheets(1).Cells(i, 101) = "ناجحــــة" Then
            Sheets(2).Cells(3, 13) = Sheets(1).Cells(i, 2)
            c = c + 1
            End If
            GoTo 1
        Else
            If Sheets(1).Cells(i, 101) = "ناجــــح" Or Sheets(1).Cells(i, 101) = "ناجحــــة" Then
            Sheets(2).Cells(19, 13) = Sheets(1).Cells(i, 2)
            c = c + 1
            Sheets(2).Range("a1:p31").PrintOut
            Sheets(2).Cells(3, 13) = ""
            Sheets(2).Cells(19, 13) = ""
            End If
       End If
1:
    Next i
    If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then
    Sheets(2).Range("a1:p15").PrintOut
    End If
Application.ScreenUpdating = True
End Sub

توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 03:35 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif طباعة شهادتين بورقة واحدة ساجدة العزاوي
 c = 2 

لماذا وضعنا الرقم 2 ؟ لماذا لم يكن مثلا 3 او  من فضلكم 4؟
توقيع :ناصر سعيد
جزاكم الله خيرا





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


 










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

الساعة الآن 12:42 صباحا