اضافة سطر بنفس التنسيق والمعادلات

[ابوعماد]

اخوانى

هل من الممكن اضافة سطر بنفس التنسيق والمعادلات عند الوصول لنهاية الصف وضغط انتر

ابوعماد

مخزن سيارات.rar

تم تعديل أغسطس 22, 2010 بواسطه ابوعماد

[هشام شلبى]

السلام عليكم

===========

الاخ ابو عماد

شاهد المرفق

مخزن سيارات.rar

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي هشام

---------------------------

ولاثراء الموضوع

عندما تحرر آخر خلية فاضية في العمود 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

[ابوعماد]

اخى هشام بارك الله فيك

وكل عام وانت بخير

شكرا اخى على ردك السريع

ممكن اخى هشام ان تكون هناك داله ترقيم تلقائى تتحرك مع الصفوف كود

[ابوعماد]

شرف كبير ان يرد على عالمنا الجليل خبور خير

كل سنة وحضرتك طيب

شكرا اخى خبور

[عبدالله باقشير]

السلام عليكم

انا الذي تشرفت بذلك اخي عماد

كل عام وانت بخير

تقبل تحياتي وشكري

------------------------------

اذا اردت الترقيم في عمود الكود

ضف المعادلة التالية في صفوف العمود ومن ضمنها آخر خلية فاضية

=ROW()-6

خبور خير

[بن علية حاجي]

السلام عليكم ورحمة الله

تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب...

أخي الكريم أضيف إلى ما قدمه إخوتي الكرام الحل التالي الذي يعتمد إنشاء القوائم عن طريق DATA ثم LIST وهذا بعد تحديد الجدول بعناوينه... وبمجرد ما تضعه مؤشر الفأرة داخل أي جدول يتم ظهور سطر جديد (يحوي علامة النجمة) ويكون بالتنسيق نفسه ويحوي المعادلات نفسها مثل السطر الذي يعلوه...

مخزن سيارات_3.rar

أخوك بن علية

[ابوعماد]

اخى بن عليه

مبروك عليك الترقية

والله انت خبير من زمان

شكرا اخى

كل عام وانت بخير

اخى بن علية

كيف اضبفها وانا اعمل على اكسيل 2007

تم تعديل أغسطس 22, 2010 بواسطه ابوعماد

[inas aly]

السلام عليكم

بارك الله فيك اخي هشام

---------------------------

ولاثراء الموضوع

عندما تحرر آخر خلية فاضية في العمود 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

وبارك فيك ايها العالم

الكود خرافه يعني حلو حلو مفيد

نريد اضافه عليه

سيكون عندنا عدد معين هو عدد الطلاب في الصفحة الرئيسيه

وفي الصفحات الاخرى مثل صفحة الشيت وصفحة ملف انجاز وغيرها

توجد زؤوس لاعمده عدد الاعمده فيها يختلف من صفحه الى اخرى

عايزين الكود ينسخ الصف الاول الذي تجت العناوين في الصفحات المختلفه بعدد الطلاب

[هشام شلبى]

السلام عليكم

===========

بارك الله فيك استاذ خبور

بارك الله فيك اخى الحبيب بن عليه

ولمزيد من الافادة

الاخ ابو عماد

اضفت لك العمود A لزوم الترقيم التلقائى كما اردت

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

اضافة صف اوتوماتيك2.rar

[وائل مراد 700]

جزاكم الله خير الجزاء

جاري تجربة الكود أون شاء الله اعرف أطبقة على الملف الموجود عندي

كل الشكر لكم

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

[ahmed saif]

الف شكر انا جربت الكود وبجد شغال كويس والف شكر

[بيسان]

السلام عليكم...

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

 

شكرا لتعاونكم

 

 

 

 

اضافة صف اوتوماتيك2.zip

[بيسان]

الاخوة الكرام ...

 

يرجى تعديل الكود الموجود في المرفق للتمكن من اضافة صفوف جديدة للجدول مع المحافظة على السطر الاخير كما هو لانه سوف يحوي قيم مختلفة

 

برجاء المساعدة يا اخوان...!

 

 

شكرا

[طارق محمود]

السلام عليكم

الأخت الفاضلة

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

في السطر من الكود    mpRow = [A9999].End(xlUp).Row

الجزئية [A9999] افترضت فيها أن العمود A لابد أن يكون به بيانات عند كل بيان مسلسل وفي نفس الوقت ليس بهذا العمود A بيانات بالسطر الأخير الأصفر

حيث أنني فهمت أن السطر الأخير الأصفر سيكون به بعض بيانات (وليس كل أعمدته - مثل كلمة إجمالي أو..)

إذا كان لديك أي بيان في العمود A من السطر الأخير الأصفر فلتختاري عمودا آخر ليس به بيانات بالسطر الأخير الأصفر ولكن به بيانات في باقي الأسطر التي تعلوه مثلا لو العمود A مشغول ولكن E خالي 

فلتعدلي ذاك السطر ليكون mpRow = [E9999].End(xlUp).Row

وإن كان كل أعمدة السطر الأخير الأصفر مشغولة (بها بيانات) فلتعدلي هذا السطر من الكود ليكون   mpRow = [A9999].End(xlUp).Row-1

 

تفضلي المرفق

اضافة صف اوتوماتيك3.rar

[بيسان]

جزاك الله  كل خير يا اخ طارق ... سوف اجرب الكود ولي عودة ان شاء الله..

 

شكرا جزيلا مرة اخرى

 

سمية

[أبو عبد الرحمن سعيد]

بارك الله فيكم 

وجزاكم الله خيرا