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

[عادل حنفي]

السلام عليكم

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

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

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

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

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

تحياتي

Dinamic_Sum.rar

تم تعديل نوفمبر 25, 2008 بواسطه aah_aah2008

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

[ابوالزوز]

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

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

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

Application.EnableEvents

بدلا من

Application.ScreenUpdating

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

[احمدزمان]

مجهود جميل

وفكرة رائعة

بارك الله فيك

[عادل حنفي]

السلام عليكم

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

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

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

تم تعديل نوفمبر 25, 2008 بواسطه aah_aah2008

[أبوعبد الله]

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

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

تحياتي

أبو عبدالله

_______________________________________________________________________________________________.rar

[عادل حنفي]

السلام عليكم

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

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

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

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

خالص تحياتي

تم تعديل نوفمبر 26, 2008 بواسطه aah_aah2008

[ashraff101]

افكار رائعة بارك الله فيك

[عادل حنفي]

السلام عليكم

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

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

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

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

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

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

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

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

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

اخي ashraff101

اشكرك اخي

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

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

Khbur_.rar

New_Dinamic.rar

[mhareek]

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

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

اللهم امين

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

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

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

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

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

تم تعديل نوفمبر 26, 2008 بواسطه mhareek

[أبوعبد الله]

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

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

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

أبو عبدالله

[عادل حنفي]

السلام عليكم

اخي الحبيب mhareek

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

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

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

خالص تحياتي

تم تعديل نوفمبر 27, 2008 بواسطه aah_aah2008

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

السلام عليكم

تواصلاً للفكرة الجميلة للاخ عادل

تفضلوا المرفق

تحياتي لجميع المشاركين حفظهم الله

______________.rar

[عادل حنفي]

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

خالص تحياتي

Dinamic_Lable.rar

تم تعديل نوفمبر 27, 2008 بواسطه aah_aah2008

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

السلام عليكم

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

من الافضل تسمية النطاق (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

تم تعديل نوفمبر 27, 2008 بواسطه خبور خير

[ابوالزوز]

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

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

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

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

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

[قطان]

ماشاء الله

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

أضيف لو أمكن

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

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

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

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

والسلام ختام

[أبوعبد الله]

رائع أخي خبور وسلمت يداك

[عادل حنفي]

السلام عليكم

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

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

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

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

خالص تحياتي

Dinamic_Lable_last.rar

تم تعديل نوفمبر 29, 2008 بواسطه aah_aah2008

[الشيباني1]

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

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

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

[عادل حنفي]

السلام عليكم

اخي tofimoon4

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

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

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

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

تحياتي

[ابو اسامة العينبوسي]

السلام عليكم

ضع رقما في الخليه المقابله للتاريخ المدرج ستتم الاضافه

[الشيباني1]

أخواني الاعزاء اشكركم فقد وضحت الفكره وعذرا للتسرع

[Ahmed Emannan]

تحياتي

[عادل حنفي]

السلام عليكم

اخي stiffmillr

اشكرك علي المرور

تحياتي