عادل حنفي

السلام عليكم اخي الحسامي مشكور علي مرورك وتعقيبك اخي السيد عبد الفتاح اولا من الجيد ان يكون الملف يفي بالغرض و لكن هذا كما قلت مسبقا هذا حسب مافهمت من طلبك خالص تجياتي

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

السلام عليكم اخي عذرا فلم انتبه فقد تم رفع الملف اثناء مشكلة بالمنتدي عموما هاهو تحياتي مخازن.rar

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

السلام عليكم اخي امان بارك الله فيك و دعواتك اخواني ايسم ابراهيم هشام شلبي اشكركما علي المرور و كلماتكما الجميله و سعدت باضافتكما و التي اتمني ان تكون مستمره ان شاء الله اخي YasserKhalil بارك الله فيك اخي kemas المقصود بـ RANGE("a1") اي الخليه a1 اما المقصود بــ CELLS(I,1) هنا قد يكون مطلوب ان الكود يكرر عمله علي عدة صفوف في مدي معين في اي عمود نختاره و هنا سيكون شكل الكود كالتالي For I = 4 To 13 If Cells(I, 4) = "" Then Cells(I, 4).Interior.ColorIndex = 34 End If Next او بالشكل التالي X = 4 For I = 4 To 13 If Cells(I, X) = "" Then Cells(I, X).Interior.ColorIndex = 44 End If Next و الكود معناه ان يمر الكود علي الخليه الموجوده بالصفوف من 4 الي 13 و العمود الرابع فان وجدها خاليه يعطيها لون اخر مرفق ملف يوضح المقصود خالص تحياتي 2.rar

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

كيف تجعل عند الضغط علي ذر ان تحدد خليه معينه او مجموعة خلايا معينه؟ افتح ملف جديد من view ثم Toolbars و اختار control Toolbox و ذلك لاظهار شريط الادوات الذي سنحتاجه كثيرا في عملنا و بعد ذلك نضغط بالماوس علي شكل الزر الموجود علي هذا الشريط و نذهب بالماوس الي اي مكان فارغ داخل الشيت و نذعط علي زر الماوس الايسر دون ان نترك الزر نحدد حجك الزر برسمه بالماوس علي الشيت ستجد في هذا الوقت انك في وضع التصميم اي في الوضع الذي يمكنك من التعديل علي شكل الزر و كذلك كتابة الكود لهذا الزر و ايضا عند الضغط علي الزر بزر الماوس الايسر و اختيار Properties ستظهر لك قائمة تستطيع التعديل بها علي مواصفات الزر و كذلك اسمه جرب بها لمعرفة ما تستطيع عمله بها و لمعرفة انك في وضع التصميم او التنفيذ اولا شتجد شكل زر الماوس مختلفا في كلا الوضعان كذلك فانه في وضع التصميم ستجد علي الشريط الذي اظهرناه سابقا ايقونه علي شكل مثلث اقصي يسار الشريط فاذا كانت مضغوطه فمعناه انك في وذع التصميم و ان لم تكن فانك في وضع التنفيذ اي الوضع الذي اذا ضغط فيه علي الزر و كنت قد كتبت له كود سيقوم بتنفيذ هذا الكود نضغط علي الزر مرتان شتظهر لنا صفحة محرر الاكواد و ستجد سطران يها الاول Private Sub CommandButton1_Click() و الثاني End Sub و هذان السطران هما الذان سكتب بينهما الكود الذي نريده و الذي سينفذ عند الضغط علي الزر ناتي هنا الي ما نريد ان يقوم به الزر و هم اولا تحديد خليه معينه عند الضغط علي الزر و لتكن الخليه H11 و سيتم كتابة هذا السطر بين السطران السابقا Range("H11").Select ليكون الشكل النهائي كالتالي Private Sub CommandButton1_Click() Range("H11").Select End Sub اما اذا اردت تحديد مجموعة خلايا او مدي معين و ليكن من H11 الي H20 Private Sub CommandButton1_Click() Range("H11:H20").Select End Sub اغلق محرر الاكواد و اضغط علي المايقونة المثلث في الشريط السابق ذكر لنكون في وضع التصميم و اضغط علي الزر لتعرف نتيجة ما قمت بعمله جرب عمل هذا و اترك لتكيرك المجال للادراك و الاستنباط و التخيل لتساعد نفسك علي التعلم و بسرعة انا قصدت هنا ان اتوسع في التفاصيل شيئا ما لان النقطه التي ستفصل مرة ستعرف انها مهصلة مسبقا و المفرض من دخل علي الموضوع قد عرفها و بالتالي لن تشرح مرة اخري هذا البدايه وسنري ما يحدث لاحقا اما المتابعة او التوقف حاولت ارفاق مثالا لكن لا ادري هل العيب من عندي ام لا فلم يتم رفع الملف و امس حدث نفس الشئ مع ملف اخر المهم الموضوع بسيط جربوا واخبروني النتيجة خالص تحياتي و تقديري

السلام عليكم اخواني الاعزاء كثير منا يبحث لان يكتب كود و يضغط علي ذر لينفذ امر ما و تم عمل دورات كثيرة لذلك اليوم جاءتني فكرة جديدة بطريقة تفاعليه اتمني ان ان يكتب لها النجاح مارايكم اذا دخلنا مباشرة لما نريد و ماريده هنا سابدأ فكرته فسوف اطرح شيئ اريد عمله مهما كان بسيطا و بالتالي شرح طريقة تنفيذه عمليا دون الدخول في مذكرات و مقالات محاولة مني للاختصار و الدخول في صلب الموضوع و الكل طبعا مدعو للاسئلة و ايضا مدعو للرد علي الاسئلة و كلما كانت الاسئلة بسيطه استفاد منها كل من يريد التعلم و ايضا تجعل الرد عليها بسيطا دون الدخول في اشياء كبيره لايستطيع منها المبتدئ فهم شئ و في المجمل قد يكون هذا موضوعا مرجعا لكل مبتدئ و سأبدأ من عندي في مشاركة لاحقة بسؤال ثم الاجابة عليه كبداية و لا يخجل احد من سؤاله مهما كان بسيطا فهذا الموضوع اقصد به هذا النوع من الاسئلة فانا اريد الكل هنا حتي الذي لا يعرف شسئ مطلقا و الرجاء البساطة في الاسئلة حتي لا يكون هناك الحاجة لوقت طويل للاجابة عليها و يفقد الموضوع المقصود منه ارجو ان يكون موضعا يستفاد منه اكبر عدد و يشترك به اكبر عدد سواء من الاعضاء الجدد و الي المشرفين جميعا و سيكون الفيصل في استمرار الموضوع من عدمه هو تفاعلكم جميعا سواء بالاسئلة او بالرد عليه خالص تحياتي و تقدير

السلام عليكم اخي الفاضل skyblue If Target.Address = Range("kh_test").Cells(MyRows - 2, 1).Address و هذا يعني انه ادا كان عنوان الخلية المحددة = عنوان الصف ما قبل الاخير للمدي kh_test فلنفرض ان المدي kh_test هو من A1:A8 فلخلية المقصوده هنا هي A6 Range("kh_test").Cells(MyRows - 1, 1).EntireRow.Insert و هذا معناه ان يتم ادراج صف قبل الصف الاخير لعدد الصفوف للمدي kh_test Target.Resize(1, 4).Interior.ColorIndex = xlNone Target(2, 1).Resize(1, 4).Interior.ColorIndex = 36 وهذان السطران مرتبطان ببعضهما حيث ان السطر الاول لازالة الالوان من صف الخلية المحددة و الي العمود الرابع منها و السطر الثاني لاعطاء لون للصف الذي يلي الخليه المحددة و الي العمود الربع منها ارجو ان اكون وفقت في الشرح خالص تحياتي

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

السلام عليكم اخي YasserKhalil ليس هناك اي خلاف اخي ولكن وهذا راي طبعا و قد يختلف معه البعض انك لكي تكتب كود لابد من فكره ولتجد الفكره لابد من سؤال تفكر فيه لتجد حلا مناسبا له و هذا ما يحدث بالفعل بالمنتدي اتمني ان تكون فكرتي وصلت خصوصا وان السائل في معظم الاحيان قد لا يكون له خبرة مطلفا بالاكواد الا انه يريد حلا لمشكلة ما قابلته لانجاز عملا ما المهم لا اريد احباط محاولتك و لا اريد الحكم السريع عليها و لننتظر اراء الاخوه فقد تكون هناك طريقة تحقق ما تريد خالص تحياتي

السلام عليكم و هذا اهداء اليك اخي الحسامي حتي اشعر باشتراكي معكم في اثراء هذا الموضزع خالص تحياتي و تقديري البرنامج15.rar

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

السلام عليكم اخي YasserKhalil كلماتك اعتبرها اجتهادا و حبا في تفاعل يضاف الي رصيد اجتهادك و تفاعلك و لكني اؤيد الاخ محمد عسكر في رايه و هو المطبق بالفعل في هذا الصرح(اوفسينا) فلمجرد انك تتجول ستجد مكتبه عامره وراؤها عمالقه اعتبر ايضا المنتدي هو مكتبة لهم بارك الله فيك و في افكارك خالص تحياتي

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

السلام عليكم اخي الجزيره جرب المرفق و اتمني ان يكون المطلوب و اعتقد ان كده الملف بقي اصغر تحياتي New_Invoice1.rar

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

السلام عليكم اخي حسام عمل ممتاز بارك الله فيك تحياتي

السلام عليكم اخي جرب الملف المرفق و اخبرني بالنتيجه خالص تحياتي العملاء19.rar

السلام عليكم اخي الخالدي اشكرك علي اخي الحبيب كلماتك و مرورك و مجهودك بارك الله فيك اخي semsemfox بارك الله فيك يا اخي المهم ان تستفيد بالعمل و عموما انا حبيت فكرة الموضوع و قمت ببعض الاشياء قد تكون معالجه للنقطة التي اثرتها طبعا ارجو ذلك جرب الملف المرفق و اخبرني النتيجه خالص تحياتي و تقديري للجميع العملاء18.rar

السلام عليكم و لا يهمك انت تامر تحياتي list1.rar

السلام عليكم اخي ياسر اتعشم ان يكون هذا هو المطلوب تحياتي list.rar

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

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

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