أبوســـارة1973

فكرة جميلة

هل هذا هو المطلوب sumifis.rar

السلام عليكم صباح الخير فليسمح لي الأستاذ بن علية حاجي بالرد النتائج متساوية لأن الثواني والدقائق في جميع خلايا عمود البداية متساوية ( 27:12 ) وكذلك الحال في عمود وقت النهاية ( 52:41) أما بالنسبة للساعات فإنها تزيد ساعة في كل صف بكلا العمودين لذلك ستكون النتائج متساوية جرب تغير الوقت في أحد العمودين وسترى أن النتيجة ستتغير

الأستاذ الكبير عبدالله باقشير عمل رائع ومتميز

هل توصلتم للحل ؟

أحسنت أخي إبراهيم ابوليله. نعم هذا هو المطلوب ، ولكن لم تضمن الكود الشرط المطلوب وهو عدم السماح بالتكرار أي لا يقبل إدخال قيمة قد تم إدخالها

لا أجد الرابط لبرنامجك ؟

السلام عليكم جميعاً أنا في بدايتي مع البرمجة في vba Excel وقد صادفت المشكلة التالية : في userform1 من املف المرفق توجد listbox وعند الضغط مزدوجاً على أحد عناصر listbox يقوم بإدخال قيمة العنصر في textbox1 وبقية textboxs من 2- 10 ولكن المطلوب هو أن يقوم بإدخال العنصر من القائمة الذي نضغط عليه مزدوجاً في textbox1 فقط ، وعند الضغط ثانية ( مزدوجا) على عنصر آخر يقوم بإدخاله في textbox2 وهكذا حتي يتم اختيار ما لا يزيد عن عشرة عناصر ، وبشرط عدم التكرار فكيف يكون التعديل على هذا الكود في الملف المرفق ؟ في انتظار ردودكم class.rar

شكراً أخي الفاضل خزاني

السلام عليكم هل يمكن أن تدلوني على وصلة في هذا المنتدى أو في غيره لملف أكسيل يحتوي على فورم إدجال بيانات الموظفين مع صورة للموظف، وإذا كان بإمكان الأخوة المقتدرين أن ينفذوا لي هذا المطلوب مشكورين. ودمتم في صحة وعافية

الأستاذة أم عبد الله الأستاذ سليم حاصبيا الأستاذ محمد أبو البراء شكرا لكم جميعا

السلام عليكم لو فرضنا أن في العمود الأول القيم التالية 28.25 30.5 44.75 40 والمطلوب في العمود الثاني أن يظهر القيم على النحوالتالي 28.0 30.5 45.0 40 أي يقوم بتحويل المنازل العشرية ( 0.25) إلى نصف (0.50) كما في المثال السابق وتحويل المنزلة العشرية (0.75) إلى 1 فكيف ستكون الدالة هل نستخدم لها دلة roundup ? أرجو أن تكتبوا لي الدالة كاملة مع خالص شكري

طلبك غير مفهوم

شكرا لقد عدلت الكود وهو يعمل 100% جزاك الله خيرا

كيف سيكون التعديل على الكود إذا كنت أريد أن أحدد فقط الخلايا لحد الصف رقم 33 مثلاً بدلاً من كونه حالياً حتى آخر صف في االشيت Lr = Cells(Rows.Count, "B").End(xlUp).Row

تظهر

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

للرفع

كيف سيكون التعديل على الكود إذا كنت أريد أن أحدد فقط الخلايا لحد الصف رقم 33 مثلاً بدلاً من كونه حالياً حتى آخر صف في االشيت Lr = Cells(Rows.Count, "B").End(xlUp).Row

ألف شكر لك على جهودك وتعاونك

السلام عليكم هل يمكنكم مساعدتي في المطلوب ؟

اللغة العربية مضافة

ما زلت محتاجاً لمساعدتكم

هل يستطيع أحد أن يساعدني في حل هذه المشكلة

للرفع