عادل حنفي

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

السلام عليكم اخي ابو صبري اشكرك اخي تحياتي

السلام عليكم اخي بداية ترددت لانني اشعر ان طلبك غير واضح المهم ارجو رؤية الملف و ان لم يكن المطلوب ارجو التوضيح تحياتي copy.rar

السلام عليكم اخي جرب الملف هكذا ان شاء الله يكون المطلوب كلام الاخ amoudi مضيوط تحياتي substation.rar

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

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

السلام عليكم ليس امامي الملف الذي تقصديه لاخي خبور عموما مرفق ملف يفكك تاريخ الميلاد و التاريخ الاخر عن طريق الدوال Day Month Year ثم القيام بعملية الطرح عن طريق دالة If لضبط عملية الطرح ارجو التجربه و اخباري النتيجة تم تعديله تحياتي ___________.rar

السلام عليكم اخي الأسد الجريح اعذرني اخي فقد فهمت خطأ في البداية انك تريد عندما يتحقق الشرط ان تجمع مابداخل الخلية F علي ما بداخل الخلية B وبنيت ملفي علي ذلك زعندما راجعت ملفك و ماكتبته انت داخله فهمت ماتريد جرب الملف التالي والكود بهذا الملف لا يستنتج كامل الصفوف مرة واحدة بل يعمل علي الصف الذي تسجله فقط لذا من الافضل ان يكون عملك به علي ملف جديد لتكون النتائج كما تريدها تحياتي testB.rar

السلام عليكم اخي BU3MMAR و هذا تعديل اخر لزيادة سرعة الكود تحياتي Bu3mmar5.rar

السلام عليكم اخي ارسل الملف و ان شاء الله نعمل اللازم تحياتي

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

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

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

السلام عليكم لك كل الشكر اخي أبوبكر شرف الدين و كل الشكر لك اخي magodey تحياتي

السلام عليكم عذرا اخي TareQ M لن ار مشاركتك الا بعد رفع مشاركتي تحياتي

السلام عليكم جرب اخي و اخبرني النتيجة سيتم عمل الكود بمجر التغيير في العمود F خالص تحياتي testA.rar

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

السلام عليكم اخي احمد يعقوب اشكرك علي تعقيبك اخي abcdefgh2005 و بعد اذن الاساتذة المشاركين عن طريق برنامج لدي تم طباعة الملف المرفق و كانت البيانات غير ظاهرة بمعني ان الطباعة لم تتم بواسطة طابعة حقيقيه فكرة الملف الضغط علي زر يطهر لك فورم عند الضغط علي زر Print الموجود بها يحول خط كافة بيانات الخلايا في الشيت الذي تتم طباعته سواء الاول او الثاني او مهما كان اسمه الي اللون الابيض قبل الطباعة و بعد الانتهاء ترجع الامور كما كانت عليه لا اشعر هنا باضافة جديد في الفكرة المطروحة سابقا بيد الاخ نزار و الاخ amoudi و لكن هذا لكي لا تتم العملية بطريقة يدويه و طبعا يمكن عمل ذلك بتحديد خلايا معينه فقط التي يتم تغير لون خطها و ليس كامل الشيت و لكن يلزم لذك تغير في الكود وتعمل الفورم علي الشيت المفتوح امامك و تتمكن اثناء وجودها بالتنقل من شيت لاخر فالشيت المفتوح عند الضغط علي زر Print هو الذي سيطبع جرب واخبرنا النتيجة print.rar

السلام عليكم اخي asom نزلت الملف المرفوع من طرفي عندي و الكود يعمل عادي حاول مرة اخري و اخبرني تحياتي

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

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

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

السلام عليكم اخي العزيز لان ما تطلبه يصعب تحقيقه بالتنسيق الشرطي لذا قمت بعمل كود لتحقيق مطلبك تحياتي __________.rar

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

السلام عليكم اخي عاشق ترابها ساشرح و ارجو ان تكون الطريقة مفهومه For i = 1 To 1000 'من الصف الاول ال الالف Cells(i, 1).Select 'حدد الخليه الاولي If Selection > "0" Then 'اذا كانت اكبر من صفرا For ii = i + 1 To 1000 'المقصود هنا تسمية الصفوف مرة اخري للبحث عن الخلية المساوية للخليه المحددة سابقا If Cells(i, 1) = Cells(ii, 1) Then 'اذا كانت الخلية الاولي تساوي اي خليه اخري Cells(i, 1).Interior.ColorIndex = 35 'لون خلفية الخلية الاولي يتم تغيره الي هذا اللون Cells(ii, 1).Interior.ColorIndex = 35 'لون خلفية الخلية الثانية يتم تغيره الي هذا اللون End If Next End If Next For n = 1 To 1000 'نفس الشئ للعمود الثاني Cells(n, 2).Select If Selection > "0" Then For nn = n + 1 To 1000 If Cells(n, 2) = Cells(nn, 2) Then Cells(n, 2).Interior.ColorIndex = 35 Cells(nn, 2).Interior.ColorIndex = 35 End If Next End If Next اخي العزيز الجزيرة اشكرك علي كلماتك اما بخصوص ما طرحته ممكن طبعا ان يتم ذلك و لكني افترضت هنا و ده طبعا حسب المطلوب الاساسي انه قد يكون المكرر في عمود واحد فقط بان يكون الاسم غير متشابه مثلا و لكن التشابه في الرقم فقط او العكس خالص تحياتي