يوسف عطا

أستاذى الغالى عبدالله بك المجرب فى رأيى أن الإصدار الأول أفضل وأسهل فى التعامل خاصة فى حالة تمت إضافة صفحات للملف وجارى العمل على مشروع خاص بى بإستخدام الإصدارين لتبين أوجه الفرق بينهما وأتطلع أن تساعدنى قليلاً فى هذا المشروع حيث به بعض المشكلات منها أن الشيتات كلها تظهر لكل المستخدمين حتى لو تم منع بعضهم من معاينة بعضها ولى إقتراح يعتمد على فكرة تفعيل الصلاحيات ومنعها بإستخدام رقم 1 للإتاحة و رقم 2 للمنع المستخدمة فى الإصدار الأول وتعتمد على إستخدام 3 مستويات بـ 3 أرقام 1 للمشاهدة والتعديل 2 للمشاهدة فقط 3 لمنع رؤية الشيت وأسأل الله أن يوفقك فى كل أعمالك

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

مشكور على مشاركتك أخى الغالى ابو حنين ولكنى أريد كتابة إسم الشيت فى الكود بتسمية معينة غير التسمية التى هو مسمى بها فى الملف مثلاً الشيت الذى إسمه 15 سيرحل له الطالبات الناجحات والإحصاء تظهر لى كما يلى تم ترحيل 50 طالبة لشيت 15 أريد أن تظهر الإحصاء كما يلى تم ترحيل 50 طالبة لشيت الناجحات دون أن أغير إسم الشيت فى الملف فكيف اقوم بذلك الف شكر مقدماً

معذرة لدى إستفسار آخر فى نفس الكود الجزء الأخير من الكود يستخرج إحصائية بعدد الطالبات التى تم ترحيلها فى كل شيت المطلوب أن يذكر الكود الإسم الذى أريده للشيت المرحل إليه وليس رقم الشيت حيث قمت بترقيم الشيتات فى الملف وليس تسميتها لكثرة عددها الكود يذكر لى أن الشيت رقم 16 به عدد كذا طالبة والشيت رقم 17 به عدد كذا طالبة المطلوب أن يكون الإحصاء بغسم أضعه أنا بالكود وليس برقم الشيت عسى أن أكون أوضحت وجهة نظرى

الف شكر

الكود بالكامل كالتالى Dim Z As Integer, A As Integer, B As Integer Sheets("15").Range("A11:DZ5000").ClearContents Sheets("16").Range("A11:DZ5000").ClearContents A = 11: B = 11 Application.ScreenUpdating = False For Z = 11 To 5000 If Cells(Z, 1) = "ناجحة" Then Range("A" & Z).Resize(1, 33).Copy Sheets("15").Range("A" & A).PasteSpecial xlPasteValues Application.CutCopyMode = False ' A = A + 1 End If If Cells(Z, 1) = "لها دور ثان" Then Range("A" & Z).Resize(1, 33).Copy Sheets("16").Range("A" & B).PasteSpecial xlPasteValues Application.CutCopyMode = False B = B + 1 End If Next For Y = 16 To 17 Sheets(Y).[B11] = 1 rrw = Sheets(Y).[B3000].End(xlUp).Row For Each cc In Sheets(Y).Range("B12:B" & rrw) cc.Value = cc.Offset(-1, 0) + 1 Next cc Next Y MsgBox ("الحمد لله تـــم ترحيل الطالبات كل إلى نتيجتها طبقاً للإحصاء التالى ") For x = 16 To 17 Y = Sheets(x).[B3000].End(xlUp).Row - 10 mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & x Next x MsgBox (" تم ترحيل عدد" & mssg) Range("A1").Select Application.ScreenUpdating = True End Sub

الرجاء شرح السطر التالى فى كود ترحيل أو بمعنى أصح ترجمته cc.Value = cc.Offset(-1, 0) + 1

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

على حسب ما فهمت فالسائل يطلب بالإضافة لذلك أن يقوم الجهاز المتصل بالنت بإرسال إيميل لعنوان معين يفيد إن الكمبيوتر أونلاين وعلى حد علمى فهذا لا يتم إلا إذا كان الجهاز به سيرفر (ملف صغير جداً) يستخدمه الهاكرز يتم زرعه فى جهاز الضحية ويقوم هذا السيرفر بإرسال إيميل للهاكر عندما يكون جهاز الضحية أونلاين أما عن طريقة صنع السيرفر فهذا سهل وتوجد برامج عديدة لعمله ولكن فى حالتك هذه فلابد أن تكون أنت من يصنع السيرفر وببرنامج مسجل بإيميلك حتى يتمكن السيرفر من إرسال إيميل لك على نفس هذا الإيميل الذى سجلت به عندما يكون الجهاز أونلاين عسى أن أكون وفقت فى فهمى للمطلوب وطرحى لحل ومن أشهر البرامج التى تقوم بعمل سيرفر برنامج برورات ويوجد منه إصدار مجانى ويمكنك البحث عنه فى جوجل وإستخدامه ولكنى من باب الأمانة لابد أن أحذرك أن من يستخدم مثل هذه البرامج لابد أن يتعرض لمواقف متعددة ومضايقات من باقى الهاكرز ولا أعرف كيف يستطيعون الوصول إليك ولكن من باب الإحتياط خذ بالك ولا تجرب هذه الطريقة إلا إن كنت تعرف ماذا تفعل علماً بانى ليس لى أى علاقة بالهاكرز إلا فقط عندما تعرضت للتهكير فحاولت أن أتعلم من باب الحصول على مناعة فظفرت ببعض المعلومات

لإثراء الموضوع طبع 4 أو 6 شهادات محددة فى نفس الورقة طبع كل الشهادات كل 4 أو 6 شهادات فى ورقة واحدة وطبعاً حلول الأساتذة فى الأعلى أكثر من رائعة ولكن النت عندى مقطوع ويادوب بدخل من اليو إسبى مودم دقائق قليلة وبينقطع النت معى 4و6 شهادات.rar

الله ينور عليك أخى الغالى هل يمكن بنفس المنوال زيادة عدد المعايير وعدد الأعمدة المراد إستخراج النتائج منها ؟؟ وإلى كم معيار يمكن أن ننطلق ؟؟

الف مبروك الترقية مع إنها متأخرة لظروف إنقطاع النت عندى منذ 3 أيام وأنا الآن بدون إنترنت

عمل متعوب فيه وننتظر عمل على نفس المستوى به اللغة الفرنسية ويستوعب 1500 طالب

لا داعى للأسف أخى الغالى كل سنة ونت طيب

يا غالى لا يوجد تاريخ 31/6 لأن شهر 6 يكون 30 يوم فقط

وهذا حل آخر عزيزى الغالى يحقق المزيد من المرونة ويكتشف الخطأ إن وجد كما يعتمد على الإختيار من القوائم المنسدلة بدلاً من كتابة إسم المادة فيتحقق المزيد من الدقة وبرضه لو فى أى شئ أنا تحت أمرك ترحيل 4 شعب2.rar

تفضل المرفق أتمنى أن يفى بالغرض تغيير مواد الطلاب فى الشيت المجمع يتم فى الأعمدة من H إلى M وتلقائياً سيتم تغيير مواد الطلبة فى الأعمدة التى ترتبط بالمعادلات التى يعمل معها الكود ولو فى أى تعديل آخر تريده أنا تحت أمرك ترحيل 4 شعب.rar

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

أخى العزيز هل هذه التقديرات ستاندرد دولى أم تخضع للتغيير من مرحلة دراسية لمرحلة أخرى ومن بلد لبلد آخر ؟؟

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

ممكن تقولنا مثال عملى وإن شاء الله هتلاقى الحل

ارجو تحديد وتوضيح المشكلة هل هى فى المعادلة ام فى الكود الكود سليم والطلبة باللون الاحمر تم ترحيلهم لنفس اقسامهم لو المشكلة فى المعادلة اكمل شروط المواد ليتم تظبيط المعادلة

يا الغالى بدون إستئذان دى أعمالك كلها مفيدة وبصراحة بتعلم منها ومعادلاتك تنم على فكر عميق وعلم غزير

يمكن أن يتم ذلك عن طريق الكود والله أعلم

عن طريق معادلة فى التنسيق الشرطى إفتح التنسيق الشرطى إختار صيغة ضع المتغيرات التى تريدها فى معادلة إختار التنسيق أغلاق