ناصر سعيد

الرابط الاول اصبح لايعمل ولهذا  اتيت بهذا الرابط السريع حفاظا على هذا العمل الرائع

رابط الاسطوانة الصاروخي
http://ia601503.us.archive.org/29/it…cd-roaya-5.zip

جزاك الله خيرا كثيرا الاستاذ القدير حماده

الكود مفيد وياحبذا لو مسح الاسطر السابقه واضاف العدد المطلوب فقط

في عده صفحات

نريد ان ينسخ السطر السابع الموجود بصفحات مختلفه

  بالعدد المطلوب في نفس صفحاتهم

الصف الأول الاعدادى 11 / 11 / 2019

https://up.top4top.net/downloadf-1413oye831-rar.html

الصف الثانى الاعدادى 11 / 11 / 2019

https://up.top4top.net/downloadf-1413shpw41-rar.html

مجرد سؤال وهل هذه الاكواد التي تريد حجبها بطريقه محكمه ملك لك يعني خرج الكود من بنات افكارك ام انك اخذتها من رجال يبتغون وجه الله الكريم واردت انت ان تغلقها باحكام شديد

مجرد سؤال

لو دامت لغيرك ماوصلت لك

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

روابط اخرى لنقس الاصدار ونفس البرنامج

==

الصففين الاول والثاني

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

أحبتى فى الله
السلام عليكم ورحمة الله وبركاته
==== عاجــــــل ====== روابط التحميل فى نهاية المنشور
تم بحمد الله تعالى ، الاستقرار على النسخة النهائية
لبرنامج كنوز للكنترول المدرسى وشئون الطلبة ـ
الاصدار الخامس 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

منقول للفائدة

ربنا يبارك فيك يا استاذ محمد

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

جزاك الله كل خير استاذ مصطفى

كنت اتمنى ان يكون التسطير بالعدد المطلوب فقط

الكود من اعمال الاستاذ الكبير سليم حاصبيا
تعديل بإضافة سطر لمسح المحتويات قبل الترحيل حتى لو أنه كان هناك تعديل لا يستبب في مشاكل 
التعديل للاستاذ الكبير احمد بدره

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

نتعشم في اضافه ميزه التسطير التلقائي مع الخط الغامق وتوسيط الارقام والكلمات

========

من فضلكم مامعنى هذا السطر ؟

Dim R As Integer, M%: M = 5

حفظكم الله ورعاكم ... يارب

الاستاذ الكبير سليم

والاستاذ احمد

يبارك فيكما ربنا

===

نتعشم في اضافه ميزه التسطير التلقائي مع الخط الغامق وتوسيط الارقام والكلمات

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

هذا هو الكود الذي وضعته في ملفك الاخير في حدث الصفحه

كانت لي مشاركه هنا بخصوص

تعريف للاخ حامد بان ملفه لايعمل وبناء عليه تم ارسال ملف اخر من الاخ حامد

ولاادري من الذي حذف المشاركه

حسبنا الله ونعم الوكيل

الملف يعمل لكن ينقصه كود لادراج الاسطر الخاصه بالتسطير على حسب عدد الطلاب

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

الاستاذ سليم يحفظك الرحمن

=======

ماهو التعديل الذي اضفته استاذ حامد ؟

ضع الملف النهائي بعد التعديل استاذ حامد

ليستفيد منه غيرك

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

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

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

في ٦‏/٨‏/٢٠١٩ at 07:57, احمد بدره said:

 نم رفع الملف على جوجل درايف

https://drive.google.com/file/d/1kTGn5vW38la9fFHHHZW3B2Dq4sOYPO-1/view?usp=sharing

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

لو تكرمت ارفعها على موقع اخر او جزأها حتى تستطيع تحميلها على المنتدى لعدم الضياع

للرفع للاستفاده

اولا جزاك الله خيرا وبارك فيك اخي الكريم الاستاذ علي

من فضلك ارفع ملف الاستاذ عبد الله باقشير ..

على موقع رفع سهل او اعد انت رفع الملف الموجود ونشوف الدنيا فيها ايه

بارك الله لك

ولاانسى ان اقول لك كل عام وانت ومن تحب بكل خير

مش عارف احمل الملف من فضل احد الاخوة

ان استطاع تحميل الملف

ان يرفع الملف على رابط خارجي سهل وله جزيل الشكر مقدما