ابوعماد قام بنشر أغسطس 22, 2010 قام بنشر أغسطس 22, 2010 (معدل) اخوانى هل من الممكن اضافة سطر بنفس التنسيق والمعادلات عند الوصول لنهاية الصف وضغط انتر ابوعماد مخزن سيارات.rar تم تعديل أغسطس 22, 2010 بواسطه ابوعماد
هشام شلبى قام بنشر أغسطس 22, 2010 قام بنشر أغسطس 22, 2010 السلام عليكم =========== الاخ ابو عماد شاهد المرفق مخزن سيارات.rar
عبدالله باقشير قام بنشر أغسطس 22, 2010 قام بنشر أغسطس 22, 2010 السلام عليكم بارك الله فيك اخي هشام --------------------------- ولاثراء الموضوع عندما تحرر آخر خلية فاضية في العمود A يضاف لك الصف الجديد بنفس التنسيقات والمعادلات لصف هذه الخلية الكود موجود في الوحدة النمطية للورقة1 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(Rows.Count, 1).End(xlUp).Address Then If Target.Value <> "" Then _ kh_AutoFill (Target.Resize(1, 13).Address) End If End Sub ---------------------------------------- Function kh_AutoFill(myRng As String) With Range(myRng) .AutoFill .Resize(2) .Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents End With End Function مخزن سيارات.rar 1
ابوعماد قام بنشر أغسطس 22, 2010 الكاتب قام بنشر أغسطس 22, 2010 اخى هشام بارك الله فيك وكل عام وانت بخير شكرا اخى على ردك السريع ممكن اخى هشام ان تكون هناك داله ترقيم تلقائى تتحرك مع الصفوف كود
ابوعماد قام بنشر أغسطس 22, 2010 الكاتب قام بنشر أغسطس 22, 2010 شرف كبير ان يرد على عالمنا الجليل خبور خير كل سنة وحضرتك طيب شكرا اخى خبور
عبدالله باقشير قام بنشر أغسطس 22, 2010 قام بنشر أغسطس 22, 2010 السلام عليكم انا الذي تشرفت بذلك اخي عماد كل عام وانت بخير تقبل تحياتي وشكري ------------------------------ اذا اردت الترقيم في عمود الكود ضف المعادلة التالية في صفوف العمود ومن ضمنها آخر خلية فاضية =ROW()-6 خبور خير
بن علية حاجي قام بنشر أغسطس 22, 2010 قام بنشر أغسطس 22, 2010 السلام عليكم ورحمة الله تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب... أخي الكريم أضيف إلى ما قدمه إخوتي الكرام الحل التالي الذي يعتمد إنشاء القوائم عن طريق DATA ثم LIST وهذا بعد تحديد الجدول بعناوينه... وبمجرد ما تضعه مؤشر الفأرة داخل أي جدول يتم ظهور سطر جديد (يحوي علامة النجمة) ويكون بالتنسيق نفسه ويحوي المعادلات نفسها مثل السطر الذي يعلوه... مخزن سيارات_3.rar أخوك بن علية 1
ابوعماد قام بنشر أغسطس 22, 2010 الكاتب قام بنشر أغسطس 22, 2010 (معدل) اخى بن عليه مبروك عليك الترقية والله انت خبير من زمان شكرا اخى كل عام وانت بخير اخى بن علية كيف اضبفها وانا اعمل على اكسيل 2007 تم تعديل أغسطس 22, 2010 بواسطه ابوعماد
inas aly قام بنشر أغسطس 22, 2010 قام بنشر أغسطس 22, 2010 السلام عليكم بارك الله فيك اخي هشام --------------------------- ولاثراء الموضوع عندما تحرر آخر خلية فاضية في العمود A يضاف لك الصف الجديد بنفس التنسيقات والمعادلات لصف هذه الخلية الكود موجود في الوحدة النمطية للورقة1 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(Rows.Count, 1).End(xlUp).Address Then If Target.Value <> "" Then _ kh_AutoFill (Target.Resize(1, 13).Address) End If End Sub ---------------------------------------- Function kh_AutoFill(myRng As String) With Range(myRng) .AutoFill .Resize(2) .Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents End With End Function وبارك فيك ايها العالم الكود خرافه يعني حلو حلو مفيد نريد اضافه عليه سيكون عندنا عدد معين هو عدد الطلاب في الصفحة الرئيسيه وفي الصفحات الاخرى مثل صفحة الشيت وصفحة ملف انجاز وغيرها توجد زؤوس لاعمده عدد الاعمده فيها يختلف من صفحه الى اخرى عايزين الكود ينسخ الصف الاول الذي تجت العناوين في الصفحات المختلفه بعدد الطلاب
هشام شلبى قام بنشر أغسطس 23, 2010 قام بنشر أغسطس 23, 2010 السلام عليكم =========== بارك الله فيك استاذ خبور بارك الله فيك اخى الحبيب بن عليه ولمزيد من الافادة الاخ ابو عماد اضفت لك العمود A لزوم الترقيم التلقائى كما اردت لغينا زر الكبسة لعمل الكود والكود يعمل بمجرد ععمل دبل كليك يضاف صف جديد مرقم اليا يحافظ على التنسيقات ويحافظ على الصيغ ان شاء الله اضافة صف اوتوماتيك2.rar
وائل مراد 700 قام بنشر أغسطس 23, 2010 قام بنشر أغسطس 23, 2010 جزاكم الله خير الجزاء جاري تجربة الكود أون شاء الله اعرف أطبقة على الملف الموجود عندي كل الشكر لكم لكن لي سؤال هل المعادلات الموجودة في باقي الصف تكون كما هي موجودة في الصف السابق أم لا
ahmed saif قام بنشر أغسطس 26, 2010 قام بنشر أغسطس 26, 2010 الف شكر انا جربت الكود وبجد شغال كويس والف شكر
بيسان قام بنشر يناير 28, 2013 قام بنشر يناير 28, 2013 السلام عليكم... حقيقة العمل جدا رائع وومتكامل يا اخوان والله يعطيكم الف عافية.. بس احب استفسر اذا كان فيه كود او تعديل يسمح باضافة الصفوف في الجدول ضمنيا بين الصف الاول والصف الاخيرحيث يتم ادراج الصف ضمن الجدول دائما قبل الصف الاخير الثابت لدي كما في المرفق..! شكرا لتعاونكم اضافة صف اوتوماتيك2.zip
بيسان قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 الاخوة الكرام ... يرجى تعديل الكود الموجود في المرفق للتمكن من اضافة صفوف جديدة للجدول مع المحافظة على السطر الاخير كما هو لانه سوف يحوي قيم مختلفة برجاء المساعدة يا اخوان...! شكرا
طارق محمود قام بنشر فبراير 2, 2013 قام بنشر فبراير 2, 2013 السلام عليكم الأخت الفاضلة بالمرفق لابد أن تراجعي أو تعدلي الكود ليتمكن من تعيين آخر صف بدقة في السطر من الكود mpRow = [A9999].End(xlUp).Row الجزئية [A9999] افترضت فيها أن العمود A لابد أن يكون به بيانات عند كل بيان مسلسل وفي نفس الوقت ليس بهذا العمود A بيانات بالسطر الأخير الأصفر حيث أنني فهمت أن السطر الأخير الأصفر سيكون به بعض بيانات (وليس كل أعمدته - مثل كلمة إجمالي أو..) إذا كان لديك أي بيان في العمود A من السطر الأخير الأصفر فلتختاري عمودا آخر ليس به بيانات بالسطر الأخير الأصفر ولكن به بيانات في باقي الأسطر التي تعلوه مثلا لو العمود A مشغول ولكن E خالي فلتعدلي ذاك السطر ليكون mpRow = [E9999].End(xlUp).Row وإن كان كل أعمدة السطر الأخير الأصفر مشغولة (بها بيانات) فلتعدلي هذا السطر من الكود ليكون mpRow = [A9999].End(xlUp).Row-1 تفضلي المرفق اضافة صف اوتوماتيك3.rar
بيسان قام بنشر فبراير 3, 2013 قام بنشر فبراير 3, 2013 جزاك الله كل خير يا اخ طارق ... سوف اجرب الكود ولي عودة ان شاء الله.. شكرا جزيلا مرة اخرى سمية
الردود الموصى بها