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

وعليكم السلام ورحمة الله وبركاته جرب الملف واعلمنى بالنتيجة ملف الحجز.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

ربما يكون احد الاسباب وكما احبرتك في ردي الاحير باننى لست جازما وحصوصا ان الملف في مشاركتك الاولى يعمل لدي وكذلك حسب استاذتا 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

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