عادل حنفي قام بنشر نوفمبر 24, 2008 مشاركة قام بنشر نوفمبر 24, 2008 (معدل) السلام عليكم خطرت فكرة علي بالي ان يوجد امامي جدول علي شكل متنامي باكود لا اتدخل فيه للجمع مثلا و احترت في الشكل و اشياء اخري كثيره و افكار ايضا يمكن ان تضاف المهم بعد فتره وجدت فكره لذلك قد تكون جيده من وجة نظري و غير ذلك من وجهة نظر اخري عموما الفكره في البدايه و كما ذكرت قد تكون هناك اضافات اخري ان شاء الله ارجو التجربه و اخباري بالنتيجه تحياتي Dinamic_Sum.rar تم تعديل نوفمبر 25, 2008 بواسطه aah_aah2008 2 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 24, 2008 مشاركة قام بنشر نوفمبر 24, 2008 رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر نوفمبر 25, 2008 مشاركة قام بنشر نوفمبر 25, 2008 السلام عليكم ،، أخي العزيز aah_aah2008 شكراً جزيلاً على هذا المجهود الرائع ولدي إضافة بسيطة لو سمحت لي حيث يمكنك استخدام الكود Application.EnableEvents بدلا من Application.ScreenUpdating تقبل تحياتي .. رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر نوفمبر 25, 2008 مشاركة قام بنشر نوفمبر 25, 2008 مجهود جميل وفكرة رائعة بارك الله فيك رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 25, 2008 الكاتب مشاركة قام بنشر نوفمبر 25, 2008 (معدل) السلام عليكم اخي الحبيب و استاذنا خبور اشكرك علي المرو ر و اشكرك علي هديتك اخي الحبيب abuzzouz اشكرك اخي و ساعمل علي اقتراحك انشاء الله اخي الحبيب احمد يعقوب اشكرك علي مرورك و علي كلماتك تم تعديل نوفمبر 25, 2008 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر نوفمبر 25, 2008 مشاركة قام بنشر نوفمبر 25, 2008 أخي الحبيب / عادل أشكرك على الفكرة المتميزة وقد أوحت إلى بإضافات بسيطة في نفس الإطار مما يساعد على توسيع دائرة استخدامها في أمور أخرى أرجو أن تكون مفيدة . تحياتي أبو عبدالله _______________________________________________________________________________________________.rar 1 رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 25, 2008 الكاتب مشاركة قام بنشر نوفمبر 25, 2008 (معدل) السلام عليكم اخي الحبيب ابو عبدالله اشكرك علي مروك الكريم و اهي فرصه جيده للاطمئنان عليك و طبعا الافكار الجميله و المميزه التي ستكمل له ان شاء الله فيما بعد تصلح للاستخدام في اي شئ حسب ما تحتاجه خالص تحياتي تم تعديل نوفمبر 26, 2008 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
ashraff101 قام بنشر نوفمبر 25, 2008 مشاركة قام بنشر نوفمبر 25, 2008 افكار رائعة بارك الله فيك رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 25, 2008 الكاتب مشاركة قام بنشر نوفمبر 25, 2008 السلام عليكم ارسل لي الاخ العزيز خبور جدول بكود مختلف احب ان ارفعه اليكم ليستفيد الجميع كما استفدت منه فهو بالفعل هديه من اخ عزيز اشكره عليها كما ارسل اليكم ملف اخر تم عمله باستعمال كود الاخ خبور مع التعديلات حسب حاجتي للملف مع اضافة ميزة اخري علي جدولي السابق بان يتم تنامي الجدول ليس عند الكتابه بالخليه الاخيره للعمود الاول بل للاربع خلايا الاخيره للاربعة اعمده وهذه تعتبر اضافه جديده و مفتوح الحوار لاضافات اخري اخي العزيز ابو عبدالله رددت عليك علي اضافتك و لكني بعدما تاملتها و جدت ان ردي ليس كافيا فبالفعل اضافتك رائعة وودت ان اشكرك عليه مرة اخري لانك بالفعل تستحق ذلك و بالفعل الكود رائع بارك الله فيك اخي ashraff101 اشكرك اخي وبارك الله فيك ايضا تحياتي للجميع Khbur_.rar New_Dinamic.rar 1 رابط هذا التعليق شارك More sharing options...
mhareek قام بنشر نوفمبر 26, 2008 مشاركة قام بنشر نوفمبر 26, 2008 (معدل) اخى الحبيييب سلمت جعلهاالله فى ميزان حسناتك اللهم امين فمن يعطى بدون انتظار مقابل قليل هذا الزمان بارك الله فيك اخى الحبييب وبارك الله فى اخوانى الاستاز خبور والاستاذ سليمان واكسلنجى وكل من يحاول مساعدة اخونة بارك الله فيكم فالمسلم للمسلم كالبنيان الواحد والحمد للة رب العالمين تم تعديل نوفمبر 26, 2008 بواسطه mhareek رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر نوفمبر 26, 2008 مشاركة قام بنشر نوفمبر 26, 2008 أخي الحبيب / عادل أشكرك على كلامك الجميل وعلى أنك من فتحت هذا الموضوع الذي كان في بالي منذ فترة والذي لازلت أرى أننا سنرى الكثير من الأفكار في إطاره وأنا أعمل على أحدها وإن شاء الله أنتهى منهى قريباً ، كما أشكر أخي الحبيب خبور على إضافاته ولمساته المتميزة دائماً وأهنيئ نفسي وإخواني على عودته الحميدة وأسأل الله لكم جميعاً كل التوفيق والسعادة . تقبلوا تحياتي أبو عبدالله رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 26, 2008 الكاتب مشاركة قام بنشر نوفمبر 26, 2008 (معدل) السلام عليكم اخي الحبيب mhareek اشكرك علي مرورك و كلماتك و بارك فيك ايضا جعلنا الله جميعا نسعي الي افادة الجميع ونكون يدا واحدة لرفع راية امتنا عاليا اخي الحبيب ابو عبد الله في انتظار اضافتك بشوق اكرمك الله خالص تحياتي تم تعديل نوفمبر 27, 2008 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 26, 2008 مشاركة قام بنشر نوفمبر 26, 2008 السلام عليكم تواصلاً للفكرة الجميلة للاخ عادل تفضلوا المرفق تحياتي لجميع المشاركين حفظهم الله ______________.rar 1 رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 26, 2008 الكاتب مشاركة قام بنشر نوفمبر 26, 2008 (معدل) السلام عليكم اخي الحبيب خبور الكود الاخير بالفعل موجز و مرن اكثر بارك الله فيك رايت مشاركتك باكرا و لم اشأ الرد الا بعد تجهيز اضافه اخري الاضافه الجديده عباره عن توسيع او تكبير افقي للجدول وزي ما شرحت لك الكود الجديد وجدت به امكانيه زيادة الاعمده الي ما تشاء وهذه المرونه بالفعل ما ارجوه لهذا الجدول ان يكون عليه لذا قمت و بنفس الطريقة المرنه التي لا يشعر بها المستخدم الا للحظه فقط و قد لا يلحظها و هي اضافة زر لاخفاء الصفوف و اظهارها و عند الاخفاء يتم اظهار فقط الخليه التي بجب ان يضاف بها او يسجل بها مع تغير اسمه حسب الحاله اخفاء او اظهار و المرونه هنا هو ان الاخفاء سيتم بمرونه مع زيادة نطاق الجدول اي سيكون ليس ثابتا فلو كان هناك 1000 صف ستكون النتيجه كما كانت لو كنت تعمل علي خمس صفوف مثلا خالص تحياتي Dinamic_Lable.rar تم تعديل نوفمبر 27, 2008 بواسطه aah_aah2008 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 27, 2008 مشاركة قام بنشر نوفمبر 27, 2008 (معدل) السلام عليكم اخي المكرم / عادل ----------------حفظه الله من الافضل تسمية النطاق (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 بواسطه خبور خير 2 رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر نوفمبر 27, 2008 مشاركة قام بنشر نوفمبر 27, 2008 السلام عليكم ،، الله يجزيك الخير أخي العزيز خبور شيء فعلاً خطير خطير .. بس في تعليق لو سمحت لي وهو أن الأسطر لاتختفي عند مسح أكثر من خلية في آن واحد في العمود B تقبل تحياتي وشكراً على هذه الأعمال الرائعة رابط هذا التعليق شارك More sharing options...
قطان قام بنشر نوفمبر 28, 2008 مشاركة قام بنشر نوفمبر 28, 2008 ماشاء الله بعد اعادة ملاحظة أخي abuzzouz أضيف لو أمكن مع كل اسم يضاف للعمود أعلى القائمة يضاف عمود بنفس الخواص فارغ ولدى اضافة اسم له يضاف عمود آخر كما يمكن جعل العمود الأخير مجموع أفقي للأسطر في الجدول والسلام ختام رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر نوفمبر 29, 2008 مشاركة قام بنشر نوفمبر 29, 2008 رائع أخي خبور وسلمت يداك رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 29, 2008 الكاتب مشاركة قام بنشر نوفمبر 29, 2008 (معدل) السلام عليكم ممتاز اخي العزيز خبور و انا كملت نسخة مع اضافة الالغاء للصف ولكن برسالة تحذيريه وبه بعض الافكار جديدة من الافضل التجربه خالص تحياتي Dinamic_Lable_last.rar تم تعديل نوفمبر 29, 2008 بواسطه aah_aah2008 1 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 29, 2008 مشاركة قام بنشر نوفمبر 29, 2008 أخواني الاعزاء جهد رائع وذكاء لامع تشكرون عليه ، ملاحظة بسيطه: - عند اضافة تاريخ جديد لا ينزل الى السطر الفارغ المزمع استخدامه بل يشمل التاريخ الاول فقط احتمال انني لم اعرف طريقة الاستخدام الصحيحه مع الشكر رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 29, 2008 الكاتب مشاركة قام بنشر نوفمبر 29, 2008 السلام عليكم اخي tofimoon4 ارجو ان اكون فهمت ماتقصده فخانة التاريخ هذه التي بالاعلي هي التي يجب ان تضع بها التاريخ الذي تريد ان يبدا به الجدول و لكن اذا بدات الكتابه بالجدول لعدة خانات فانها لن تؤثر الا علي الخانة التي تليها فقط و ان لم يكن هذا ما تقصده ارجو التوضيح تحياتي رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر نوفمبر 29, 2008 مشاركة قام بنشر نوفمبر 29, 2008 السلام عليكم ضع رقما في الخليه المقابله للتاريخ المدرج ستتم الاضافه رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر نوفمبر 30, 2008 مشاركة قام بنشر نوفمبر 30, 2008 أخواني الاعزاء اشكركم فقد وضحت الفكره وعذرا للتسرع رابط هذا التعليق شارك More sharing options...
Ahmed Emannan قام بنشر نوفمبر 30, 2008 مشاركة قام بنشر نوفمبر 30, 2008 تحياتي رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر ديسمبر 1, 2008 الكاتب مشاركة قام بنشر ديسمبر 1, 2008 السلام عليكم اخي stiffmillr اشكرك علي المرور تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان