عادل حنفي

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

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

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

السلام عليكم الاخت israabbasi ارجو ان يكون هذا هو المطلوب Israa.rar

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

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

السلام عليكم اخي ان ما اراه ليس كمثالك المرفق سابق ام هل المقصود ب a1,a2,a3 ...الخ هو A كذلك بالنسبة لل B واذا كان هذا صحيح هل يمكن تعديل ال a1,a2,a3 الي a ام هذا يؤثر علي عملك ارجو الافادة

السلام عليكم اخي تاكد من ان الامان ليديك علي الاقل ان يكون متوسطا وذلك كماتري في ملف الفيديو المرفق و عندما تطبق ما رايت بملف الفيديو اغلق الملف و افتحه مرة اخي ارجو ان يكون هذا هو السبب و سؤال اخر هل الاوفس الذي تعمل عليه 2003 ام ماذا؟ ___.rar

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

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

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

السلام عليكم اخي برجاء ارسال ملف لان المطلوب غير واضح

السلام عليكم الاخت nisreen76 تم التطبيق علي ملفك بعمل زرين احدهما اخفاء الصفوف وهذا ما افضله بالنسبة لملفك و الاخر الغاء و هو الذي طلبتيه ارجو التجربة و اخباري لو فيه اي تعديل تحياتي Invoice.rar

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

السلام عليكم بعد اذن اخي العزيز مصطفي كمال اخي العزيز abuzzouz تم عمل صفحة لتفلتر القيم الموجودة في العمود A وحتي الصف ال 100 ليظهر ذلك في القائمة المنسدلة التي تم اضافتها بدلا من textbox كما ياخد الكود في الاعتبار اي تغيرات تطرأ علي العمود A ارجو اخباري بالنتيجة خالص تحياتي abuzzouz.rar

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

السلام عليكم اخي tofimoon4 قد يكون اخي نزار مشغولا هذا النص المشوه لن يؤثر علي العمل فهو عبارة عن محتوي الرسالة التي تظهر عند فتح الملف تم تعديل النص لتراه بالغة العربية و هذا التشوه ياتي عند نسخ الكود من محرر الاكواد الي الشيت عموما ارسلت لك الملف بعد تعديل النص تحياتي ________________________2.rar

السلام عليكم اخيtofimoon4 اظن وحسب ما اري ان معدل السعر هو المتوسط الحسابي للسعر و هو الذي يحسب بمجموع الاسعار علي عددها و بالتالي يعطي متوسط السعر و اذا طبقنا هذا علي ما تقوله انت و هنا ناخذ مثالا و لتكن المادة C فان اسعارها كالتالي 2.4 ، 2.9 ، 2.8 ، 2.8 فاذا فرضنا اننا اشترينا في كل مرة وحدة واحدة من هذه الماده فان قيمة الشراء ستكون 10.9 معني ذلك امما عندما نقوم بعمل المتوسط الحسابي للسعر يجب ان نضع في اعتبارنا ان السعر الناتج يجب عندما نقوم بضر الكمية فيه لابد و ان يكون الناتج قريبا من ال 10.9 فاذا قمنا بحمع الاربعة اسعار سنجد انها نساوي 10.9 (والرقم هنا مشابه فقط لاانا تعاملنا علي اساس شراء وحدة واحدة) واذا قمنا بقسمة هذا الرقم علي عدد الوحدات يكون النتاتج 2.725 هذا هو متوسط سعر الوحدة و للتاكد نقوم بضر هذا الرقم في عدد الحدات و هو 4 ليكون الناتج 10.9 و هو بالفعل قيمة الاربع وحدات نطبق ماسبق علي ما تقوله انت بتجاهل السعر المكرر فكيف لي ان اتجاهله و مع ذلك سنطبق ذلك فستكون الارقام هي 2.4،2.9،2.8 و مجموعهم هنا 8.1 علي ماذا اقسم هذا العدد علي 3 لا يصلح فلابد من القسمة علي العدد الحقيقي لان المعادله لاتوضع علي استثناء التكرار فالمتوسط الحسابي اذن في جدولك مضبوط عموما لو قسمت هذا الرقم علي3 سيكون الناتج 2.7 و عند القيام بضربه في عدد الوحدات و هو 4 يكون الناتج 10.8 الرقم قريببالفعل لكن لم اجرب بتعمق فاكيد سيكون هناك اختلاف و بالفعل لدينا فارق بين ال 10.9 و ال 10.8 لماذا هذا كله و المعادلة مضبوطة فمن قال ان احذف المكرر عند احتساب المتوسط الا اذا كان هناك شيئا لا افهمه تحياتي

السلام عليكم اخي العزيز ساحاول الشرح قدر استطاعتي مع العلم ان الكود يعمل بكفاءة دون اي مشاكل و هذا هو الكود مرفق بالشرح Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim response r = 6 'تحديد العمود For n = 2 To 1000 ' الصفوف من الثاني الي ال 1000 If Target.Cells <> Cells(n, r) Then Exit Sub ' اذا كان التعامل خارج نطاق الصفوف الحدده و العمود المحدد يتوقف الكود df = Target.Row 'اعطاء مسمي لصف الخلية التي نقف عليها و نكتب بيانها If Cells(df, 3) = "الصندوق" Then 'شرط اذا كان الف الذي نكتب بيانه في العمود الثالث منه المكتوب به الصندوق عندئذ With Sheets("الصندوق").Columns(1).Rows(300).End(xlUp) ' يتم الاتجاه الي صفحة الصندوق العمود الاول تحت اخر خليه بها قيمة حتي الصف ال300 .Offset(1, 0) = Cells(df, 1) 'العمود الاول ياخذ قيمة العمود الاول لصف الخلية التي يكتب بيانها .Offset(1, 1) = Cells(df, 2) 'العمود الاول ياخذ قيمة العمود الثاني لصف الخلية التي يكتب بيانها .Offset(1, 2) = Cells(df, 4) 'العمود الاول ياخذ قيمة العمود الرابع لصف الخلية التي يكتب بيانها .Offset(1, 3) = Cells(df, 5) 'العمود الاول ياخذ قيمة العمود الخامس لصف الخلية التي يكتب بيانها .Offset(1, 4) = Cells(df, 6) 'العمود الاول ياخذ قيمة العمود السادس لصف الخلية التي يكتب بيانها End With End Else ' غير ذلك If Cells(df, 3) = "المبيعات" Then ' نفس الشئ اذا كانت الخليه المكتوب بها كلمة المبيعات With Sheets("المبيعات").Columns(1).Rows(300).End(xlUp) .Offset(1, 0) = Cells(df, 1) .Offset(1, 1) = Cells(df, 2) .Offset(1, 2) = Cells(df, 4) .Offset(1, 3) = Cells(df, 5) .Offset(1, 4) = Cells(df, 6) End With End If End End If Next End Sub جرب مرة ثانية و اخبرني النتيجة ارسل لك ملفا اخر مضاف له شرط عدم تكرار ترحيل القيد تحياتي ______.rar

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

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

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

السلام عليكم بعد اذن الجميع اخي wayl مرفق ملف لتحديد الرقم الذي تريد الطباعة من عنده تحياتي ________________________.rar

السلام عليكم في انتظار اي تعديل تطلبه تحياتي

السلام عليكم احسنت اخي ابو اسامة تحياتي