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

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

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

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

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

ربما يكون احد الاسباب وكما احبرتك في ردي الاحير باننى لست جازما وحصوصا ان الملف في مشاركتك الاولى يعمل لدي وكذلك حسب استاذتا Foksh ان الملف يعمل لديه وربما يكون مسار سطح المكتب هو السبب تم تعديل الكود وسيطلب منك مكان حفظ الملف احتر اي مكان جرب واعلمنى بالنتائج مرتب +عمولة السائقين (2).xlsm

نعم الامر هكذا واضح وقمت بحذف التعليق السابق لعدم اهميته بعد ارفاق ملفك الاخير وبه التوضيح جرب الكود Sub تجميع() Dim ws As Worksheet Dim آخرصف As Long Dim c As Long, r As Long Dim صف_الاخراج As Long Set ws = ActiveSheet صف_الاخراج = 1 ws.Columns(16).ClearContents For c = 1 To 13 آخرصف = ws.Cells(ws.Rows.Count, c).End(xlUp).Row For r = 1 To آخرصف If ws.Cells(r, c).Value <> "" Then ws.Cells(صف_الاخراج, 16).Value = ws.Cells(r, c).Value صف_الاخراج = صف_الاخراج + 1 End If Next r Next c End Sub

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

وعليكم السلام ورحمة الله وبركاته كنت اتمنى دعم سؤالك بملف جرب التعديل التالي وان لم تعمل ارفق ملفا والمعادلة تعمل على اصدارات اكسل من 2013 وما فوق =IFNA(SUMPRODUCT((INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0))<60)*ISNUMBER(INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0)))*(A!$A$3:$A$1828=$C$6));"/")

وعليكم السلام ورحمة الله وبركاته جربت الملف على جهازي اوفيس 2016 يعمل بدون اي مشاكل ولكن ربما ولست جازما بعض الاصدرات لا تتوافق مع الكود وحاصة لم ارى رسالة الخطا والتي بها رقم الخطأ جرب التعديل التالي وعلى جهازي يعمل مع بعض البطء بسبب العدد الكبير للموظفين انتظر ردك وملاحظتك مرتب +عمولة السائقين عن شهر يناير 2026 بعد ضبط نهائى الإجماليات.xlsm

اليك الملف البحث في القائمة بالحروف.xlsm

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

اليك الملف وبه الكود اضغط غلى الزر ليعمل الكود example.xlsb

وعليكم السلام ورحمة الله وبركاته كود صغير يقوم بالامر Sub CopyCtoB_IfBlank() Dim i As Long For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row If IsEmpty(Cells(i, "B")) And Not IsEmpty(Cells(i, "C")) Then Cells(i, "B").Value = Cells(i, "C").Value End If Next i End Sub

"أخي الفاضل،السلام عليكم ورحمة الله وبركاته حسب طلبكم في المشاركة الاولى ، أرفقتُ لك ملفين منفصلين يتضمنان طريقتين لعملية الاستيراد: الطريقة الأولى: تظهر لك واجهة اختيار، تتيح لك تحديد الملف المطلوب يدوياً ثم البدء بالاستيراد. الطريقة الثانية: تتميز بالسرعة، حيث يتم استيراد البيانات مباشرة بمجرد الضغط على الزر دون ظهور أي واجهات. كلا الحلين يتوافقا تماماً مع ما طلبت، فهل قمت بتجربتهما؟ وفي حال عدم عملهما لديك، أتمنى منك تحديد المشكلة بدقة وشرحها، وستجد الحلول بإذن الله مني أو من الإخوة الأفاضل في المنتدى الذين لا يتأخرون في الدعم. أنتظر منك إجابة على هذه التساؤلات، لك وافر التقدير والاحترام

وعليكم السلام ورحمة الله وبركاته هل تعنى انك لا تريد ظهور الواجهة لاحتيار الملف وتريد الاستيراد مباشرة اليك الملف بدون ظهور الواجهة ويكون الملفان في مكان واحد وبنفس الاسماء اضغط على زر استيراد يتم احضار البيانات مباشرة ملف.zip