أ / محمد صالح

شكرا لكلماتك الطيبة والأفضل أن ينتفع الطرفان طبعا

خطوة موفقة بإذن الله

امتداد الملف غير مدعوم في اكسل حيث أن تنسيقه لا يتناسب مع الامتداد ربما يكون مصدر هذا الملف هو برامج استعادة المحذوفات حيث أنها تخدع المستخدم بنفس اسم وامتداد الملف وحجمه لكنه لا يعمل ونسبة العمل بها قليلة جدا بالتوفيق

بعد إذن الجميع هذا ملفك بعد تصحيح الخطأ في الكود الخطأ في نقل الكود وليس الكود الأصلي وينتج هذا الخطأ عن عدم فهم دلالات الأرقام والمتغيرات في الكود بالتوفيق مجمع الشيتات.xlsm

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

المشكلة الأولى تكمن في أن النص الموجودج في مربع النص هو نص string وليس مصفوفة array والحل mycols = Split(textbox2.value, ",") لتحويل النص إلى مصفوفة ولتحويل العنصر في المصفوفة من نص إلى رقم نستعمل int في هذا السطر a(ii + 1, j) = ws.Cells(i, Int(myCols(ii))).Value والمشكلة الثانية تكمن في أن الخلية الفارغة قيمتها صفر ولا يوجد عمود رقمه صفر والحل ألا توجد خلية فارغة وهذا ملفك بعد التعديل: لأنه في الغالب يوجد مشكلة في تطبيق المعلومة المستفادة من الإجابة بالتوفيق listbox dynamic.xlsb

الهدف من الموقع هو تبادل الخبرات والتعلم وليس تقديم برامج جاهزة للغير عليكم بدراسة الكود وتغيير العمودين ورقم البداية وعدد الصفوف أعلى صف البداية بالتوفيق

يمكنك استعمال التنسيق الشرطي بمعادلة مثل =OR(COUNTIF($F$6:$I$11,C6)>0,COUNTIF($L$14:$N$19,C6)>0) وتطبق على المدى المطلوب بالتوفيق عدم السماح بتكرار.xlsx

كما أخبرت حضرتك سابقا الخطأ في التطبيق الملف الأصلي العمودين B و c وصف البداية 7 في الملف الجديد العمودين c و d وصف البداية 4 ورغم الاختلاف حضرتك لم تعدل الكود ليتناسب مع الأعمدة الجديدة والبدايات الجديدة أول خطوة قبل نقل الكود هو فهمه أو عرض الملف الأصلي ختى لا يلجأ الإنسان للتعديل أو نقل الكود بطريقة خطأ بالتوفيق

يمكنك استعمال التنسيق الشرطي رسائل تنبيه من عدة اعمدة.xls

لا أدري إن كان الرد السابق يتعلق بمشاركتي أم غيرها على العموم في الملف المرفق في مشاركتي يوجد 4 اسماء في العمود 2 الذي هو b وكذلك 4 اسماء في العمود 3 والذي هو c ويتم وضعهم في العمود e والذي رقمه 5 في نهاية المكتوب ربما يكون الخطأ في التطبيق على ملف جديد

يمكنك استعمال هذا الاجراء Sub merge2cols() rng1Count = Cells(Rows.Count, "B").End(xlUp).Row - 6 rng2Count = Cells(Rows.Count, "C").End(xlUp).Row - 6 lr = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & lr & ":E" & rng1Count + lr - 1).Value = Range("B7:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value lr = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & lr & ":E" & rng2Count + lr - 1).Value = Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value End Sub بالتوفيق نقل عمودين في عمود.xlsb

أعتقد خلايا الصف 75 وما بعده

جميل جدا تبقى فقط أن نجعل الإكسل يقرأ باللغة العربية توصلت لها في برمجة الويب وطبقتها في موقعي ربما أحاول ضبطها لتعمل في vba بالتوفيق

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

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

أعتقد أنه لا يوجد في اكسل جمع للخلايا التي ليس عليها دائرة وإنما يوجد جمع بشرط / بشروط وهي عكس شروط وضع الدوائر مثلا جمع الخلايا التي تساوي أو تزيد عن النهاية الصغرى للمادة فمثلا إذا وضعت في الصف 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 بالتوفيق

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