عبدالله بشير عبدالله

في ملفك قم بالاتي:- اضغط بيمين الفأرة على ملف الإكسيل (وهو مغلق) واختر Properties. (حصائص) في الأسفل، إذا وجدت كلمة Unblock (إلغاء الحظر) بجانب رسالة تحذير أمني، ضع عليها علامة صح واضغط OK اليك الملف مرة احرى ملف الحجز (1).xlsb

السلام عليكم تم انشاء القائمة للحليتين Horaire202.xlsx

وعليكم السلام ورحمة الله وبركاته جرب الملف واعلمنى بالنتيجة ملف الحجز.xlsb

الأخ العزيز في ردي السابق طلبت منك وبما انك احترت تمت الاجابة فيعتبر هذا الطلب تمت الاجابة عليه وانتهى طلبت منك فتح موضوع جديد ليس هنا في نفس الصفحة بل انشاء موضوع جديد احر من الصفحة الرئيسية لمنتدى الاكسل ويمكنك وضع رابط لموضوعك السابق يجب عليك قراءة قواعد المشاركة بمنتدي أوفيسنا والتي من ضمنها 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص للاطلاع على قواعد المشاركة https://www.officena.net/Tips/Questions.htm انقل طلبك الاخير في مشاركة جديدة وابشر خيرا ان شاء الله

السلام عليكم ورحمة الله وبركاته\ الطلب الاول ملف الحجز.xlsb اذا تحقق طلبك في الملف المرفق احتر تمت الاجابة وافتح موضوع جديد بطلبك الاحر به شرح واضح للطلب وستجد من يقدم المساعدة للحل وانا منهم تحياني

وعليكم السلام ورحمة الله وبركاته حسب قهمى لطلبك انك تقصد بالعمود الثالت العمود A يناء عليه اليك معادلة صعها بداية من D2 ثم اسحبها لاسفل او ضغها في عمود بداية من الصف2 =INDEX($B$2:$B$500;MATCH(A2; $C$2:$C$500; 0)) ارجو ان يكون في ردي ما يفيد تحياتي

وعليكم السلام ورحمة الله وبركاته تم التجربة على اوفيس 2016 وتم تحديد حلايا والانتقال بين الصفحات لا يوجد تجمد والملف يعمل بسرعة ننتظر تجارب الزملاء

احسنت جزاك الله كل خير تمت التجربة ينجاح

الأخ العزيز، تحية طيبة وبعد، أدخل دوماً إلى موضوعك وكلي أمل أن أقدم لك ما يفيد، ولكنني أجد نفسي عاجزاً عن فهم المطلوب بسبب غياب الشرح الوافي. واليوم، أرفقتَ ملفاً جديداً لعلّ فيه التوضيح، فإذا به محمياً بكلمة مرور! لذا، ومن باب المحبة والإخاء، أود توجيه هذه الرسالة لك ولجميع أحبابنا في المنتدى؛ لنتفهم أن عدم التجاوب مع بعض الطلبات ليس تكبراً و عدم اهتمام ، بل يعود للأسباب التالية: عدم وضوح الطلب: في طلبك الأول ذكرت استيراد بيانات من ملف "الحجز" إلى ملف "Horaire202"، لكنك لم ترفق سوى الملف الأخير. أين الملف الآخر؟ وكيف يمكننا العمل دون شرح كافٍ؟ تعدد الطلبات في موضوع واحد: لقد تضمن موضوعك طلبات كثيرة ومتشعبة (تعديل أيقونة الاستيراد، منع مسح البيانات، معاينة ورقة الطباعة، التحويل إلى PDF، حماية الورقة مع استثناء حقول معينة). هذا التشتت يجعل تقديم مساعدة دقيقة أمراً صعباً. نصيحة أخوية: اجعل لكل طلب موضوعاً مستقلاً، مدعوماً بالشرح والتوضيح الكافي. وبمجرد حصولك على الإجابة، يمكنك فتح موضوع جديد لطلب آخر. هكذا ستجد اهتماماً أكبر وتجاوباً أسرع من جميع الأعضاء. وفقنا الله وإياكم لكل خير.

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

السلام عليكم ورحمة الله وبركاته حل بالكود وان اضفت مواد احرى عدل النطاق في الكود Sub ProcessAndSumData() Dim wsB As Worksheet Set wsB = ThisWorkbook.Sheets("B") Application.ScreenUpdating = False With wsB .Range("B10:I12").ClearContents With .Range("B10:I10") .FormulaR1C1 = "=IFERROR(SUMPRODUCT((A!R3C1:R1828C1=R6C3) * (ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0)))) * (INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))>=60)),""/"")" .Value = .Value End With With .Range("B11:I11") .FormulaR1C1 = "=IFNA(SUMPRODUCT((INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))<60) * ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))) * (A!R3C1:R1828C1=R6C3)),""/"")" .Value = .Value End With With .Range("B12:I12") .FormulaR1C1 = "=SUM(N(R[-2]C), N(R[-1]C))" .Value = .Value End With End With Application.ScreenUpdating = True End Sub لا تنس تفعيل الماكرو aa2.xlsb

السلام عليكم جميع المعادلات بملفك تتعامل مع عمود التقييم وليس الفصل والسبب اسماء المواد في حلايا مدمجة والمعادلة المرفقة سابقاتعمل جيدا اليك الملف وبه معادلتان اختر اخدهما او كلاهما لهما نفس النتيجة وهما ليست صفيف لا تحتاجانCtrl+Shift+Enter. مع الانتباه لا تكرر اسم المادة في شيت A ولا تستحدم الدمج و يمكنك تمييز الاسماء مثلا الرياضيات تفييم - الرياصيات امتحان - الرياضيات فصل وفي ورقة الاخصائيات اذا اردت الرياضيات تقييم اكتبها تفسها aa1.xlsx

ان شاء الله ساحاول ايجاد حل يطبق على الفصل والتقييم والامتحان

السلام عليكم عذرا لم انتبه الى ردك الا الان لاحظت كل مادة لها 3 اعمدة اي عمود يتم تطبيق المعادله علية التقويم ام الامتحان ام الفصل

وعليكم السلام ورحمة الله وبركاته الطريقة الاولى اجعل الفورم في وضع التصميم من نافذة الخصائص (Properties) على اليسار، ابحث عن خاصية ShowModal. قم بتغيير قيمتها من True إلى False الطريقة الثانية بالكود كما بالمرفق حل المشكلة1.xlsm