اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

=ROW()-6

خبور خير

رابط هذا التعليق
شارك

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

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

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

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

أخوك بن علية

  • Like 1
رابط هذا التعليق
شارك

اخى بن عليه

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

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

شكرا اخى

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

اخى بن علية

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

تم تعديل بواسطه ابوعماد
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

رابط هذا التعليق
شارك

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

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

كل الشكر لكم

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

رابط هذا التعليق
شارك

  • 2 years later...

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

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

 

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

 



 

 


 

اضافة صف اوتوماتيك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

رابط هذا التعليق
شارك

  • 8 months later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information