خالد الرشيدى

السلام عليكم اخى الكريم نادر لن تجد من يقدم لك برنامج كامل - هذه الامور تأخد الكثير من الوقت والجهد - والكل له اعماله ومشاغله - ابحث بالموقع فهناك بعض البرامج الجاهزه المصممه من قبل الاعضاء - وان لم تجد منها ما يناسبك - عندها ابدأ في تصميم الجداول - وارجع للموقع في تنفيذ اى معادله او كود تحتاجه ولا تستطيع تنفيذه كما يرجي فضلاً وليس امراً الاطلاع على رابط التوجيهات الخاصه بالمنتدي تقبل مرورى وتحياتى

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

انظر المرفق =DATEDIF(B4,VALUE("a"&A4),"d") Book1_3_2.rar

السلام عليكم قدم استاذي / بن علية جزاه الله خيراً ... حلاً بإستخدام عمود مساعد وها هو حل اخر لا يحتاج لعمود مساعد wsh_k2.rar تقبلوا خالص تحياتى

تفضل اخى الكريم عله المطلوب Book1_3.rar

السلام عليكم اخى الكريم - ماذا تقصد بتلقائي - ويرجى دائما ارفاق نموزج موضح به الطلب تقبل مرورى وتحياتى

السلام عليكم استبدل المعادله بهذه - عله المطلوب تماماً =IF(B19<>"",TRUNC(B19/24,0)+1,"") احصائية اللازم والعجز والزيادة.rar

نعم أ / محمد - انت على حق أخطات في كتابة المسمي - فقد تم الحل بال DATA VALIDATION جزاك الله خيراً كل عام وانتم بخير

و جزاك خيراً اخي الحبيب اقصي يمين كل اجابه وبجانب الاسم - تجد علامه صح - عند المشاركه التى تجد بها طلبك - اضغط علي تلك العلامه - وبالتالى يظهر الموضوع كمجاب كل عام وانتم بخير

أ / أستيكا شكراً جزيلاً اخي الكريم على هذا المرور الطيب كل عام وانتم بخير

اخى ناصر بفك الدمج الموجود بالخليه B5 - تصبح B5 ايضاً وليس B10 - ( غير الرقم الى 7 - ثم فك الدمج - اذهب الى الخليه B10 - ضع اى قيمة - ثم نفذ الكود ولاحظ النتائج ) - ستجد صف بداية النسخ 16 -- - بالنسبه للسحب - لم افهم مقصد حضرتك تماماً - ارفق نموزج مشروح به المطلوب -

وجزاك خيراً اخي الكريم في اقصي يمين المشاركه وبجانب الاسم تجد علامه صح - في المشاركة التى تجد بها طلبك - اضغط علي تلك العلامة - وبالتالى سيتم تحديد الموضوع كمجاب - اى تمت الاجابه عليه تقبل تحياتى

السلام عليكم استخدم السطر التالى عله المطلوب -- ان كان ما تريد حدد الموضوع كمجاب ActiveCell = Evaluate("=SUM(A" & d & ":a" & e & ")") تقبل تحياتى

السلام عليكم اخي ناصر - الامر بسيط -- دعنا نفنط الكود من البدايه SERCH.Cells(Rows.Count, 2).End(xlUp) هذا الجزء من الكود - معناه بدلاله العمود 2 ( B ) بدءاً من اخر صف فى الاكسيل وصعوداً الى اعلى اوجد اخر صف به بيانات - فى الملف سيكون الناتج B5 - ولكنا نريد ان يكون بدايه النسخ من B11 وبالتالى جاءت (7) - ووظيفتها ازاحة خليه بداية النسخ من B5 الى B11 ( بما في ذلك B5 ) لاحظ B5 - B6 - B7 - B8 - B9 - B10 - B11 عدد القيم تجدها 7 وهو الرقم الذي استخدمته - أما --- Range("A11:DW11").AutoFill Destination:=Range("A11:DW" & Range("O1").Value + 10), Type:=xlFillDefault هذا الكود - وظيفتة AutoFill - او كما نسميها Fill Handel - سحب المعادلات والقيم لاسفل -- الجزء الاول من الكود حدد اي نطاق نريد سحبه لاسفل - Range("A11:DW11").AutoFill الجزء الثاني يمثل مقدار الازاحة لاسفل المطلوبه Destination:=Range("A11:DW" لاحظ هنا انه لم يحدد رقم الصف المراد الازاحة اليه - ...Dw- وانما تم تحديده من خلال قيمة الخلية O1 + 10 - مثلاً قيمة الخليه O1 = 10 اذاً سيكون النطاق بهذا الشكل Destination:=Range("A11:DW20") ويتم السحب حتى الصف 20 - وبالتاكيد يمكن التغيير في ذلك حسب الحاجه والطرق والحالات كثيرة - كأن تستخدم Resize مثلاً هكذا Range("A11:DW11").AutoFill Range("A11:DW11").Resize(14) اتمني ان اكون وفقت فى الطرح -- يرجي تحديد الموضوع كمجاب تقبل خالص تحياتى

اخي الكريم اهلا بك بين اخوانك بالمنتدي قم بارفاق نموزج مبسط مشروح به طلبك وليس شرط الملف الاساسي تقبل تحياتي

اخي ناصر تواصلي من خلال الهاتف.. فلا اري الملف والاكواد بشكل جيد بعد مراجعه السطر.. هنا العمود B وليس C

اخي الكريم - كما تلاحظ انه يسبق (2) كود لايجاد اخر صف به بيانات وبالتالى 2 يعبر عن مقدار الازاحة بالنسبه للصفوف -- مثلاً اخر صف به بيانات C5 اذاً بإزاحة 2 صف بما في ذلك C5 ينتج C6 - ولكن بإزاحة 7 بما في ذلك C5 ينتج C11 ومن ثم هو اوا صف فارغ ترحل اليه البيانات - وهى اشبه بمعادله ايجاد اخر صف به بيانات + 1 ( اول صف فارغ ) او اكثر من واحد حسب الحاجه ... ولكن كتبت بهذه الطريقة لانه لا يمكن كتابة + 7 ثم استخدام Resize

السلام عليكم اخى الحبيب / ناصر - انتظرت كثيراً رد احد اساتذه المنتدي لعرض الطرق المختلفه لتقسيم مصفوفة النتائج على اكثر من نطاق للبيانات - ربما هذا الامر ليس بالهام كثيراً بالنسبه لملفك - لانه الحل الاول اعتقد انه مناسب جداً - ولكن ربما فكرة تقسيم مصفوفة النتائج على عده نطاقات تكون مهمه بالنسبه لبعض الافكار الاخري - لهذا ----اخر ما توصلت اليه - ---- تقسيم مصفوفة النتائج الى جزئين - الجزء الاول يعبأ بالنطاق a:O , الجزء الثاني R:AZ .Range("A11").Resize(j - 1, 15).Value = Application.Index(temp, [row(1:5000)], Application.Transpose([row(1:15)])) .Range("R11").Resize(j - 1, c - 14).Value = Application.Index(temp, [row(1:5000)], Array(Application.Transpose([row(16:50)])))

السلام عليكم اخى الكريم استبدل الرقم 2 الموجود بأخر صف بالكود .End(xlUp)(2, 1) بالرقم (7 )

استاذي / محمد صالح جزاك الله عنا كل خير - - نعم حضرتك على حق - ولكن - اذا كانت الدرجة اكثر من رقمين عندها ستكون المعادله غير دقيقه فمن مبدأ الامان استخدمت هذه المعادله اما وان كانت الدرجة لا يمكن ان تكون اكثر من حرف - يمكنك اخى الكريم Alsalim1 ان تستخدم المعادلة التى طرحها استاذ / محمد تقبل خالص تحياتى وتقديرى لشخصكم المحترم

السلام عليكم تقريبا حضرتك تقصد الطريقة الاولى -- ضع المعادلة التالية بالخلية C2 ثم اسحب لاسفل وابدي ملاحظاتك - ( لربما كانت الدرجات اكثر من رقم يفضل استخدام المعادلة التالية ) =LEFT(B2, SEARCH(" ",B2,1)) ان كان هذا ما تريد حدد الموضوع كمجاب تقبل مرورى وتحياتى

اخي الكريم لا داعى لمعادلة التكويد الى حضرتك ساحبها هى والتنسيقات لاخر صف بالصفحة !!!!!! ألا يهمك ان يكون الملف خفيف وسهل الاستخدام ؟؟؟ التكويد يتم من خلال نفس الكود -- تم الابقاء على تنسيقات 1000 صف وحذف الباقي حفاظاً على الملف كحجم وك ثبات - عند الانتهاء منها يمكنك تطبيقها بالسحب على الف اخرى وهكذا انظر المرفق وابدي ملاحظاتك - ان كان هو ما تريد حدد الموضوع كمجاب مخزن.rar

اخي الكريم كيف تريد فصل الدرجة عن الجنسيه -- الجنسيه والدرجه في العمود B -- والدرجة فى العمود C أم الجنسيه بالعمود B - الدرجة بالعمود C تقبل مرورى وتحياتي

السلام عليكم تفضل اخي الكريم احد طرق الحل =DATE(YEAR(TODAY()),MONTH(TODAY()),1)

السلام عليكم اخي الكريم لتنفيذ ذلك - امامك طريقتان - (1) ان تجعل البيانات ك # جدول Format as Table (2) المعادلات - وكلا الطريقتين مشروحتين على هذا الرابط http://www.techrepublic.com/blog/microsoft-office/two-ways-to-build-dynamic-charts-in-excel/ وبالملف طبقت لك طريقة الجدول المحوري 9.rar