ناصر سعيد

عضو ذهبي
  • Content count

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

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

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

111 Excellent

3 متابعين

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

  • الرتبه
    ناصر سعيد
  • تاريخ الميلاد

Profile Information

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

اخر الزوار

632 زياره للملف الشخصي
  1. جعل رقة العمل في اكسل بحدود مطاطية من ابداع احمد عادل
  2. ============================ =SUMPRODUCT((F6:F6034="غ")*($DX$7:$DX$6035="ذكر"))
  3. شرح الدالة SumProduct للأستاذ يحي حسين و الملف يحتوي شرح الجزء الأول مع الجزء الثاني الدالة SumProduct.pdf منقول للفائده =================================================== =SUMPRODUCT(--(AG7:AG700="غ"))
  4. هل استطعت اخي الكريم من استخدام كود الاستاذ ياسر العربي في ملفك ؟ اذا كان كذلك ففضلا ارفق المرفق وبه كود الاستاذ ياسر العربي
  5. رائعه المحترم ياسر خليل كود لتحويل درجات الطلاب لمستويات ( تقديرات ) .. تصلح للترم الاول Option Explicit ' هذا الكود من روائع المحترم ياسر خليل 'الهدف من الكود هو تحويل درجات الطلاب الى مستويات ( تقديرات ) 'تم عمل هذا الكود بتاريخ 12/1/2017 Function Level(Mark As Variant, OutOf As Long) As String If IsNumeric(Mark) Then Mark = Mark / OutOf Select Case Mark Case Is <= 0 Level = "" Case Is < 0.5 Level = "دون المستوى" Case Is < 0.65 Level = "مقبول" Case Is < 0.75 Level = "جيد" Case Is < 0.85 Level = "جيد جداً" Case Is <= 1 Level = "ممتاز" Case Else Level = "" End Select Else Select Case Mark Case "غ" Level = "غ" Case "صفر" Level = "دون المستوى" Case "واحد" Level = "دون المستوى" Case "اثنان" Level = "دون المستوى" Case "ثلاثة" Level = "دون المستوى" Case Else Level = "" End Select End If End Function ======================================= Level UDF Using Select Case YasserKhalil ExcelLover.rar جزاه الله عنا كل خير
  6. المرجع الاول في دوال البحث مع الشرح المفصل استدعاء بيانات الشهادات بمعية رقم الجلوس مع الشرح المفصل للعملاق ياسر خليل منقول للفائده بيانات الشهادات بمعية رقم الجلوس مع الشرح.rar شرح ولااروع لمن اراد فهم معادله الاندكس مع ماتش التعامل مع الدالتين index , match لايجاد نتيجة في جدول بدلالة صف و عمود فيه انسخ ماسبق وضعه في محرك البحث جوجل ============================= وذلك لاستجلاب بيانات الشهادات ==================== دعوه طيبه ولك مثلها
  7. الله يحفظك .. اليس هذا السطر لايجاد عدد الصفوف الموجود بها بيانات في صفحه بطاقه فرديه ؟ تجيب العدد الاجمالي منين !
  8. التسلسل في صفحة غير صفحه الطباعة اخي الكريم
  9. Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row _ Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub في الحاله دي مش هايعد عدد الطلاب الاجمالي ..لان الصفحه خاصه بطباعه البطاقتين .. واللا تفكيري راح لبعيد يا استاذ ياسر
  10. Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row _ Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub هل هيصبح الكود بهذا الشكل ؟
  11. جزاك الله خيرا كده هاتعد الصفوف في صفحه البطاقه واللا في اي صفحه ؟
  12. Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To 410 Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub كود مفيد .. جزاك الله كل خير استاذ ياسر الرقم 400 متغير .. ممكن لو سمحت تخليه مرن ياخد العدد من الصفحه الخارجيه
  13. Sub ABO_ABARY() Dim R As Integer, M As Integer, N As Integer Sheets("N_R").Range("A11:Z1010").ClearContents Sheets("N_R").Range("A11:Z1010").ClearFormats M = 10 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Select Case [C1] Case "ناجح نصف العام " For R = 12 To 1010 If Sheets("MAIN").Cells(R, 13) = "ناجح" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":N" & R), Sheets("MAIN").Range("S" & R), Sheets("MAIN").Range("AC" & R), Sheets("MAIN").Range("AM" & R), Sheets("MAIN").Range("AX" & R), Sheets("MAIN").Range("BI" & R), Sheets("MAIN").Range("BQ" & R), Sheets("MAIN").Range("BU" & R), Sheets("MAIN").Range("BZ" & R), Sheets("MAIN").Range("CE" & R), Sheets("MAIN").Range("CJ" & R), Sheets("MAIN").Range("CO" & R), Sheets("MAIN").Range("CU" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next Case "راسب نصف العام" For R = 12 To 1010 If Sheets("MAIN").Cells(R, 13) = "برنامج علاجى" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":N" & R), Sheets("MAIN").Range("S" & R), Sheets("MAIN").Range("AC" & R), Sheets("MAIN").Range("AM" & R), Sheets("MAIN").Range("AX" & R), Sheets("MAIN").Range("BI" & R), Sheets("MAIN").Range("BQ" & R), Sheets("MAIN").Range("BU" & R), Sheets("MAIN").Range("BZ" & R), Sheets("MAIN").Range("CE" & R), Sheets("MAIN").Range("CJ" & R), Sheets("MAIN").Range("CO" & R), Sheets("MAIN").Range("CU" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next Case "ناجح آخر العام" For R = 12 To 1010 If Sheets("MAIN").Cells(R, 15) = "ناجح" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":L" & R), Sheets("MAIN").Range("O" & R & ":P" & R), Sheets("MAIN").Range("Y" & R), Sheets("MAIN").Range("AI" & R), Sheets("MAIN").Range("AS" & R), Sheets("MAIN").Range("BE" & R), Sheets("MAIN").Range("BO" & R), Sheets("MAIN").Range("BS" & R), Sheets("MAIN").Range("BX" & R), Sheets("MAIN").Range("CC" & R), Sheets("MAIN").Range("CH" & R), Sheets("MAIN").Range("CM" & R), Sheets("MAIN").Range("CQ" & R), Sheets("MAIN").Range("DA" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next Case "راسب آخر العام" For R = 12 To 1010 If Sheets("MAIN").Cells(R, 15) = "دور ثان" Then M = M + 1 Union(Sheets("MAIN").Range("B" & R & ":L" & R), Sheets("MAIN").Range("O" & R & ":P" & R), Sheets("MAIN").Range("Y" & R), Sheets("MAIN").Range("AI" & R), Sheets("MAIN").Range("AS" & R), Sheets("MAIN").Range("BE" & R), Sheets("MAIN").Range("BO" & R), Sheets("MAIN").Range("BS" & R), Sheets("MAIN").Range("BX" & R), Sheets("MAIN").Range("CC" & R), Sheets("MAIN").Range("CH" & R), Sheets("MAIN").Range("CM" & R), Sheets("MAIN").Range("CQ" & R), Sheets("MAIN").Range("DA" & R)).Copy With Sheets("N_R") .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 10 End With Application.CutCopyMode = False Application.CutCopyMode = False End If Next End Select Application.Calculation = xlCalculationAutomatic End Sub جزاكم الله كل خير
  14. Sub TranResult1() ' الكود من ابداع المحترم زيزو العجوز 'الهدف من الكود استخراج الناجحين عن طريق قائمه منسدله 'تم عمل هذا الكود في 7/1/2017 Sheet8.Range("A12:Z500").ClearContents Dim An As Variant, Ar As Variant, LR As Long, R As Integer Application.ScreenUpdating = False Sheet3.Activate LR = Range("C" & Rows.Count).End(xlUp).Row An = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 19, 29, 39, 50, 61, 69, _ 73, 78, 83, 88, 93, 99) For i = LBound(An) To UBound(An) n = 11 For R = 12 To LR If Cells(R, "M") = "ناجح" Then n = n + 1 With Sheet8 .Cells(n, "A") = (n - 11) .Cells(n, i + 2) = Cells(R, An(i)) End With End If Next Next Sheet8.Select Application.ScreenUpdating = True End Sub جزاك الله خيرا ونتعشم في شرح اسطره