الحديثة

عند عمل كتشنة او فك الكتشنة اجد هذا الرقم ثابت والمفروض يتغير كما يوجد فى شيت امتحان اخر العام كما يوجد بالعمود الاصفر لكن المعادلة لا تغير الارقام 2 (2).rar

كيف اضافة if اذا كانت a6 = a5 فى شيت اخر تعمل الدالة مظبوط

او اضافة if مع VLOOKUP لضبط

او دالة اخرى تعمل مع تغير الارقام

عند عمل كتشنة او فك الكتشنة اجد هذا الرقم ثابت والمفروض يتغير كما يوجد فى شيت امتحان اخر العام كما يوجد بالعمود الاصفر لكن المعادلة لا تغير الارقام 2 (2).rar

استاذى العزيز الفاضل حمادة عمر اللهم اغفر له وارحمة وعافه واغفر له واسكنه واسع جنة اللهم امين لك كل الشكر والتقدير والاحترام على الرد فى شيت aaa لا يغير الارقام مع الاسم اذا وضع رقم امام الاسم محمد 1 فى اللغة العربية 20 عند عمل كتشنة لا يتغير الرقم فى شيت aaa مع العلم ان المدى فى الشيت aaa من a5: m300 وفى الشيت nnn من a6:bu300

استاذى المحترم الفاضل حمادة عمر اليك ملف اريد ان ينفذ هذا الكود على111.rar شيت امتحان اخر العام وشيت النتيجة مع العلم جربت هذا الكود ولم يظبط معى Sub كتشنة() Sheets("شيت النتيجة").Select Range("A6:bu300").Sort Key1:=Range("h6"), Order1:=xlAscending Sheets("امتحان اخر العام").Select Range("a5:m300").Sort Key1:=Range("d6"), Order1:=xlAscending End Sub Sub فك() Sheets("شيت النتيجة").Select Range("g6").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range("A6:bu300").Sort Key1:=Range("g6"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 Sheets("امتحان اخر العام").Select Range("b5").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range("A6:bu300").Sort Key1:=Range("b5"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 End Sub 111.rar

اضافة اسم الصفحة لهذا الكود وليكون ورقة 1 واضافة نفس الكود لورقة 2 يعنى االكود بنفذ الامر على الورقة 1 والورقة 2 Sub كتشنة() Range("A5:m300").Sort Key1:=Range("d5"), Order1:=xlAscending End Sub Sub فك() Range("b5").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range("A5:m300").Sort Key1:=Range("b5"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 End Sub يعنى كود دة هيكون فى ورقة 1 ينفذ الامر على ورقة 1 وينفذ على ورقة 2 مع تغير المدى للورقة الثانية وليكن من a6 الى bi300

المطلوب اضافة اسم الشيت الى هذا الكود

كيف يمكن اضافة اسم الشيت فى هذا الكود اذا كانت ورقة 1 وزيادة وزيادة الكود لورقة اخرى وليكن ورقة 2 Sub كتشنة() Range("c3").Select Range(Selection, Selection.End(xlDown)).Select Range("A3:bi310").Sort Key1:=Range("d3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 End Sub Sub فك() Range("b3").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range("A3:bi310").Sort Key1:=Range("b3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveWindow.ScrollRow = 1 End Sub

او اى حل اخر

او بالمعادلات مع العلم ان شيت امتحان اخر العام هو الذى يرسل درجة 50 الى شيت النتيجة

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

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

تعديل كود توليد الارقام ليكون البداية d5

تعديل كود توليد الارقام ليكون البداية d5 ww.rar

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

ما هى المشكلة فى هذا الكود

الرجاء التعديل على كود الكتشنة يترك الاسم الاول اذا وضع امامة ارقام فى المواد الدراسية حمد 1.rar

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

زيادة شرط لو العمود c6 :c41 dيوجد به رقم 2 يخرج عدد الغائب بنين لو رقم 1 يخرج عدد الغئب بنات مرفق مثال به شرح المطلوب aa_2.rar

استاذى الفاضل المحترم سليم لك كل شكر وتقدير واحترام على ما تعودنا من هذا الصرح العظيم والاساتذة الافاضل الكرم المعادلة تمام هل ممكن زيادة شرط من العمود c6 :c41 لو يساوى 2 يكون العدد الى يساوى 2 فى خلية العدد واحد لوحدة فى خلية

استاذى العزيز لك كل الشكر والتقدير على سرعة الرد و لقد حاولت مع المعادلة ولكن المعادلة تعطى هذا الخطأ aa_2.rar

الربط بين تاريخ الموجود وتاريخ الكمبيوتر الصف 5 لاحضار الغائب كل يوم من الصف 41 ومرفق مثال aa_2.rar

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