بن علية حاجي

السلام عليكم أو هذه المعادلة (في الخلية C2 وسحبها نزولا): =IFERROR(OFFSET($I$1;MATCH($A2;$H:$H;0)-1;0);"/") بن علية حاجي

السلام عليكم جرب الكود التالي: Sub tasfia() ActiveSheet.Unprotect Password:="Write here your password" Application.ScreenUpdating = False Sheets("الدرجات").Range("A4:Q404").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("تصفية").Range("G3:H4"), CopyToRange:=Sheets("تصفية").Range("B6:Q406") _ , Unique:=False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If [B7:O407].Interior.ColorIndex = xlNone [B7:O413].AutoFilter Field:=4, Criteria1:="<>" [B7].Select Application.ScreenUpdating = True ActiveSheet.Protect Password:="Write here your password" End Sub والله أعلم

السلام عليكم أخي الكريم سليم، أرى أن المعادلة في الخلية M4 (عدد الأيام المشتركة بين العاملين) بها خلل، مثلا لو قمت بتغيير تاريخ البداية للعامل "جميل" إلى 25/12/2016 فالمعادلة تعطي 27 يوم والصحيح هو 20 يوم (وهي كل أيام عمل الموظف "شادي" من 01/01/2017 إلى 20/01/2017) ولتصحيح هذا الخلل أقترح عليك المعادلة التالية: =MIN($D$3:$D$4)-MAX($C$3:$C$4)+1 أخوك بن علية حاجي

السلام عليكم ورحمة الله الحل الذي أراه لمطلوبك هو تمديد الأعمدة لأعوام أخرى... قمت ببعض التعديلات على الملف (إضافة أعمدة، تمديد الأعوام من 2018 إلى 2025، إضافة كود في حدث الورقة Tablette 1 لإخفاء كل أعمدة الشهور لكل الأعوام وإظهار -فقط- شهور العام المحدد بالخلية B2 في الورقة Tablette 1 وأخرى)... يبقى إضافة أيام العطل للأعوام من 2021 إلى 2025 في الورقة Tablette 3والتنسيقات الشرطية الخاصة بهذه الأعوام في الورقة Tablette 1 (ربما هي موجودة بحكم نسخ/لصق وتحتاج فقط إلى أيام العطل)... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي Urlaubsübersicht neu.rar

السلام عليكم ورحمة الله أخي الكريم عمر، كما وعدتك قمت بالتعديل على المعادلات وإضافة عمود مساعد في الملف المرفق، حاولت أن أتناول كل الحالات الممكنة وأرجو أني ألممت بها أو جلها... ليس لي فكرة أخرى... بن علية حاجي تحويل عمود إلى صفين_2.rar

السلام عليكم تم التصرف في معادلتي "تاريخ الازدياد" (على أساس أن السعودي فقط يستعمل التاريخ الهجري في تاريخ الازدياد) و "رقم الجواز" (الباسبور)... بن علية حاجي 1A 2018.rar

السلام عليكم ورحمة الله هذا حل آخر بكود من النت تم التصرف والتعديل عليه وفق تنسيقاتك في الملف... يمكن إدراج الكود في كود حدث Change الورقة حتى يقوم بتحديث القائمة تلقائيا... بن علية حاجي قائمة منسدلة2.rar

السلام عليكم ورحمة الله هذا حل أول بمعادلات بسيطة وأعمدة مساعدة في الملف المرفق... بن علية حاجي قائمة منسدلة.rar

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

السلام عليكم ورحمة الله لست أدري إن كنت قد فهمت المطلوب جيدا، تم التعديل على معادلات العمود A (الترتيب تصاعدي دون تكرارات الرتب) وعلى معادلات العمود B (معدل الفروض) في الكود مع إضافة تنسيق شرطي لتأطير خلايا النطاق A6:Q70 حسب القيم (غير الخالية) لخلايا العمود Q (عمود ر ت)... وتم أيضا التعديل على الكود (معادلات العمود B، حذف كل الصفوف غير الضرورية...)، كل هذا تم في الملف grille hicham.xlsm والذي تم إرفاقه لوحده مع هذا الرد... أما الملفات الأخرى لم يتم التعديل عليها... أخوك بن علية grille hicham.rar

السلام عليكم بالنسبة لرقم الطالب، رقم الإقامة تم عمل المطلوب... ثم بالنسبة لرقم الجواز (الباسبور) فقد قمت بالعملية نفسها بمعادلة تم ربطها بالخلية F10 (شرط أن يحوي و يبدأ بحرف واحد مثل المثال الذي وضعته في ملفك)... أما بالنسبة لإمكانية أن يكون التاريخ هجريا أم ميلاديا فهذه لم أفهمها... بن علية حاجي final certificate.rar

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

السلام عليكم تم تعديل معادلة حساب المتوسط الحسابي للمبيعات خلال العام المختار.... بن علية حاجي المصنف1_4.rar

السلام عليكم تعديل على ملف الأخ mohamed elforse أرجو أن يفي بالغرض.... بن علية حاجي المصنف1_3.rar

السلام عليكم معادلات النص هي معادلات صفيف (يجب تأكيدها بواسطة CTRL+SHIFT+ENTER) قبل سحبها للأسفل ومعادلات الأرقام تظهر الخطأ في حالة ما إذا كانت العبارة لا تحوي أرقاما أو كانت تحوي أرقاما متبوعة بنص وقد قمت بإضافة الدالة IFERROR في المعادلات لتجنب هذا الخلل... تجد كل ذلك في الملف المرفق... بالنسبة للبيانات لا نريد الملف كله بل جزء منه لمعرفة التنسيقات (خاصة عمودي التاريخ والقيم التي تم فصلها) التي عليها سنضيف معادلات حساب أعلى وأدنى قيمة والمتوسط الحسابي لعام محدد... بن علية حاجي المصنف1_2.rar

السلام عليكم معذرة على هذا الخلل، رفعت الملف الخطأ وقد تم تغيير المرفق في الرد السابق... بالنسبة للمعلومات الأخرى فهي تتمثل فيما يلي: 1- أمثلة أخرى عن فصل الحروف عن الأرقام ، لمعرفة إن كانت هذه البيانات بالشكل نفسه (نص متبوع بعدد) أم هي حالات أخرى؟ لأن المعادلات التي وضعتها لا تصلح لحالات أخرى غير التي وضعتَها في ملفك (نص متبوع مباشرة بعدد)... 2- التواريخ المقابلة لكل البيانات (المتعددة) للعملية الحسابية الخاصة بسنة معينة... 3- الإكثار من الأمثلة بن علية حاجي

السلام عليكم جرب الملف التالي (وفيه فصل الحروف عن الأرقام فقط) -طلبك الأول فقط- أما طلبك الثاني فيحتاج إلى (أمثلة) بيانات أخرى ومعلومات أكثر حتى يتم إعطاء المعادلات المناسبة لذلك... بن علية حاجي المصنف1_2.rar

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

السلام عليكم تم عمل المطلوب في الملف بالتعديل على كود حدث الشيت 1 بتغيير رقم اللون إلى الرقم 3 (اللون الأحمر) بدلا من الرقم المتغير Target.Row (المتعلق برقم صف الخلية النشطة)... تم إضافة طريقة أخرى في الشيت 2 باستعمال "التنسيقات الشرطية" من عمل قدمته سابقا في الموضوع الذي رابطه تلوين صف وعمود عند الوقوف على خلية مع بعض التعديلات ليتناسب مع ملفك (حتى بهذه الطريقة لا يمكن الاستغناء عن VBA راجع الموضوع بالرابط السابق)، يمكن أيضا مراجعة موضوع الأخ العزيز ياسر خليل أبو البراء على الرابط التالي تحديد صف وعمود الخلية النشطة... أرجو أن يفي الموضوع بالغرض... بن علية حاجي Aziz2.rar

السلام عليكم ورحمة الله جرب أن تبدل في التسميات من Col_1 إلى Col_8 الجزئية التالية من معادلاتها : COUNTA(AliElmasry2!$L$7:$L$17) بالجزئية التالية: SUMPRODUCT((AliElmasry2!$L$7:$L$17<>"")*(AliElmasry2!$L$7:$L$17<>" ")) وتبديل في معادلات التسميتين Plage1 و Plage2 الجزئية التالية: COUNTA(AliElmasry2!$L$6:$L$17) بالجزئية التالية: SUMPRODUCT((AliElmasry2!$L$6:$L$17<>"")*(AliElmasry2!$L$6:$L$17<>" ")) إذا لم تنفع الفكرة أرسل لي الملف عبر الخاص لأحاول إيجاد للمشكلة... بن علية حاجي

السلام عليكم ورحمة الله لست أدري إن كانت المعادلة المقدمة في الملف تفي بالغرض المطلوب... بن علية حاجي محمد (2).rar

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

السلام عليكم جرب الكود التالي: Sub ex() On Error Resume Next Dim Dept_Row1 As Integer, Dept_Clm1, Dept_Row2, Dept_Clm2 Dim Table1 As Range, Table2, CL1, CL2 Set Table1 = Sheet10.Range("A3:A2000"): Set Table2 = Sheet1.Range("S3:W2000") Dept_Row1 = Sheet10.Range("B3").Row: Dept_Clm1 = Sheet10.Range("B3").Column Dept_Row2 = Sheet10.Range("C3").Row: Dept_Clm2 = Sheet10.Range("C3").Column For Each CL1 In Table1 Sheet10.Cells(Dept_Row1, Dept_Clm1) = Application.WorksheetFunction.VLookup(CL1, Table2, 2, False) Dept_Row1 = Dept_Row1 + 1 Next CL1 For Each CL2 In Table1 Sheet10.Cells(Dept_Row2, Dept_Clm2) = Application.WorksheetFunction.VLookup(CL2, Table2, 3, False) Dept_Row2 = Dept_Row2 + 1 Next CL2 End Sub بن علية حاجي

السلام عليكم هذه محاولة في الملف المرفق حسب ما فهمت... بن علية حاجي المصنف2.rar

السلام عليكم لست أفهم ما تريده بالضبط... عنصر التحكم يتغير من 1 إلى 100 وعند كل رقم يعرض 10 طلاب وبالتالي يكون لديك : 10*100 = 1000 طالب... وإذا أردت أكثر يمكن تغيير "تنسيق عنصر التحكم" بالنقر عليه بالفأرة على اليمين وعند ظهور إطار الخاصية تقوم بتغيير العدد 100 إلى عدد آخر مثلا 200 ليكون لديك إمكانية الحصول على بطاقات 2000 طالب... والله أعلم إذا كان قصدك شيء آخر فتجدني إن شاء الله في الخدمة... بن علية حاجي