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

ناصر سعيد

05 عضو ذهبي
  • Content count

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

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

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

219 Excellent

3 متابعين

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

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

Profile Information

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

اخر الزوار

1,153 زياره للملف الشخصي
  1. لم يستقر استاذ محمد الدسوقي على رابط وهذا اخر رابط له ======== روابط التحميل ـ بتاريخ 14 / 10 /2017 ============ الصف الأول http://www.mediafire.com/…/%D8%A7%D9%84%D8%A3%D9%88%D9%84_%… الصف الثانى http://www.mediafire.com/…/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D… الصف الثالث http://www.mediafire.com/…/%D8%A7%D9%84%D8%AB%D8%A7%D9%84%D… الصف الرابع http://www.mediafire.com/…/%D8%A7%D9%84%D8%B1%D8%A7%D8%A8%D… الصف الخامس http://www.mediafire.com/…/%D8%A7%D9%84%D8%AE%D8%A7%D9%85%D… الصف السادس http://www.mediafire.com/…/%D8%A7%D9%84%D8%B3%D8%A7%D8%AF%D… كل الصفوف لوكشة واحدة ( لأصحاب النت السريع ) http://www.mediafire.com/…/%D9%83%D9%86%D8%AA%D8%B1%D9%88%D… تعليمات التشغيل http://www.mediafire.com/…/%D8%AA%D8%B9%D9%84%D9%8A%D9%85%D…
  2. ارسل تقرير عن المشاركه قام بنشر Friday في 12:05 ملف التطبيق http://www.mediafire.com/file/yr1rrb7... ============================== http://gulfup.co/itpyj0db0zzp ================================ رابط اخر https://up.top4top.net/downloadf-644qz4ck1-rar.html ============== Sub sajida() '=================== 'هذا الكود للنابغه ساجدة العزاوي 'الهدف من الكود هو استخراج وطباعه شهادات الناجحين 'كل 4 شهادات في صفحه واحده 'تم هذا الكود في 6/10/2017 '=*=*=*=*=*=*=* Dim SHehada As Worksheet, DATA As Worksheet, Z As Range Set DATA = Worksheets("رصد الترم الثانى") 'اسم شيت قاعدة البيانات Set SHehada = Worksheets("4شهادات") 'اسم الشيت الخاص بالشهادات Dim myArray, targt targt = "ناج*" 'خلية البحث Set Z = SHehada.Range("M3") '=================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة عن التوزيع في ورقة مصدر البيانات For i = 7 To lr '======= If DATA.Cells(i, 101) Like targt & "*" And c = 0 Then ' If (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 0 Then Z = DATA.Cells(i, 2) c = c + 1 '=== ' ElseIf (DATA.Cells(i, 101) Like "*" & "ناج" & "*" And c = 1 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 1 Then SHehada.Range("M19") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 2 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 2 Then SHehada.Range("M35") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 3 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 3 Then SHehada.Range("M51") = DATA.Cells(i, 2) c = c + 1 End If If i = lr And c = 4 Then SHehada.Range("a1:p63").PrintOut: Exit For If i = lr And c = 3 Then SHehada.Range("a1:p47").PrintOut: Exit For If i = lr And c = 2 Then SHehada.Range("a1:p31").PrintOut: Exit For If i = lr And c = 1 Then SHehada.Range("a1:p15").PrintOut: Exit For If i < lr And (SHehada.Range("M19") = "" Or SHehada.Range("M35") = "" Or SHehada.Range("M51") = "") Then GoTo 1 If i < lr And c = 4 Then SHehada.Range("a1:p63").PrintOut c = 0 Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" 1: Next i Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" Application.ScreenUpdating = True End Sub
  3. الصف الخامس الابتدائي https://up.top4top.net/downloadf-6472fond1-rar.html **************************** الصف السادس الابتدائي https://up.top4top.net/downloadf-647imcs11-rar.html ************************
  4. رابط جديد https://up.top4top.net/downloadf-647cenhg1-rar.html ============ الصف الثاني الابتدائي ************************* الصف الثالث الابتدائي https://up.top4top.net/downloadf-647elebf1-rar.html ***************************** ************************* الصف الرابع الابتدائي https://up.top4top.net/downloadf-647np9vq1-rar.html ***************
  5. اصبحت الروابط لاتعمل استاذ محمد الدسوقي صاحب البرنامج
  6. استاذ محمد الدسوقس رابط الصف الاول لايعمل
  7. كيف يتم الفك .. بصفه عامه ؟
  8. ربنا يحفظك ويصونك يارب استاذ mennad sofiane =================== ارجو ان تفرد موضوعا خاصا ببرنامج فك الحمايه ..
  9. الاستاذ محمد صاحب البرنامج غير الروابط لوجود ملحوظات في الروابط الاولى وهاهي الروابط السليمه التي ارسلها لي الصف الأول الابتدائى https://up.top4top.net/downloadf-644fyhh01-rar.html الصف الثانى الابتدائى https://up.top4top.net/downloadf-644625hr1-rar.html الصف الثالث الابتدائى https://up.top4top.net/downloadf-644ncguz2-rar.html الصف الرابع الابتدائى https://up.top4top.net/downloadf-6448q4zc1-rar.html الصف الخامس الابتدائى https://up.top4top.net/downloadf-644vb2bj2-rar.html الصف السادس الابتدائى https://up.top4top.net/downloadf-644cppon3-rar.html ولأصحاب النت السريع ( كل الملفات فى مجلد واحد ) https://up.top4top.net/downloadf-644oak3b1-rar.html
  10. ادعو الله ان يقع طلب فك الحمايه عن الاكواد والمعادلات على الاستاذ محمد الدسوقي وقعا حسنا ويعطي نسخه مفكوكه محرر اكوادها ومعادلاتعا لتكون من باب علم ينتفع به
  11. أقدم لكم اليوم أحدث إصدار لبرنامج الكنترول المدرسى 2018 بتعديلاته الجديدة بعد إلغاء الميدتيرم كلمة سر فتح البرنامج هى 2018 ـ يمكن تغيرها بعد ذلك كما تشاء روابط التحميل الصف الأول الابتدائى https://up.top4top.net/downloadf-644oxmrq1-rar.html الصف الثانى الابتدائىhttps://up.top4top.net/downloadf-6443d66z2-rar.html الصف الثالث الابتدائى https://up.top4top.net/downloadf-6441sp3i3-rar.html الصف الرابع الابتدائى https://up.top4top.net/downloadf-644ucgqz1-rar.html الصف الخامس الابتدائى https://up.top4top.net/downloadf-644vl68z2-rar.html الصف السادس الابتدائى https://up.top4top.net/downloadf-644fepsm3-rar.html ولأصحاب النت السريع ( كل الملفات فى مجلد واحد ) https://up.top4top.net/downloadf-644ki4dr1-rar.html
  12. ملف التطبيق http://www.mediafire.com/file/yr1rrb7... ============================== http://gulfup.co/itpyj0db0zzp ================================ رابط اخر https://up.top4top.net/downloadf-644qz4ck1-rar.html ================= Sub sajida() '=================== 'هذا الكود للنابغه ساجدة العزاوي 'الهدف من الكود هو استخراج وطباعه شهادات الناجحين 'كل 4 شهادات في صفحه واحده 'تم هذا الكود في 6/10/2017 '=*=*=*=*=*=*=* Dim SHehada As Worksheet, DATA As Worksheet, Z As Range Set DATA = Worksheets("رصد الترم الثانى") 'اسم شيت قاعدة البيانات Set SHehada = Worksheets("4شهادات") 'اسم الشيت الخاص بالشهادات Dim myArray, targt targt = "ناج*" 'خلية البحث Set Z = SHehada.Range("M3") '=================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة عن التوزيع في ورقة مصدر البيانات For i = 7 To lr '======= If DATA.Cells(i, 101) Like targt & "*" And c = 0 Then ' If (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 0 Then Z = DATA.Cells(i, 2) c = c + 1 '=== ' ElseIf (DATA.Cells(i, 101) Like "*" & "ناج" & "*" And c = 1 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 1 Then SHehada.Range("M19") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 2 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 2 Then SHehada.Range("M35") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 3 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 3 Then SHehada.Range("M51") = DATA.Cells(i, 2) c = c + 1 End If If i = lr And c = 4 Then SHehada.Range("a1:p63").PrintOut: Exit For If i = lr And c = 3 Then SHehada.Range("a1:p47").PrintOut: Exit For If i = lr And c = 2 Then SHehada.Range("a1:p31").PrintOut: Exit For If i = lr And c = 1 Then SHehada.Range("a1:p15").PrintOut: Exit For If i < lr And (SHehada.Range("M19") = "" Or SHehada.Range("M35") = "" Or SHehada.Range("M51") = "") Then GoTo 1 If i < lr And c = 4 Then SHehada.Range("a1:p63").PrintOut c = 0 Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" 1: Next i Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" Application.ScreenUpdating = True End Sub '=*=*=**=*=*=*=*=*
  13. طباعه 4 شهادات في صفحه واحده

    الله يسعد ايامكم وايامنا يارب هذا هو الملف وهذا هو الكود Sub sajida() '=================== 'هذا الكود للنابغه ساجدة العزاوي 'الهدف من الكود هو استخراج وطباعه شهادات الناجحين 'كل 4 شهادات في صفحه واحده 'تم هذا الكود في 6/10/2017 '=*=*=*=*=*=*=* Dim SHehada As Worksheet, DATA As Worksheet, Z As Range Set DATA = Worksheets("رصد الترم الثانى") 'اسم شيت قاعدة البيانات Set SHehada = Worksheets("4شهادات") 'اسم الشيت الخاص بالشهادات Dim myArray, targt targt = "ناج*" 'خلية البحث Set Z = SHehada.Range("M3") '=================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة عن التوزيع في ورقة مصدر البيانات For i = 7 To lr '======= If DATA.Cells(i, 101) Like targt & "*" And c = 0 Then ' If (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 0 Then Z = DATA.Cells(i, 2) c = c + 1 '=== ' ElseIf (DATA.Cells(i, 101) Like "*" & "ناج" & "*" And c = 1 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 1 Then SHehada.Range("M19") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 2 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 2 Then SHehada.Range("M35") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 3 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 3 Then SHehada.Range("M51") = DATA.Cells(i, 2) c = c + 1 End If If i = lr And c = 4 Then SHehada.Range("a1:p63").PrintOut: Exit For If i = lr And c = 3 Then SHehada.Range("a1:p47").PrintOut: Exit For If i = lr And c = 2 Then SHehada.Range("a1:p31").PrintOut: Exit For If i = lr And c = 1 Then SHehada.Range("a1:p15").PrintOut: Exit For If i < lr And (SHehada.Range("M19") = "" Or SHehada.Range("M35") = "" Or SHehada.Range("M51") = "") Then GoTo 1 If i < lr And c = 4 Then SHehada.Range("a1:p63").PrintOut c = 0 Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" 1: Next i Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" Application.ScreenUpdating = True End Sub '=*=*=**=*=*=*=*=* ================================ http://gulfup.co/itpyj0db0zzp ================================ رابط اخر https://up.top4top.net/downloadf-644qz4ck1-rar.html
  14. استاذ ياسر خليل السلام عليكم ورحمة الله وبركاته جزاك الله خيرا وبارك فيك .. آمين يارب العالمين وبعد : Sub القيم_الفريده() 'هذا الكود تم بواسطه المحترم ياسر خليل 'الهدف من الكود 'الاتيان بالقيم الفريده لبيانات في عمود 'تم في 31/8/2017 Dim rng As Range Dim a As Variant Dim ws As Worksheet 'اسم الخليه في صفحه الهدف ' التي ستظهر بها القيم القريده Const strTRng As String = "D4" 'في صفحه الهدف العمود المطلوب ' وضع القيم الفريده فيه Const strHRng As String = "D4:D1000" 'في صفحه المصدر العمود المطلوب ' استخراج القيم الفريده منه Const strSRng As String = "C10:C200" 'اسم الشيت في صفحه المصدر Const str As String = "Sheet1" Set ws = Sheets(str) '====================== 'نفترض وجود بيانات كأسماء في النطاق المذكور Set rng = ws.Range(strSRng) ActiveSheet.Range(strHRng).ClearContents 'تخزين النتائج في مصفوفة a = GetDistinct(rng) 'النطاق المطلوب وضع النتائج للأسماء الغير مكررة فيه ActiveSheet.Range(strTRng).Resize(UBound(a, 1) + 1) = Application.Transpose(a) 'فرز العمود المنقول اليه القيم الفريده [D4:D200].Sort [D4], xlAscending 'عمود القيم الفريده ستتم عليه بعض التنسيقات With ActiveSheet.Range(strHRng) 'تنسيق العمود تكست .EntireColumn.NumberFormat = "@" .Font.Bold = True .ReadingOrder = xlRTL: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With End Sub Function GetDistinct(ByVal oTarget As Range) As Variant Dim dic As Object Dim vArr As Variant Dim v As Variant Set dic = CreateObject("Scripting.Dictionary") vArr = oTarget For Each v In vArr If Not IsEmpty(v) Then dic(v) = v Next v GetDistinct = dic.Items() End Function ================ منقول للافاده من http://excel-egy.com/forum/t68&count=12
  15. استاذ ياسر خليل السلام عليكم ورحمة الله وبركاته جزاك الله خيرا وبارك فيك .. آمين يارب العالمين وبعد : Sub القيم_الفريده() 'هذا الكود تم بواسطه المحترم ياسر خليل 'الهدف من الكود 'الاتيان بالقيم الفريده لبيانات في عمود 'تم في 31/8/2017 Dim rng As Range Dim a As Variant Dim ws As Worksheet 'اسم الخليه في صفحه الهدف ' التي ستظهر بها القيم القريده Const strTRng As String = "D4" 'في صفحه الهدف العمود المطلوب ' وضع القيم الفريده فيه Const strHRng As String = "D4:D1000" 'في صفحه المصدر العمود المطلوب ' استخراج القيم الفريده منه Const strSRng As String = "C10:C200" 'اسم الشيت في صفحه المصدر Const str As String = "Sheet1" Set ws = Sheets(str) '====================== 'نفترض وجود بيانات كأسماء في النطاق المذكور Set rng = ws.Range(strSRng) ActiveSheet.Range(strHRng).ClearContents 'تخزين النتائج في مصفوفة a = GetDistinct(rng) 'النطاق المطلوب وضع النتائج للأسماء الغير مكررة فيه ActiveSheet.Range(strTRng).Resize(UBound(a, 1) + 1) = Application.Transpose(a) 'فرز العمود المنقول اليه القيم الفريده [D4:D200].Sort [D4], xlAscending 'عمود القيم الفريده ستتم عليه بعض التنسيقات With ActiveSheet.Range(strHRng) 'تنسيق العمود تكست .EntireColumn.NumberFormat = "@" .Font.Bold = True .ReadingOrder = xlRTL: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With End Sub Function GetDistinct(ByVal oTarget As Range) As Variant Dim dic As Object Dim vArr As Variant Dim v As Variant Set dic = CreateObject("Scripting.Dictionary") vArr = oTarget For Each v In vArr If Not IsEmpty(v) Then dic(v) = v Next v GetDistinct = dic.Items() End Function ================ منقول للافاده من http://excel-egy.com/forum/t68&count=12
×