ehabaf2

السلام عليكم الاخوة الافاضل كل عام وحضراتكم بخير للمرة الثانية بكرر نفس الطلب ارجو من حضراتكم المساعدة فى عمل كود استخراج متوسط درجات الطلاب من جدول خلال فترة محددة بين تاريخين الف الف شكر لحضراتكم مرفق ملف لتوضيح المطلوب ترحيل بالتاريخ.xlsx

السلام السادة الافاضل كل و حضراتكم بخير محتاج كود VBA يقوم باستخراج متوسط درجات الطلاب فى كل قسم خلال فترة محددة من الجدول الملون باللون الاخضر الى الجدول الملون باللون الاصفر درجة الطالب الموجودة فى عمود التقيم الملون باللون الاخضر متوسط الدرجات = مجموع الدرجات / عدد مرات التدريب مثلا لو طالب دخل الورشة تزجة1 مرتين اول مره حصل على 9 درجات و المرة الثانية حصل على 7 درجات يبقي المتوسط 8 درجات الف شكر لمجهود حضراتكم مرفق ملف للتوضيح ترحيل بالتاريخ.xlsx

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

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

السلام عليكم استاذنا الفاضلabouelhassan الف الف شكر لمجهود حضرتك بس فى تعديل انا عاوز الخلية تتلون لما اجي اعدل فيها يعني اكتب اول مرة عادى متتلونش اما لو عدلت تتلون الخلية الف الف شكر لحضرتك و كل سنة وحضرتك و الاسرة الكريمة بالف خير و سعادة

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

السلام عليكم السادة اعضاء الجروب الافاضل استاذنا الغالى محمد هشام الف الف شكر لحضرتك و لتعبك الكود يعمل و ينفذ المطلوب بمنتهى الاحترافيه زادك الله من فضله و علمه و بارك الله فيك و فى اسرتك الكريمة

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

السلام السادة الافاضل خبراء الموقع المحترم اوفيسنا ارجو كود ترحيل بيانات من اعمدة محددة بناء على شرط فى اكثر من عمود مرفق الملف المطلوب العمل عليه الف الف شكرا لحضراتكم ملف عمليات.xlsx

السلام عليكم السادة الافاضل لو ممكن حد يشرح لى تفعيل برنامج Passware Kit 2022 v2 (64-bit) و السريال الخاص بيه لانى نزلته و للاسف نسخة ديمو لا تعمل و بحثت كتير على النت دون جدوى و لكم جزيل الشكر

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

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

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

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

السلام عليكم السادة الافاضل كنت محتاج شرح اسطر الكود لكي افهم طبيعة عمله و اتمكن من تعديل النطاق اللي بيعمل عليه ( الكود لاستخراج الطلبة الضعاف ) و لكم جزيل الشكر Sub LastTest2() '-------------------- كود استخراج الطلاب الضعاف '-------------------- Dim i As Long, ws As Worksheet, Rng As Range Dim C As Range, p As Integer, x Dim Shp As Shape, Nam As String Set ws = Sheets("الاول") Application.ScreenUpdating = False Range("ay5:az71") = "" Set Shp = ws.Shapes(Application.Caller) Nam = Shp.TextEffect.Text ws.Range("KN1") = " ÇáØáÇÈ ÇáÖÚÇÝ ÇÞá ãä 65 % á" & Nam p = 4 i = 5 Do While i <= 70 With ws Select Case Nam Case "شهر 10" x = Array(214, 215, 216, 217, 218, 219, 220, 224, 228, 232, 236, 240, 244, 248) Case "شهر 11" x = Array(214, 215, 216, 217, 218, 219, 221, 225, 229, 233, 237, 241, 245, 249) Case "شهر 12" x = Array(214, 215, 216, 217, 218, 219, 222, 226, 230, 234, 238, 242, 246, 250) Case Else End Select For j = LBound(x) To UBound(x) Set Rng = .Cells(i, x(j)) For Each C In Rng y = .Cells(4, x(j)) * 0.65 If .Cells(i, x(j)) < y Then m = m + 1 If m > 1 Then GoTo 88: p = p + 1 For a = 0 To 13 .Cells(p, a + 298) = .Cells(i, x(a)) .Cells(p, 298) = p - 4 Next End If Next Next End With 88: m = 0 i = i + 1 Loop End Sub

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

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

السلام عليكم الاخوة الكرام محتاج كود يبستخرج الطلاب الضعاف فى امتحان الشهر و لكم جزيل الشكر مرفق ملف توضيحي اكرر شكري لحضراتكم اعضاء الجروب المحترم و المفيد لكل الناس كود الضعاف.xlsx

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

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

السادة الخبراء الافاضل الف الف شكر للاهتمام و المعرفة زادكم الله من علمه و فضله

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

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

استاذنا الفاضل احمد عبدالحليم بعد اذن حضرتك محتاج فقط تعديل مكان خلية اظهار توايخ الغياب نظر لنقل مكان التسجيل مثلا من الخلية R8 و الخلية R10 الى الخلية AB8 و الخلية AB10 الحمد للحمد لله باقى الخلايا غيرتها و الف شكر لحضرتك و اهتمامك

استاذنا الفاضل احمد عبدالحليم الف الف شكر لمرور حضرتك الكريم بالفعل عملت التغيرات فى الكود و كله تمام عدا خلية اظهار التاريخ معرفتش اعدلها مرفق لحضرتك الملف و لو مفيهاش اي تعب لحضرتك تعدلى الكود و الف الف شكر على الشرح و بمنتهى الامانه كنت فى قمة السعادة و انا بعدل الكود و بشوف الناتج زادك الله من علمه و فضله غياب يومية.xlsm