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

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


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


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

Preview




عمل الشهادات المدرسيه .. المرجع

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير يارب هذا ملف به كود واحد خاص باخراج شهادا ..



02-11-2017 09:53 مساء
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 


بسم الله الرحمن الرحيم



احبابنا في الله


 

ادعو الله ان تكونوا بخير يارب


 

 

 

هذا ملف به كود  واحد خاص باخراج شهادات الطلاب  وما أسهله


 

يستطيع ان يستجلب


 

=====


 

كل انواع الشهادات المطلوبه


 

 

 

الكود للنابغه ساجده العزاوي من العراق


 

وتعديل المحترم ذائع الصيت بن علية حاجي من الجزائر


 

حفظهم الله ورعاهم


 

طريقه الاستفاده من هذا الملف


 

افتح هذا الملف


 

اضغط على زر ALT وانت ماتزال ضاغطا


 

اضغط على F11


 

سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد


 

دبل كليك على اول موديول


 

ثم اضغط من لوحة المفاتيح على ALT  +SHEFT 


 

لتكون اللغه هي العربيه


 

منعا لظهور اللغه العربيه بشكل طلاسم


 

اجعل مؤشر الماوس في الكود  ثم اضغط  CTRL +A


 

  لتحديد الكود كله


 

ثم    CTRL+C  ليتم النسخ


 

=====


 

** افتح ملفك وافتح محرر الاكواد كما اشرنا  سابقا


 

** ومن قائمه محرر الاكواد التي فتحت امامك


 

** اختر Insert  واختر منها Module


 

** ثم ضع المؤشر في  Module


 

** والصق الكود


 

==========


 

ماهي التغييرات التي تحدثها في الكود حتى يكون صالحا للاستعمال ؟


 

**  غير اسم صفحه مصدر البيانات


 

**  غير اسم صفحة الشهادات


 

**  غير رقم عمود المعيار


 

**  غير رقم خليه رقم الجلوس لو غيرت موقعها


 

========


 

احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير


 

يكفي جملة


 

جزاكم الله خيرا


 

الشهادات ذات الثلاثه معايير


 

في الخليه R1 نكتب بدايه الصف الذي نريد الشهادات منه


 

في الخليه S1 نكتب نهايه الصف الذي نريد الشهادات اليه


 

===


 

و في الخليه R7 نكتب كلمه (نا ) او ( دور )


 

وفي الخليه S7 نكتب ( ول ) اختصار كلمه ولد


 

او نكتب ( بن ) اختصار كلمه بنت


 

وفي الخليه T7 نكتب الفصل (3/1 ) مثلا


 

وهكذا نكون استطعنا ان نستدعي شهادات الاولاد الناجحين في فصل معين في مدى معين


 

او الاولاد اللي عندهم دور تان في فصل معين


 

او البنات الناجحين في فصل معين


 

او البنات اللي عندهم دور تان في فصل معين وفي مدى معين


 

**************


 

يكفي جملة


 

جزاكم الله خيرا


 

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


 

*****************************


 

وتعديل المحترم ذائع الصيت بن علية حاجي من الجزائر


 

تم بناء على متطلبات جديده في الكود




































































تم تحرير الموضوع بواسطة :ناصر سعيد1
بتاريخ:11-11-2017 09:44 مساء





03-11-2017 02:48 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
السلام عليكم
أعتقد الموضوع قد يفيد الكثير من الأعضاء ..
لما لم تقم بوضع الموضوع في قسم "مشاريع جاهزة" لتمام الاستفادة منه .. ؟!




06-11-2017 07:07 صباحا
مشاهدة مشاركة منفردة [2]
هانى حرحش
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 81
المشاركات : 17
الجنس : ذكر
تاريخ الميلاد : 10-11-197
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 30
الاعجاب : 2
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
جزاكم الله خيرا




06-11-2017 10:38 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9005
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26694
الاعجاب : 680
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
أخي العزيز هاني حرحش
أهلاً بك في المنتدى ونورت بين إخوانك وأحبابك ، وننتظر منك تفاعل مثمر في المنتدى
تقبل تحياتي




07-11-2017 06:00 مساء
مشاهدة مشاركة منفردة [4]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
اخواني في الله
اريد عند عدم وجود بيانات المعايير تظهر رساله
     If targt1 Or targt2 Or targt3 = "" Then
     MsgBox "لايوجد طلاب  او البيانات غير مكتمله "
    Exit Sub
    End If

هل هذه الاسطر سليمه واين توضع في الكود .. وهل تحتاج تكمله  .. ؟


تم تحرير المشاركة بواسطة :ناصر سعيد1
بتاريخ:07-11-2017 06:22 مساء





07-11-2017 11:55 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
للرفع
 




09-11-2017 12:20 صباحا
مشاهدة مشاركة منفردة [6]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
للرفع
========




11-11-2017 09:55 صباحا
مشاهدة مشاركة منفردة [7]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
للرفع .. كمل جميلك يا ابو العربي




11-11-2017 10:42 صباحا
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1259
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
يتابعهم : 2
يتابعونه : 652
قوة السمعة : 9326
الاعجاب : 82
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
تفضل اخي الكريم
حاول تجرب بنفسك وانت تعرف الفرق بين and & or او دمجهم معا

'اذا كان احد المعايير فارغ يتم ايقاف عمل الكود
If targt1 = "" Or targt2 = "" Or targt3 = "" Then
    MsgBox "لايوجد طلاب  او البيانات غير مكتمله "
    Exit Sub
End If
'اذا كانت كل المعايير فارغة يتم ايقاف عمل الكود
If targt1 = "" And targt2 = "" And targt3 = "" Then
    MsgBox "لايوجد طلاب  او البيانات غير مكتمله "
    Exit Sub
End If
'اذا كان اول معيارين فارغين يتم ايقاف الكود او المعيار الثالث فارغ يتم ايقاف الكود
If targt1 = "" And targt2 = "" Or targt3 = "" Then
    MsgBox "لايوجد طلاب  او البيانات غير مكتمله "
    Exit Sub
End If

تحياتي
 



توقيع :Yasser Elaraby
663013020


11-11-2017 11:21 صباحا
مشاهدة مشاركة منفردة [9]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
جزاك الله كل خير
واين توضع هذه الاسطر




11-11-2017 11:46 صباحا
مشاهدة مشاركة منفردة [10]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1259
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
يتابعهم : 2
يتابعونه : 652
قوة السمعة : 9326
الاعجاب : 82
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
قبل سطر البحث نفسه لم ارى الملف ولكن يتم وضعه قبل معايير البحث

'ايا كان كود البحث يتم الوضع قبله
If targt1 Like Rng Then

If targt1 = Rng Then

If targt1 Like Cells(1, 1) Then



توقيع :Yasser Elaraby
663013020


11-11-2017 02:43 مساء
مشاهدة مشاركة منفردة [11]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
هذا هو الكود .. مش عارف المكان الصح لوضع جملتك البرمجيه
Sub اربعشهادات_بثلاث_معايير()
'هذا الكود للنابغه ساجده العزاوي
' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه
'تم في اكتوبر 2017
'كمعطيات المحترم ابو أحمد محمدي
'تم التعديل على الكود لمتطلبات جديده بواسطه المحترم ذائع الصيت بن علية حادجي الجزائري
'تم بناء على متطلبات جديده في الكود
'الهدف من الكود هو استخراج الشهادات
'كل 3 شهادات في صفحه واحدة
'بثلاثة معايير
            '======================
 Dim SHEHADA As Worksheet, DATA As Worksheet
 Dim myArray, targt1, targt2, targt3 As String
 Dim X, Y, Z, U, V As Long
    'اسم صفحة المصدر
    Set DATA = Worksheets("رصد الترم الثانى")
    
     'اسم صفحة الهدف
    Set SHEHADA = Worksheets("4شهادات بثلاث معايير")
            '======================
  ' targt1 = "ناج*"
  ' targt2 = "ول*"
  ' targt3 = "5/1"
    targt1 = SHEHADA.Range("R7").Value & "*"
    targt2 = SHEHADA.Range("S7").Value & "*"
    targt3 = SHEHADA.Range("T7").Value & "*"
            '======================
c = 0
Application.ScreenUpdating = False
lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row   'اخر صف به بيانات

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  X = SHEHADA.Range("T1").Value
  Y = SHEHADA.Range("R1").Value
  Z = SHEHADA.Range("S1").Value
  U = IIf(X = 1, 7, Y)
  V = IIf(X = 1, lr, Z)

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'هذا السطر في حال كل الشهادات أو شهادات محددة
For i = U To V
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    
  If DATA.Cells(i, 101) Like targt1 & "*" _
 And DATA.Cells(i, 104) Like targt2 & "*" _
 And DATA.Cells(i, 103) Like targt3 & "*" _
 And c = 0 Then
 
     Range("M3") = DATA.Cells(i, 2)
            c = c + 1
            '======================
            
 ElseIf DATA.Cells(i, 101) Like targt1 & "*" _
    And DATA.Cells(i, 104) Like targt2 & "*" _
    And DATA.Cells(i, 103) Like targt3 & "*" _
    And c = 1 Then
    
    Range("M19") = DATA.Cells(i, 2)
            c = c + 1
            '======================
            
 ElseIf DATA.Cells(i, 101) Like targt1 & "*" _
    And DATA.Cells(i, 104) Like targt2 & "*" _
    And DATA.Cells(i, 103) Like targt3 & "*" _
    And c = 2 Then
    
    Range("M35") = DATA.Cells(i, 2)
            c = c + 1
            '======================

ElseIf DATA.Cells(i, 101) Like targt1 & "*" _
    And DATA.Cells(i, 104) Like targt2 & "*" _
    And DATA.Cells(i, 103) Like targt3 & "*" _
    And c = 3 Then
    
   SHEHADA.Range("M51") = DATA.Cells(i, 2)
            c = c + 1
            '======================
    
            End If

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 If i = V And c = 4 Then SHEHADA.Range("a1:p63").PrintOut: Exit For
 If i = V And c = 3 Then SHEHADA.Range("a1:p47").PrintOut: Exit For
 If i = V And c = 2 Then SHEHADA.Range("a1:p31").PrintOut: Exit For
 If i = V And c = 1 Then SHEHADA.Range("a1:p15").PrintOut: Exit For
 If i < V And (Range("M19") = "" Or Range("M35") = "" Or SHEHADA.Range("M51") = "") Then GoTo 1
 If i < V And c = 4 Then SHEHADA.Range("a1:P63").PrintOut
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    c = 0
    
     SHEHADA.Range("M3") = ""
     SHEHADA.Range("M19") = ""
     SHEHADA.Range("M35") = ""
     SHEHADA.Range("M51") = ""
    
1:
   Next i
     SHEHADA.Range("M3") = ""
     SHEHADA.Range("M19") = ""
     SHEHADA.Range("M35") = ""
     SHEHADA.Range("M51") = ""
  Application.ScreenUpdating = True
End Sub





11-11-2017 02:52 مساء
مشاهدة مشاركة منفردة [12]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1259
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
يتابعهم : 2
يتابعونه : 652
قوة السمعة : 9326
الاعجاب : 82
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل الشهادات المدرسيه .. المرجع
قبل الحلقة التكرارية دي
'هذا السطر في حال كل الشهادات أو شهادات محددة
For i = U To V






توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عمل الشهادات المدرسيه 1 ناصر سعيد1
3 1053 ناصر سعيد1

الكلمات الدلالية
الشهادات ، المدرسيه ، المرجع ،


 







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

الساعة الآن 06:46 صباحا

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