بن علية حاجي

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

السلام عليكم ورحمة الله الملف نفسه والتشفير لا علاقة له بما يحويه الملف، أريد أن أعرف كيف ظهرت تلك الملاحظات، لا بد من ملف به بيانات وعلامات الطلبة حتى تظهر هذه الملاحظات؟ ثم عند النقر على زر Click Here To Add Notes (الملون بالأخضر) في الملف فإنه يطالبك بفتح ملف، من هو هذا الملف؟ أعتقد أن الملف الذي أرسلته ما هو إلا "لوحة تحكم" لفتح ملفات البيانات والعلامات... والله أعلم بن علية

السلام عليكم ورحمة الله الملف الذي أرفقته مرتبط بملفين obs.xlsx و obsert.xlsx وهما غير موجودين مع المرفق لذا لا يمكن إجابتك على طلبك... معذرة بن علية

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

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد بتنفيذ الكود... تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخوك بن علية اضافة قيمة ثابتة بخانة الجنيهات بشرطين+222.xlsb.rar

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

السلام عليكم ورحمة الله تم تعديل آخر على الملف في الجدول الأول للحراس حتى يحوي 4 حراس... بن علية مبرمج الحراسة 17_4 حراس.rar

السلام عليكم تم الاستغناء عن الدالة المستحدثة VLOOK2ALL في بعض الجداول (الجداول الثلاثة العلوية في شيت "جدول الحراسة") في الملف بالدالة INDEX مع الدالة SMALL بمعادلات صفيف... بن علية مبرمج الحراسة 17.rar

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

السلام عليكم جرب المرفق... يبقى حساب النسبة لم أعرف على أساس ماذا تحسب؟ (الحاضرين - الغائبين - الناجحين - الراسبين) بن علية شيت تعديل.rar

السلام عليكم السؤال مو صعب... غير أن الدالة COUNTIFS لا تعمل في إكسيل 2003 ويمكنك استبدالها بالدالة SUMPRODUCT... لا يمكنني تطبيقها على ملفك لأن الملف مرتبط بملف غير موجود مع ملفك... وأعطيك مثال على التعويض: المعادلة الموجودة في الخلية C7 التي هي: =_xlfn.COUNTIFS('[كنترول 4 - 5.xls]كنترول'!$D$6:$D$716;"<>0";'[كنترول 4 - 5.xls]كنترول'!$E$6:$E$716;"بنات") يمكن استبدالها بالمعادلة: =SUMPRODUCT(('[كنترول 4 - 5.xls]كنترول'!$D$6:$D$716<>0)*('[كنترول 4 - 5.xls]كنترول'!$E$6:$E$716="بنات")) وهكذا بالنسبة للمعادلة الأخرى... بن علية حاجي

السلام عليكم لو فرضنا أن الوزن (بالكيلو) الذي تريد تحويله موجود في الخلية A1 المعادلة تكون (في أي خلية أخرى) على الشكل التالي: =(INT(A1/150)&(A1-150*INT(A1/150)))/10^LEN((A1-150*INT(A1/150))) بالنسبة للوزن 1933 المعادلة تعطيك 12.133 أي 12 أردب و 133 كيلو (انظر الملف المرفق) بن علية تحويل وزن.rar

السلام عليكم لو كان الوزن هو 1935 كيلو هل النتيجة المطلوبة هي : 12.135 مما يعني أن النتيجة هي 12 أردب و 135 كيلو؟ بن علية

السلام عليكم ورحمة الله مثل هذا: Sub Print_All() Dim I As Integer For I = 1 To 500 Range("A1") = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next I End Sub بن علية حاجي

السلام عليكم ورحمة الله أين الخلل في الترحيل؟؟ أشر إليه في الملف... بن علية

السلام عليكم ورحمة الله أبدل في الكود كلمة Control بكلمة Controls بن علية

السلام عليكم ورحمة الله جرب هذه الجزئية من الكود لتعويض كل السابق (بتحفظ شديد)... Dim i As Integer, j Dim m As String For j = 1 To 12 m = Me.Control("ComboBox" & j).Text For i = 2 To 10000 If m = Cells(i, 2) Then Cells(i, 5) = "y" & j & ".Text" Next Next بن علية

السلام عليكم ورحمة الله قمت بتصحيح بعض الأخطاء التي فهمتها... إن كان هناك أخطاء أخرى فالرجاء إظهارها (الإشارة إليها) ليسهل الرجوع إليها... أخوك بن علية مبرمج الحراسة 16.rar

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

السلام عليكم ورحمة الله وهذا حسب فهمي للمطلوب... بن علية waleed3.rar

السلام عليكم ضع في ملفك المرفق النتيجة المنتظرة من المعادلة حتى تتبين الصورة أكثر... بن علية

السلام عليكم حل آخر بعمود إضافي ومعادلات بسيطة وتنسيق شرطي... بن علية wsh_hben.rar

السلام عليكم جرب الملف المرفق لعل فيه الجواب على طلبك... بن علية Book2.rar

السلام عليكم أقدم ملفا تنفيذيا يشرح طريقتين (الأولى والثانية) -بتحفظ-، وهذا العرض طبقته على جزء من البيانات (50 صفا الأولى من البيانات الكلية -حتى لا تأخذ وقتا في التنفيذ-) مع إكسيل 2016 بالفرنسية وسأترجم بعض المصطلحات المستعملة في العرض إلى الإنجليزية... أرجو أن يفي هذا العرض بالمطلوب... بالنسبة إلى الطريقة الثالثة (الأكواد) أتركها لمن يحسنها أكثر مني... المصطلحات من الفرنسية إلى الإنجليزية: Données يقابلها Data Supprimer les Doublons يقابلها Remove Duplicates المعادلة NB.SI($A$2:A2;A2)= يقابلها COUNTIF($A$2:A2;A2)= بن علية 123hben.rar

السلام عليكم مطلوب ملف للتطبيق... بن علية