بحث مخصص من جوجل فى أوفيسنا
Custom Search

ناصر سعيد

عضو ذهبي
  • Content count

    1,255
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

148 Excellent

3 متابعين

عن العضو ناصر سعيد

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    teacher

اخر الزوار

791 زياره للملف الشخصي
  1. بسم الله الرحمن الرحيم استخراج القيم الفريده بطريقة العلامه عبد الله باقشير .. حفظه الله ورعاه مع شرح الكود جزى الله كل من ساهم في اخراج هذا العمل الى النور بكل خير Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False 'مسح عمود القيم الفريده [V5:V500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [V5:V500] 'اسم شيت المصدرورقم صف البدايه في شيت المصدر For U = 7 To Sheets("رصد الترم الثانى").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U, 4) 'رقم عمودالبيانات الفريدهفي الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 22)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 22).ClearContents End If Next 'فرز عمود القيم الفريده [V5:V500].Sort [V5], xlAscending Application.ScreenUpdating = True End Sub استخراج القيم الفريده.rar
  2. بسم الله الرحمن الرحيم استخراج القيم الفريده بطريقة العلامه عبد الله باقشير .. حفظه الله ورعاه مع شرح الكود جزى الله كل من ساهم في اخراج هذا العمل الى النور بكل خير Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False 'مسح عمود القيم الفريده [V5:V500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [V5:V500] 'اسم شيت المصدرورقم صف البدايه في شيت المصدر For U = 7 To Sheets("رصد الترم الثانى").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U, 4) 'رقم عمودالبيانات الفريدهفي الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 22)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 22).ClearContents End If Next 'فرز عمود القيم الفريده [V5:V500].Sort [V5], xlAscending Application.ScreenUpdating = True End Sub استخراج القيم الفريده.rar
  3. ربنا يبارك فيك استاذ محمد صالح ويكتب الله هذا العمل في كفة حسناتك
  4. شهادات رائعه بمعيه الناجحين او الرسبين او الاولاد او البنات او الفصول وغيره للمبدعه ساجده العزاوي العراقيه شهادات الطلاب بمعايير مختلفه .. لساجده العزاوي.rar ''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' ' هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في 27 يونيو 2016 'كمعطيات المحترم ابو أحمد محمدي ''الفكرة هنا اشرحها باختصار ''ناخذ متغير ونضيف له بعد مليء البيانات 1 '' '' فاذا المتغير زوجي نضع البيانات في الشهادة العلوية بالورقة '' واذا فردي نضع البيانات في الشهادة السفلية بالورقة '' وعند امتلاء الشهادتين نطبع الورقة '' ويتكرر اللوب.... اما اذا كانت فردية بالنهاية '' نجيك هل خلية ام 19 فارغة معناها فقط الشهادة العلوية ممتلئة '' وبهذا نعرف انها فردية فنطبعها Sub محددة_ناجحون() ' هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في 27 يونيو 2016 'كمعطيات المحترم ابو أحمد محمدي ' متغيرات يجب تعريفها Const studentData As String = "رصد الترم الثانى" Const shehada As String = "شهادة" '================ lr = Sheets(studentData).Range("C7").End(xlDown).Row ' ايجاد اخر صف موجود به بيانات c = 2 'فائدتها اذا كانت زوجي يضع البيانات في الشهادة العلوية 'واذا فردي يضع البيانات في الشهادة السفلية بالورقة '==== 'هذه الجزئيه خاصه بجميع الطلاب ( ناجحون ودور تان) 'For i = 7 To LR '==== 'هذه الجزئيه خاصه بطباعة شهادات محدده For i = Sheets(shehada).Cells(7, 18).Value _ To Sheets(shehada).Cells(7, 19).Value 'من الخلية التي تحوي رو الطبع الى الخلية الثانية التي تحوي الى ار 7 و اس 7 Application.ScreenUpdating = False 'لتسريع الكود وعدم رؤية مايحدث في الشيت وبذلك يتم اخفاء الرجفة If c Mod 2 = 0 Then 'نقسم السي على 2 اذا الباقي صفر اذن سي رقمها زوجي ... 'اذا كان زوجي نضع البيانات في الشهادة العلوية If Sheets(studentData).Cells(i, 157) Like "*" & "ناج*" & "*" Then '''If Sheets(StudentData).Cells(i, 157) = "ناجح" Or _ Sheets(StudentData).Cells(i, 157) = "ناجحة" Then 'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها ' Sheets(shehada).Cells(3, 13) = Sheets(studentData).Cells(i, 2) 'متغير نضع رقم الجلوس في الخلية ام 3 وعند وضعه 'ستظهر البيانات في الخلايا التي وضعنا فيها المعادله Sheets(shehada).Cells(12, 3) = Sheets(studentData).Cells(i, 157) Sheets(shehada).Cells(12, 6) = Sheets(studentData).Cells(i, 158) 'نضع محتوى الخلايا سواء فيها ناجح ناجحة 'او لها له دور ثاني ومنقول لصف في الخلايا اعلاه ' ' c = c + 1 'نزيد العداد حتى يصبح فردي ' وفي اللوب الثاني يذهب الى الشهادة التحت لان العليا ملأناها ' ' End If GoTo 1 'يذهب الى 1 لاخذ رقم جلوس اخر Else 'اذا كان رقم السي فردي If Sheets(studentData).Cells(i, 157) Like "*" & "ناج*" & "*" Then 'If Sheets(StudentData).Cells(i, 157) = "له دور ثان في" Or _ Sheets(StudentData).Cells(i, 157) = "لها دور ثان في" Then 'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها Sheets(shehada).Cells(19, 13) = Sheets(studentData).Cells(i, 2) Sheets(shehada).Cells(28, 3) = Sheets(studentData).Cells(i, 157) Sheets(shehada).Cells(28, 6) = Sheets(studentData).Cells(i, 158) c = c + 1 Sheets(shehada).Range("a1:p31").PrintOut 'وضعنا الطبع هنا في الاف الثانية وليس الاف الاولى للزوجي 'لان تأكدنا تم مليء الشهادتين بالبيانات ' ' Sheets(shehada).Cells(3, 13) = "" Sheets(shehada).Cells(19, 13) = "" 'بعد الطبع يجب تفريغ الخليتين ام3 و ام 19 ' التي تحوي ارقام الجلوس ' ' End If End If 1: Next i If Sheets(shehada).Cells(19, 13) = "" And Sheets(shehada).Cells(3, 13) <> "" Then Sheets(shehada).Range("a1:p15").PrintOut End If 'هذه الاف وضعناها في حالة شهادة فردية ' ففي حالة ام 19 فارغة معناها شهادة فردية فقط 'الشهادة العلوية فيها بينات ونعطيه امر بطبعها Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
  5. تمام حفظكم الله استاذ محمد طاهر .. تم الحل
  6. حفظكم ربنا ورعاكم الاستاذ ياسر خليل والاستاذ محمد صالح
  7. ضكرا استاذ محمد طاهر اغلق الصفحه بعد كتابتك للمشاركه وافتحها ثانيه لن تجد المشاركه ===شكرا
  8. يبدو انها مشكله في المنتدى لان نفس الاعدادات دي عندي وايضا لاتظهر او ايه الحل ؟
  9. شهادات رائعه بمعايير مختلفه - شهادات الناجحين - شهادات الراسبين - شهادات الولاد - شهادات البنات - شهادات محدده للمحترمه ساجده العزاوي العراقيه شهادات الطلاب بمعايير مختلفه .. لساجده العزاوي.rar
  10. للرفع رفع الله كقداركم
  11. اريد فلترة الفصول لتظهر في ورقه شهاده1 فنعمل منها قائمه منسدله ليتم استخراج الشهادات بمعيه اسم الفصل ولا ادري لما ذا يتم معك هذا بالنسبه للملف اخي الكريم بن عليه
  12. للرفع رفع الله مقداركم
  13. انا اساعد نفسي لاني ابتغ وجه الله واعمل ذلك تحسبا في احد الاخوه يدخل المنتدى بعد يوم بعد شهر بعد سنه فيجد المشاركات التي اعتقد انها مفيده .... لاحبابنا في الله رجال التربيه والتعليم جزاكم الله خيرا
  14. حصرياً ولأول مرة كيفية استخراج الناجحين باستخدام المصفوفات ;" >https://youtu.be/F9fA5eQb6js * إذا أعجبتك القناة لا تنسى عمل اشتراك بالقناة Subscribe ، وعمل إعجاب بالفيديوهات Like Extract Pass Using Arrays YasserKhalil LOF.rar