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

الجدول الديناميكي


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

السلام عليكم

خطرت فكرة علي بالي ان يوجد امامي جدول علي شكل متنامي باكود لا اتدخل فيه للجمع مثلا

و احترت في الشكل و اشياء اخري كثيره و افكار ايضا يمكن ان تضاف

المهم بعد فتره وجدت فكره لذلك قد تكون جيده من وجة نظري و غير ذلك من وجهة نظر اخري

عموما الفكره في البدايه و كما ذكرت قد تكون هناك اضافات اخري ان شاء الله

ارجو التجربه و اخباري بالنتيجه

تحياتي

Dinamic_Sum.rar

تم تعديل بواسطه aah_aah2008
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • الردود 77
  • Created
  • اخر رد

Top Posters In This Topic

السلام عليكم ،،

أخي العزيز aah_aah2008 شكراً جزيلاً على هذا المجهود الرائع

ولدي إضافة بسيطة لو سمحت لي حيث يمكنك استخدام الكود

Application.EnableEvents
بدلا من
Application.ScreenUpdating

تقبل تحياتي ..

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

السلام عليكم

اخي الحبيب و استاذنا خبور اشكرك علي المرو ر و اشكرك علي هديتك

اخي الحبيب abuzzouz اشكرك اخي و ساعمل علي اقتراحك انشاء الله

اخي الحبيب احمد يعقوب اشكرك علي مرورك و علي كلماتك

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

أخي الحبيب / عادل

أشكرك على الفكرة المتميزة وقد أوحت إلى بإضافات بسيطة في نفس الإطار مما يساعد على توسيع دائرة استخدامها في أمور أخرى أرجو أن تكون مفيدة .

تحياتي

أبو عبدالله

_______________________________________________________________________________________________.rar

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

السلام عليكم

اخي الحبيب ابو عبدالله

اشكرك علي مروك الكريم و اهي فرصه جيده للاطمئنان عليك

و طبعا الافكار الجميله و المميزه التي ستكمل له ان شاء الله فيما

بعد تصلح للاستخدام في اي شئ حسب ما تحتاجه

خالص تحياتي

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

السلام عليكم

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

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

كما ارسل اليكم ملف اخر تم عمله باستعمال كود الاخ خبور مع التعديلات

حسب حاجتي للملف مع اضافة ميزة اخري علي جدولي السابق بان يتم تنامي

الجدول ليس عند الكتابه بالخليه الاخيره للعمود الاول بل للاربع خلايا الاخيره للاربعة اعمده وهذه تعتبر اضافه جديده

و مفتوح الحوار لاضافات اخري

اخي العزيز ابو عبدالله رددت عليك علي اضافتك و لكني بعدما تاملتها و جدت

ان ردي ليس كافيا فبالفعل اضافتك رائعة وودت ان اشكرك عليه مرة اخري لانك بالفعل تستحق ذلك

و بالفعل الكود رائع بارك الله فيك

اخي ashraff101

اشكرك اخي

وبارك الله فيك ايضا

تحياتي للجميع

Khbur_.rar

New_Dinamic.rar

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

اخى الحبيييب سلمت

جعلهاالله فى ميزان حسناتك

اللهم امين

فمن يعطى بدون انتظار مقابل قليل هذا الزمان

بارك الله فيك اخى الحبييب وبارك الله فى اخوانى الاستاز خبور والاستاذ سليمان واكسلنجى وكل من يحاول مساعدة اخونة

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

فالمسلم للمسلم كالبنيان الواحد

والحمد للة رب العالمين

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

أخي الحبيب / عادل

أشكرك على كلامك الجميل وعلى أنك من فتحت هذا الموضوع الذي كان في بالي منذ فترة والذي لازلت أرى أننا سنرى الكثير من الأفكار في إطاره وأنا أعمل على أحدها وإن شاء الله أنتهى منهى قريباً ، كما أشكر أخي الحبيب خبور على إضافاته ولمساته المتميزة دائماً وأهنيئ نفسي وإخواني على عودته الحميدة وأسأل الله لكم جميعاً كل التوفيق والسعادة .

تقبلوا تحياتي

أبو عبدالله

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

السلام عليكم

اخي الحبيب mhareek

اشكرك علي مرورك و كلماتك و بارك فيك ايضا جعلنا الله جميعا نسعي الي افادة الجميع ونكون يدا واحدة لرفع راية امتنا عاليا

اخي الحبيب ابو عبد الله

في انتظار اضافتك بشوق اكرمك الله

خالص تحياتي

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

السلام عليكم

اخي الحبيب خبور

الكود الاخير بالفعل موجز و مرن اكثر بارك الله فيك

رايت مشاركتك باكرا و لم اشأ الرد الا بعد تجهيز اضافه اخري

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

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

وهذه المرونه بالفعل ما ارجوه لهذا الجدول ان يكون عليه

لذا قمت و بنفس الطريقة المرنه التي لا يشعر بها المستخدم الا للحظه فقط و قد لا يلحظها

و هي اضافة زر لاخفاء الصفوف و اظهارها و عند الاخفاء يتم اظهار فقط الخليه التي بجب ان يضاف بها او يسجل بها

مع تغير اسمه حسب الحاله اخفاء او اظهار

و المرونه هنا هو ان الاخفاء سيتم بمرونه مع زيادة نطاق الجدول اي سيكون ليس ثابتا فلو كان هناك 1000 صف

ستكون النتيجه كما كانت لو كنت تعمل علي خمس صفوف مثلا

خالص تحياتي

Dinamic_Lable.rar

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

السلام عليكم

اخي المكرم / عادل ----------------حفظه الله

من الافضل تسمية النطاق (kh_test_1) بعدد الاعمدة التي تشمله ( لم يتم تغييره في مرفقك)

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

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

ويصبح الكود ثابت ويتم فقط للاستخدام تحديد النطاق في الورقة

مثلا :

MyColumns = .Columns.Count
اليك الكود :
Private Sub Worksheet_Change(ByVal Target As range)
Dim MyRows As Integer, MyColumns As Integer, MyRange As range, MyRange1 As range
On Error GoTo 1
With range("kh_test_1")
    MyRows = .Rows.Count - 1
    MyColumns = .Columns.Count
    Set MyRange = .range(cells(MyRows, 1), cells(MyRows, MyColumns))
    If Not Intersect(Target.cells(1, 1), MyRange.cells) Is Nothing _
    And Target.Value <> "" Then
        MyRange.EntireRow.Insert
        Set MyRange1 = .range(cells(MyRows, 1), cells(MyRows, MyColumns))
        MyRange1.Value = MyRange.Value
        MyRange.ClearContents
    End If
End With
1 End Sub
==================================================== و هناك اضافة جديدة لو تريدها في حالة اردت حذف صف معين تمسح بيانات خلية الاسم فيحذف الصف تلقائيا باستخدام هذا الكود:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRows As Integer, MyRange As Range, MyRange1 As Range, MyCells As Range
On Error GoTo 1
With Range("kh_test_1")
    MyRows = .Rows.Count - 1
    Set MyRange = .Range(Cells(MyRows, 1), Cells(MyRows, 4))
    Set MyCells = .Range(Cells(1, 1), Cells(MyRows - 1, 1))
    If Not Intersect(Target.Cells(1, 1), MyRange.Cells) Is Nothing _
    And Target.Value <> "" Then
        MyRange.EntireRow.Insert
        Set MyRange1 = .Range(Cells(MyRows, 1), Cells(MyRows, 4))
        MyRange1.Value = MyRange.Value
        MyRange.ClearContents
    End If
End With
    If Not Intersect(Target.Cells(1, 1), MyCells.Cells) Is Nothing Then
        If Target.Value = "" Then Target.EntireRow.Delete
    End If
1 End Sub

سارفق الملف لاحقا

Dinamic_Lable1.rar

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

السلام عليكم ،،

الله يجزيك الخير أخي العزيز خبور شيء فعلاً خطير خطير ..

بس في تعليق لو سمحت لي وهو أن الأسطر لاتختفي عند

مسح أكثر من خلية في آن واحد في العمود B

تقبل تحياتي وشكراً على هذه الأعمال الرائعة

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

ماشاء الله

بعد اعادة ملاحظة أخي abuzzouz

أضيف لو أمكن

مع كل اسم يضاف للعمود أعلى القائمة

يضاف عمود بنفس الخواص فارغ

ولدى اضافة اسم له يضاف عمود آخر

كما يمكن جعل العمود الأخير مجموع أفقي للأسطر في الجدول

والسلام ختام :cool2:

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

السلام عليكم

ممتاز اخي العزيز خبور

و انا كملت نسخة مع اضافة الالغاء للصف ولكن برسالة تحذيريه

وبه بعض الافكار جديدة

من الافضل التجربه

خالص تحياتي

Dinamic_Lable_last.rar

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

أخواني الاعزاء جهد رائع وذكاء لامع تشكرون عليه ، ملاحظة بسيطه:

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

احتمال انني لم اعرف طريقة الاستخدام الصحيحه مع الشكر

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

السلام عليكم

اخي tofimoon4

ارجو ان اكون فهمت ماتقصده

فخانة التاريخ هذه التي بالاعلي هي التي يجب ان تضع بها التاريخ الذي تريد ان يبدا به الجدول

و لكن اذا بدات الكتابه بالجدول لعدة خانات فانها لن تؤثر الا علي الخانة التي تليها فقط

و ان لم يكن هذا ما تقصده ارجو التوضيح

تحياتي

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information