الذيب 2015 قام بنشر نوفمبر 8, 2011 قام بنشر نوفمبر 8, 2011 (معدل) السلام عليكم ورحمة الله وبركاته أولا نقول عيد مبارك لاسرة اوفيسينا ولجميع الاعضاء والمشاركين الكرام أخوي عبدالله المجرب لك سلام وتحية خاصة طبعا المرفق هو من عملك بس أنا أزحت بعض الخلايا في الورقتين فحاولت أفهم الكود ولكن أنا ضعيف في الاكواد وحلمي أن أصبح مبرمج (أدعيلي ) فياليت لو تتكرم وتقوم بتعديله ليتلائم مع الخلايا المزاحة وياليت لو يكون مع الشرح البسيط تعديل كود.zip تم تعديل نوفمبر 8, 2011 بواسطه ذيب اليمن
عبدالله المجرب قام بنشر نوفمبر 8, 2011 قام بنشر نوفمبر 8, 2011 السلام عليكم تم عمل التعديل (لو تقارن بين الملف هذا والملف السابق ستعرف اين حدث التغيير) واي جزئية في الكود لم تفهمها فان في الخدمة 555+++.rar
الذيب 2015 قام بنشر نوفمبر 9, 2011 الكاتب قام بنشر نوفمبر 9, 2011 السلام عليكم ورحمة الله وبركاته أستاذي ابو أحمد أنا تفحصت ودققت فيه ولكن واجهتني مشكلة بسيطة أغرقتنا بفضلك والله Book1.zip
عبدالله المجرب قام بنشر نوفمبر 9, 2011 قام بنشر نوفمبر 9, 2011 لا تستعجل اخي ذيب اليمن == بالنسبة لسبب عدم اكمال التوزيع قم بالاتي 1. ازالة الدمج عن الخليتين G45 و H45 ثم اجعل هذه المعادلة في الخلية H45 وليس G45 =VLOOKUP($B$7;ورقة2!B9:AL56;37;FALSE) في الكود قم بتعديل هذا السطر فقط من r = Range("G45").Value الى r = Range("H45").Value وسيعمل الكود بشكل صحيح === بالنسبة للمطلوب الثاني نرجو المزيد من التوضيح (لانه يمكنك من استثناء ايام الجمع بإضافة حرف A او اي حرف في خانات ايام الجمع في الورقة 2) وبذلك لا يتم التوزيع في هذه الخلايا === بخصوص الحفظ بصيغة 2003 يمكنك ذلك من حفظ باسم واختر 2003-97 وسيم الحفظ
الذيب 2015 قام بنشر نوفمبر 9, 2011 الكاتب قام بنشر نوفمبر 9, 2011 أولا أشكرك كل الشكر وبارك الله فيك ووفقك لعمل الخير وسلمت يمناك على هذا العمل وأي عمل خير تقوم به ثانيا أنا عملت المطلوب وأرفقت التوضيح للطلب الثاني والسموحة على الاستعجال ........... book.zip
عبدالله المجرب قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 اخي ذيب اليمن حتى لا يحدث تداخل في عمل الكود من مسح ولصق وغيرها انا ارى ان الافضل ان تعتمد حرف F بدل 0 في ايام الجمع جرب وسترى ان الكود لا يحتاج الى تعديل
الذيب 2015 قام بنشر نوفمبر 10, 2011 الكاتب قام بنشر نوفمبر 10, 2011 كلامك عين العقل وقد حاولت فيها هذا في حال ان الشخص لا يعمل الجمع أما في حال عمل يوم الجمع لايمكن .... سوف تتداخل الارقام بين ايام الجمع والايام العادية انا عندي موظفين سوف أعمل حماية للورقة 1 فيما بعد فلن يستطيعوا أن يدخلوا أي بيانات سوى بالخلية b7 ومن ثم طباعة الشيت فجميع ادخال البيانات سوف تتم بالورقة 2 فقط فرضا عمل احد الاشخاص يوم الجمع في الورقة 2 في تاريخ معين كيف ستظهر بالورقة 1 في نفس التاريخ هذا هو السؤال فكما قلت لك أفضل حل برأي أن لا يتم التوزيع في الورقة 1 على أي خلية ملونة سواء كانت تحمل رقم أو نص يعني أن الرقم الموجود في الخلية h45 أن وجد أي خلية ملونة سواء كانت تحمل رقم أو نص لا يتم وضع عدد2 أي يتجاهلها شكرا على تجاوبك معي اسمح لي على الاطالة فهذا فقط للتوضيح
عبدالله المجرب قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 السلام عليكم اخي ذيب اليمن حسب علمي فان الكود لا يتعرف على اللون اذا كان بالتنسيق الشرطي كما اني حينما قصدت ان تضع حرف F بدل 0 فهو لسهولة العمل بالكود الحالي وعدم إضافة إجراءات ليس لها داعي فالمطلوب ان تعتمد اي حرف ليحل بدل 0 في الورقة2 وان اردت وما زلت مصر فسأحاول دون وعد بالنجاح والله الموفق
الذيب 2015 قام بنشر نوفمبر 10, 2011 الكاتب قام بنشر نوفمبر 10, 2011 اخي ابو احمد ان حاولت انت استاذي وان حاولت ولم تستطع فانت استاذي وان لم تحاول فهذه لن اصدقها لانها ليست من شيمك فعندي الثقة بالله ثم باستاذي ابو احمد في ايجاد الحل أو حل بديل اعقلها وتوكل فانا بانتظارك
عبدالله المجرب قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 اذاً امهلني لان الوقت يضيق في بعض الاحيان وان شاء الله لن اتردد في المحاولة وسيكون العمل على 0 في خانات الجمع لان لون التنسيق الشرطي لا يتعرف عليه الكود
عبدالله المجرب قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 السلام عليكم اعذرني اخي ذيب اليمن (اتمنى معرفة اسمك الحقيقي) لم احاول بالامس وعندما وجدت ردك قمت بإضافة هذا الشرط للكود Weekday(Cells(i + 12, 7).Offset(0, -5)) = 6 والحمدلله كانت النتيجة ممتازة book (2).zip
الذيب 2015 قام بنشر نوفمبر 12, 2011 الكاتب قام بنشر نوفمبر 12, 2011 ,والله ما أقول غير أستاااااااااااااااااااااااااااااااااذ الله يزيدك علم فوق علمك ويغفر لك ولوالديك وجميع المسلمين ما شاء الله بيض الله وجهك في الدنيا والاخرة
عبدالله المجرب قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 اللهم آمين شكراً اخي الكريم والحمدلله ان توصلت الى مبتاغاك
الزير قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 ما شاء الله عليك أستاذ عبدالله صبر وإخلاق وعلم أبدعاتك متواصلة بارك الله فيك أبووائل.
عبدالله المجرب قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 اخي ابو وائل شكراً لمرورك وتشجيعك وهذا رد معروف لما تعلمناه من هذا المنتدى
الذيب 2015 قام بنشر نوفمبر 12, 2011 الكاتب قام بنشر نوفمبر 12, 2011 أنا كنت مستني حلك بفارق الصبر بس لاقيت مشكله هو لما اغير الشهر بالاعلى تحدث مشكلة مش عارف ليه اسمحلي على الرد السريع
عبدالله المجرب قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 اسف اخي ذيب اليمن لاني لم اقم بتغيير التاريخ اثنا التجربة والخطاء الذي يقع في الكود هو بسبب خلو اخر خلية من تاريخ لان الشهر 30 يوم ولتجاوز خذا الخطاء ستجد هذا السطر في الكود If Cells(i + 12, 7).Value = "" Then GoTo 1 استبدله بهذا If Cells(i + 12, 7).Value = "" Or Cells(i + 12, 7).Offset(0, -5) = "" Then GoTo 1
الذيب 2015 قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 استاذ عبدالله اسمحلي أن أشكرك كل الشكر من الامس وأنا أعمل على هذا الملف داعين الله أن يزيدك علما فوق علمك فـــــ لاحظت عند وجود عدد فردي في الخلية (H45 ) يكون العدد مساويا جمع مثلا 7=7 في جمع التوزيع أما عند وجود عدد زوجي يكون +2 مثلا 8 يكون جمع التوزيع ( 10 ) تحياتي غلبتك معاااااااااااااااااااااااااااااااااايا book (2).zip
عبدالله المجرب قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 السلام عليكم مع التجربة تكتشف الاخطاء لتجاوز هذا الخطاء قم بتعديل هذا الجزء من الكود If w = r Or w + 1 = r Then Exit Sub ليصبح If w + 2 = r Or w + 1 = r Then Exit Sub وان شاء الله يفي بالغرض
الذيب 2015 قام بنشر نوفمبر 14, 2011 الكاتب قام بنشر نوفمبر 14, 2011 جزاك الله خيرا وسلمت يدااااااااااااك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.