بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق لعل فيه ما تريد... بن علية حاجي برنامج مركز شمس للتسوق تحت التعديل.rar

السلام عليكم أخي الكريم، لقد حاولت في الملف من أول موضوع لك في المنتدى ولم أجد الفكرة ولا زلت أحاول... أودّ أن أعرف لماذا تريد أن ترحّل البيانات إلى نفس مكانها في حالة وجودها ؟ هل يمكن القيام بمسحها دون ترحيلها (وأقصد مسح البيانات الموجودة مسبقا في شيت Total)؟ أخوك بن علية

السلام عليكم أدركت خطأ في المعادلة وهو عدم استيفاء مدة الأربعة أشهر كاملة إذ أنه لو كان تاريخ اليوم هو اليوم الثاني (أو أكبر) من الشهر الرابع فإن خلايا العمود J تكون فارغة لذا تم التعديل على الشرط الثاني في الدالة AND بتغيير الجزئية 1;4+ بالجزئية 0;5+ لتحديد تاريخ اليوم الأخير للشهر الرابع بعد تاريخ ورود قرار الإضافة... وقد تم التصحيح في الملف المرفق... معذرة على هذا الخلل.. بن علية حاجي القيمة المضافة.rar

السلام عليكم أخي احبيب أبو أحمد، معنى الأمر %r في الأمر هو الإعلان أن المتغير r هو من نوع Integer وهذا الأمر هو اختصار للأمر Dim r As Integer... والله أعلم وهذه رموز لأنواع أخرى من المتغيرات: Integer % Long & Currency @ Single ! Double # String $

السلام عليكم ورحمة الله في كود الترحيل يوجد خطأ في الأمر التالي: ResSh = Trim(Cells(I, 21).Value) الذي يحدد قيمة المتغير ResSh الممثل لاسم الشيت الذي يتم الترحيل إليه (ناجح - دور ثان) حسب خلايا العمود رقم 21 (وهو الخطأ)، غير أن كلمتي (ناجح - دور ثان) موجودتان في العمود V الذي رقمه 22 وليس 21، لذا يجب تصحيح الأمر السابق بتغيير العدد 21 بالعدد 22 فيكون كما يلي: ResSh = Trim(Cells(I, 22).Value) والله أعلم

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

السلام عليكم ورحمة الله أخي العزيز، التعديلات التي قمت بها في الكود مقبولة... بالنسبة للشرح الذي طلبته، أعتقد أن هذا الأمر يقوم بإعطاء القيمة 2 للمتغير T (للترتيب التنازلي) عندما يكون الكائن Shape ممكنا (MyShap.ControlFormat.Value = 1)، ويعطيه (المتغير T) القيمة 1 (للترتيب التصاعدي) عندما يكون الكائن Shape غير ممكن (عند عدم توفر الشرط : MyShap.ControlFormat.Value = 1)... والله أعلم

السلام عليكم ورحمة الله الفرز يعمل غير أنه يتم حسب الخلية AU12 (موجودة في الكود، وفيها خطأ من المفروض أن تكون AU6 وليس AU12) في الجزئية : Range("data").Sort Range("AU12"), T إذا أردت الفرز حسب "الفصل" (العمود 144) يجب التعديل على هذه الجزئية بتغيير الخلية AU12 بالخلية EN6 (عمود الفصول) فتصبح الجزئية بالشكل التالي: Range("data").Sort Range("EN6"), T والله أعلم

السلام عليكم ورحمة الله أخي الحبيب أبو أحمد، في ملفك لا يوجد شيت اسمه Sheet4 والكائن Shape المعلن عليه في الكود والمسمى kh_num موجود في Sheet2 "رضد الترم الثاني" ولتصحيح عمل الكود يكفي استبدال -في الكود- الجزئية: Set MyShap = Sheet4.Shapes("Kh_Num") بالجزئية التالية: Set MyShap = Sheet2.Shapes("Kh_Num") والله أعلم

السلام عليكم جرب الكود المعدل التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As String Dim Destwb As Workbook, Source Dim path As String Source = ThisWorkbook.FullName path = "D:\hhh\" If Target.Column = 3 Then lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value End If With Application .ScreenUpdating = False .EnableEvents = False End With Set Destwb = ActiveWorkbook With Destwb .SaveAs Filename:=path & lr, FileFormat:=52 End With Workbooks.Open Source MsgBox "You can find the new file in " & lr Destwb.Close With Application .ScreenUpdating = True .EnableEvents = True End With End Sub بن علية حاجي

السلام عليكم أو هذه المعادلة (في الخلية 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