اذهب الي المحتوي
أوفيسنا

ناصر سعيد

05 عضو ذهبي
  • Content Count

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

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

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

275 Excellent

3 متابعين

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

  • الإسم الفعلي
    ناصر سعيد

البيانات الشخصية

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

اخر الزوار

2,202 زياره للملف الشخصي
  1. جزاك الله خيرا كثيرا الاستاذ القدير حماده الكود مفيد وياحبذا لو مسح الاسطر السابقه واضاف العدد المطلوب فقط في عده صفحات نريد ان ينسخ السطر السابع الموجود بصفحات مختلفه بالعدد المطلوب في نفس صفحاتهم
  2. الصف الأول الاعدادى 11 / 11 / 2019 https://up.top4top.net/downloadf-1413oye831-rar.html الصف الثانى الاعدادى 11 / 11 / 2019 https://up.top4top.net/downloadf-1413shpw41-rar.html
  3. مجرد سؤال وهل هذه الاكواد التي تريد حجبها بطريقه محكمه ملك لك يعني خرج الكود من بنات افكارك ام انك اخذتها من رجال يبتغون وجه الله الكريم واردت انت ان تغلقها باحكام شديد مجرد سؤال لو دامت لغيرك ماوصلت لك
  4. روابط اخرى لنقس الاصدار ونفس البرنامج == الصففين الاول والثاني https://up.top4top.net/downloadf-1400luo3b1-rar.html == الصف الثالث https://up.top4top.net/downloadf-1400xi7ad1-rar.html == الصفوف الرابع والخامس والسادس https://up.top4top.net/downloadf-1400f50c81-rar.html == روابط فيديوهات برنامج كنوز 2020 على قناة أكاديمية الصقر للتدريب. https://up.top4top.net/downloadf-1400wr7ze1-rar.html الروابط الصف الأول الاعدادى 3 / 11 / 2019 https://up.top4top.net/downloadf-1401n8d2n1-rar.html الصف الثانى الاعدادى 3 / 11 / 2019 https://up.top4top.net/downloadf-1401rrlbx2-rar.html
  5. أحبتى فى الله السلام عليكم ورحمة الله وبركاته ==== عاجــــــل ====== روابط التحميل فى نهاية المنشور تم بحمد الله تعالى ، الاستقرار على النسخة النهائية لبرنامج كنوز للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 حيث لم يردنى أى ملاحظات كثيرة على النسخة التجريبية التى تم نشرها فى 25/11 سوى 4 ملاحظات خفيفة تتعلق بحماية بعض الأوراق وما شابه ذلك والحمد لله تعالى تم التعديل عليها ============= الروابط الصفين الأول والثانى الابتدائى 1 / 11 / 2019 https://up.top4top.net/downloadf-13991rosc1-rar.html الصف الثالث الابتدائى 1 / 11 / 2019 https://up.top4top.net/downloadf-1399nx4oo1-rar.html الصفوف الرابع للسادس الابتدائى 1 / 11 / 2019 https://up.top4top.net/downloadf-1398a7qt33-rar.html منقول للفائدة
  6. ربنا يبارك فيك يا استاذ محمد
  7. جزاك الله كل خير استاذ مصطفى كنت اتمنى ان يكون التسطير بالعدد المطلوب فقط
  8. الكود من اعمال الاستاذ الكبير سليم حاصبيا تعديل بإضافة سطر لمسح المحتويات قبل الترحيل حتى لو أنه كان هناك تعديل لا يستبب في مشاكل التعديل للاستاذ الكبير احمد بدره Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select My_sh.Range("A5:t1005").ClearContents For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub جزاهم الله كل خير https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=163650
  9. نتعشم في اضافه ميزه التسطير التلقائي مع الخط الغامق وتوسيط الارقام والكلمات
  10. حفظكم الله ورعاكم ... يارب الاستاذ الكبير سليم والاستاذ احمد يبارك فيكما ربنا === نتعشم في اضافه ميزه التسطير التلقائي مع الخط الغامق وتوسيط الارقام والكلمات
  11. Private Sub ComboBox1_Change() Dim R As Integer, M As Integer, N As Integer, o As Integer ''''''''''''''''''''''''''''' M = 5: N = 5: o = 5 Application.ScreenUpdating = False For R = 5 To 100 If (Me.ComboBox1.Value = "ناجح" And Cells(R, 20) = "ناجح") Then Range("A" & R).Resize(1, 20).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf (Me.ComboBox1.Value = "دور ثانى" And Cells(R, 20) = "دور ثانى") Then Range("A" & R).Resize(1, 20).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان فى").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' Else If Me.ComboBox1.Value = "راسب" And Cells(R, 20) = "راسب" Then Range("A" & R).Resize(1, 20).Copy ''' سيتم اللصق في هذا الشيت Sheets("رسوب").Range("A" & o).PasteSpecial xlPasteValues Application.CutCopyMode = False o = o + 1 End If End If Next End Sub Private Sub textbox1_change() If TextBox1 = "" Then Exit Sub sheet3.Activate ss = sheet3.Cells(Rows.Count, 4).End(xlUp).Row k = 0 For Each c In Range("d5:d" & ss) If c Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(c.Row, 4).Value ListBox1.List(k, 1) = c.Row k = k + 1 End If Next c End Sub هذا هو الكود الذي وضعته في ملفك الاخير في حدث الصفحه
  12. كانت لي مشاركه هنا بخصوص تعريف للاخ حامد بان ملفه لايعمل وبناء عليه تم ارسال ملف اخر من الاخ حامد ولاادري من الذي حذف المشاركه حسبنا الله ونعم الوكيل الملف يعمل لكن ينقصه كود لادراج الاسطر الخاصه بالتسطير على حسب عدد الطلاب جزاك الله خيرا
×
×
  • اضف...