عبدالله باقشير

السلام عليكم إن شاء الله سيتم اضافة ماتريد اذا كان المدرس يدرس اكئر من مادة هل ممكن ان يدخل فصلين في نفس الحصة!!!! ------------------------------------- الاستاذ ايسم منتظرين ردك على قوائم الفصول --------------------------------------

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

السلام عليكم بعد اذن اخي بن علية شاهد المرفق: مشروع كشوف الطلاب_4.rar

السلام عليكم بارك الله فيك اخي الحبيب /ابو عبدالله وجزاك الله خيرا تقبل تحياتي وشكري

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

السلام عليكم والله الاستاذ يحي حسين رجل كريم يستاهل كل خير وانا اساسا احبه في الله واشكرك نيابة عنه وعن جميع محبية فما جزاء الاحسان الا الاحسان اما عنك يا اخي مصطفى فتبطي علينا بظهورك واتمنى ان يكون المانع خيرا فودنا ان تكون دائما معنى تقبل تحياتي وشكري

السلام عليكم بارك الله فيك اخي مزلزل تقبل تحياتي وشكري

السلام عليكم استخدم الكود التالي: Private Sub CommandButton4_Click() Dim MyAr Dim MySh As Worksheet Dim C As Integer Set MySh = Sheets("farest") MyAr = Array("E:BH", "AH:BB", "BJ:CD", "CK:FP", "FW:IV") With MySh .Cells.EntireColumn.Hidden = False .Rows("1:15").EntireRow.Hidden = True For C = 0 To 4 .Columns(MyAr(C)).EntireColumn.Hidden = True Next .PrintPreview End With End Sub

السلام عليكم احذف السطر هذا من الكود: If Application.CountA(Range("kh_kashf")) = 89 Then Else MsgBox "توجد خلايا فارغة", vbMsgBoxRight + vbCritical, "تنبيه"

السلام عليكم ولكن يتم تعطيل كل الأزرار التي بها أوامر للدخول لتلك الصفحات المخفية ما العمل ؟؟ الورقة مخفية فيجب اظهارها قبل الانتقال اليها لنقل مثلا الورقة اللي اسمها "khboor" ضف الى كود الانتقال اليها في بداية الكود Sheets("khboor").Visible = True ثم انتقل اليها Sheets("khboor").Select

السلام عليكم شاهد المرفق جمع ارقام في نص.rar

السلام عليكم ملف رائع جزاك الله خيرا وعفوا على تاخير تحميل الملف

السلام عليكم شاهد المرفق mm.rar

السلام عليكم شاهد الرابط التالي: http://www.officena.net/ib/index.php?showtopic=30478&st=0&p=152688&hl=%C7%CE%DD%C7%C1&fromsearch=1&#entry152688

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

السلام عليكم الاخ / كات انتظرت ردك طويلا ولكن لم يوصل الا بعد طلبي شرح فكرتك نعم حتى اعمل على وضع ما اردته من اطروحة الفترات والاخوة لم يردوا واظن ان الفكرة فكرتك وعليك ان تشرح الطلب بالتفصيل ان اردتم ذلك فانا مجرد (مطورعلى قدي) ولست مبرمجا وليس لي علاقة بالتدريس لاعرف ما تريدون وانا على استعداد للخدمة ولكن لم تبخلوا علينا بالشرح فهل من ملبي ؟؟؟

السلام عليكم لقد اتممت طلب الاخ ناصر سعيد بالنسبة للتذييل واتممتت طلب الاخ ايسم بالنسبة لعمل قوائم للفصول خاصة بالمدرسين ولك الحرية في استخدامها او عدم استخدامه من زر التشييك في الاساسية الطلب الخاص بالاخ كات لم استطع افهم عل اي اساس نعمل نصف الفترة لو في شرح مفصل اكثر حتى نفهم ايه المطلوب بالضبط ارجوا مراجعة المرفق لما تم اضافته وابداي الراي في ما عملناه وافيدوني بما طلبت بالنسبة لنصف الفترة ودمتم في حفظ الله برنامج الجدول المدرسي1.rar

السلام عليكم بارك الله فيك اخي يحي تقبل تحياتي وشكري سؤال: اخي لماذا لم تحمل على المنتدى ؟ هل لديك مشكلة في التحميل ؟ لقد قمت بتحميل الملف في مشاركتك اعلاه نيابة عنك

السلام عليكم بعد اذن اخي طارق واخي new4a جزاهما الله خيرا استخدم المعادلة التالية: =SUMPRODUCT(($K$7:$K$16=$L3)*(INT($N$7:$N$16)=$N$3)) وقد اخرجنا التاريخ فقط بدون توقيت بالدالة INT

السلام عليكم الاخ / محمد لا توجد بيانات لهذا المعيار في العمود f في بيانات النطاق base في مرفقك ------------------------------------- جزاك الله خيرا اخي الكريم taksmdz غير سطر الشرط في الكود If .Cells(R, 6) = Range("E4") And .Cells(R, 7) = Range("F4") Then

السلام عليكم الاخ الفاضل / mandoonet ------حفظه الله الله يكرمك ----------------------------------- الاخ الفاضل / خالد القدس------حفظه الله نعم وجدتها في البريد الغير مرغوب فيه جزاك الله خيرا تقبلوا تحياتي وشكري

السلام عليكم اخي الفاضل / خالد القدس -----حفظه الله موضوع رائع جدا ومشاركة فياضة بالخير ومتابعة ومثابرة جادة بارك الله فيك وجزاك الله خيرا ---------------------------------------- عندي استفسار لقد سجلت في الموقع يوم امس واشعرني ان التسجيل تم بنجاح وعلى اساس ستاتيني رسالة بالبريد لتاكيد الحساب ولم تاتيني هذه الرسالة. واعدت الكرة مرة اخرى اليوم وايضا نفس الحكاية هل عندك تفسير لما ذكر اعلاه؟؟ ودمت في خير وبركة اخوك خبور خير

السلام عليكم عمل رائع اخي طارق وشرح اروع بارك الله فيك تقبل تحياتي وشكري

السلام عليكم تم التعديل على الكود ليتوافق مع طلبك Sub kh_START() Dim MyRange As Range Dim R As Integer, N As Integer, M As Integer, C As Integer, CC As Integer Set MyRange = Range("base") kh_ClearContents 'عدد السطور الخارجة عن نطاق الاستدعاء N = 6 Application.ScreenUpdating = False With MyRange For R = 1 To .Rows.Count If .Cells(R, 1) = "" Then GoTo 1 If .Cells(R, 6) = Range("E4") Then M = M + 1 Cells(N + M, 1) = M For C = 1 To 6 CC = Choose(C, 2, 3, 4, 5, 8, 10) Cells(N + M, C + 1) = .Cells(R, CC) Next C End If 1 Next R End With 'تسطير الصفوف المحتوية على البيانات With Range("A7:H" & N + M) .Borders.LineStyle = 2 End With Application.ScreenUpdating = True End Sub تفضل المرفق ترحيل القوائم1.rar

السلام عليكم يتم استدعاء البيانات الخاصة بكل ورقة بدلالة اسمها عند دخولك عليها بكود الحدث: Private Sub Worksheet_Activate() KH_START End Sub وهذا الكود المعني بالاستدعاء Sub KH_START() Dim S As String Dim R As Integer, RR As Integer, C As Integer, CC As Integer S = ActiveSheet.Name Application.ScreenUpdating = False Range("J5:M2000" ).ClearContents With ورقة1 For R = 5 To .Range("K2000").End(xlUp).Row If .Cells(R, "K") = S Then RR = RR + 1 For C = 1 To 4 CC = Choose(C, 10, 12, 13, 14) Cells(RR + 4, C + 9) = .Cells(R, CC) Next C End If Next R End With Application.ScreenUpdating = True End Sub تفضل المرفق استدعاء الى اوراق العمل.rar