أ / محمد صالح

يجب أن تكون جميع الخلايا في الجدول والعناوين غير مدمجة

أعتقد أنه لا يوجد في اكسل جمع للخلايا التي ليس عليها دائرة وإنما يوجد جمع بشرط / بشروط وهي عكس شروط وضع الدوائر مثلا جمع الخلايا التي تساوي أو تزيد عن النهاية الصغرى للمادة فمثلا إذا وضعت في الصف 3 النهاية الكبرى لكل مادة سواء كانت 100 أو 150 ثم كتبت هذه المعادلة في الخلية AA9 =SUM(IF(E9:Z9>$E$3:$Z$3/2,E9:Z9,0)) ستحصل على مجموع الخلايا الأكبر من نصف النهاية الكبرى ويمكن نسخ الخلية بعد وضع المعادلة إلى جميع خلايا المجموع الكلي بالتوفيق

ما شاء الله تتقدم الدول بمثل هذا العطاء والبرامج المفتوحة وفقنا الله جميعا لكل ما يحبه ويرضاه

جميعا بفضل الله

الشكر لله الذي وفقنا لهذا

ممكن جدا وساعتها تستعمل نفس الكود في صفحة 2 بالتوفيق

عليكم السلام ورحمة الله وبركاته معادلتك صحيحة ويمكن اختصارها لهذه =IFERROR(VLOOKUP(F16,data!$A$4:$K$57,MATCH(C16,data!$A$2:$K$2,0))*1.05^($C$14-2012),"") بالتوفيق

لا أرى فائدة مرجوة من عمل مثل هذه الاحصائيات على النماذج والأفضل تصميمها في شيت الاكسل بالمعادلات حتى يمكن طباعتها والله أعلم

يمكنك تحويل المعادلة الي كود مثلا لو أردنا تحويل العمود D نستعمل هذا الاجراء مع ربطه بزر مع حفظ الملف بصيفة تدعم الاكواد مثل xlsb Sub mrmas() Range("d2:d101").Formula = "=rand()" Range("d2:d101").Value = Range("d2:d101").Value End Sub بالتوفيق

خالص الدعوات بالتوفيق للجميع

جميعا بإذن الله

جميعا بإذن الله

ربما يوجد مرجع مفقود في محرر الأكواد من قائمة tools ثم references ثم احذف علامة الصح بجانب المرجع المكتوب قبله missing بالتوفيق

يمكنك استعمال هذه الطريقة بوضع السيريلات المسموحة في مصفوفة myserials بينها فاصلة Private Sub Workbook_Open() myserials = Array("589CC486", "mr-mas.com", "") myhd = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) If Not UBound(Filter(myserials, myhd)) > -1 Then MsgBox "أي رسالة هنا" ThisWorkbook.Close savechanges = True End If End Sub بالتوفيق

ما شاء الله رائع كعادلتك صديقي العزيز

الشكر لله الذي وفقنا لهذا

ما شاء الله تنسيق ولا أروع وعمل ومجهود راقيان وفقكم الله وسدد خطاكم

حسب فهمي للمطلوب تم تنفيذ المعادلة على العمود الأول E وإذا أردت تطبيقها على العمود التالي يمكنك تغيير الخلية $E$1 في المعادلة الموجودة في الصف الثاني بالتوفيق mas tableau.xlsx

الطريقة المذكورة في المشاركة السابقة لي أفضل واسرع بإذن الله

أقترح تنفيذ ذلك يدويا وليس بالكود عن طريق عمل لصق كقيم paste as values بدلا من لصق paste ورمزها (123) في القائمة المختصرة للخلية والتي تظهر بعد عمل كلك يمين عليها وإذا كنت حريصا على استخدام الكود فيمكنك وضع هذا الاجراء في موديول جديد وربطه بزر وليكن اسمه لصق Sub pst Selection.PasteSpecial Paste:=xlPasteValues End Sub وهو للصق ما تم نسخه في الخلية المحددة ولاستخدام هذا الاجراء عند الضغط على CTRL+V يمكن وضع هذا الكود في حدث المصنف ThisWorkbook Private Sub Workbook_Activate() Application.OnKey "^v", "pst" End Sub Private Sub Workbook_Deactivate() Application.OnKey "^v" End Sub بهذه الطريقة تحافظ على تنسيق الملف الذي يتم اللصق فيه عند استخدام الزر المرتبط بالكود أو اللصق باستخدام ctrl+v بالتوفيق

جميعا بإذن الله

ربما يكون في الرأس والتذييل header & footer في تبويب تحطيط الصفحة page layout ثم مربع إعداد الصفحة page setup ثم تبويب header/footer بالتوفيق

للأسف هذه الطريقة في الفلترة بالمعادلات المتبعة في ملفكم تجعل الملف ثقيلا جدا لذلك يمكنك تحديد المدى الذي كنت تسحب فيه المعادلة لأسفل كله ثم حذف المعادلة منه بضغط مفتاح delete من لوحة المفاتيح مع إبقاء تحديد الخلايا ثم لصق نفس المعادلة في شريط المعادلات مع تغيير row($a1) إلى row()-5 إذا كان هناك 5 صفوف فوق صف البداية وفي النهاية الضغط على ctrl+shift+enter بهذا نكون وضعنا معادلة واحدة في جميع الصفوف المحددة وهذه اسرع طريقة للفلترة بالمعادلات بالتوفيق

الخطأ هو أن العمود رقم 9 فارغ ولا يتم ترحيل بيانات إليه لذا يمكن تغيير هذا السطر erow = sh1.Cells(Rows.Count, 9).End(xlUp).Offset(1, 0).Row إلى erow = sh1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row بالتوفيق

حسب فهمي للمطلوب يمكنك إضافة هذا الكود في نهاية إجراء الطباعة Sub PRINT_OUT lr = Cells(Rows.Count, 1).End(xlUp).Row For r = 8 To lr rw = Application.WorksheetFunction.Match(Range("A" & r).Value, Sheets("التحميل").Range("A:A"), 0) Sheets("التحميل").Range("Q" & rw).Value = "تم الصرف" Next r وهو للحصول على رقم الصف الذي يحتوي على رقم المستند الموجود في الخلية A8 وما بعدها عند البحث عنه في العمود A في شيت التحميل ثم تغيير قيمة الخلية Q في نفس الصف إلى تم الصرف بالتوفيق