hany13 قام بنشر يوليو 26, 2010 قام بنشر يوليو 26, 2010 أخوانى الكرام أتقدم اولا بالشكر لكل القائمين على هذا العمل العظيم لأنى اجد دائما هنا الحلول لكل ماأريد لدى ملف به كود قمت بادخاله عليه لعمل طباعه تسلسليه ولأنى لاأفهم فى الاكواد يحتاج الملف لتعديل بسيط كى يقوم بطباعة 3 قصاصات للمرتب فى صفحة واحدة بدلا من قصاصة واحدة بدون تدخل منى فى ذلك الملف مرفق وأرجو مساعدتى لانجاز هذا العمل HANY13.rar
أبوعبد الله قام بنشر يوليو 26, 2010 قام بنشر يوليو 26, 2010 أخي العزيز / هاني تم عمل اللازم وبالكود سيكون معاينة قبل الطباعة أي PRINTPREVIEW وهذا فقط للتجربة وحتى لا يخسر من سيجرب الملف أوراق للطباعة وبالطبع يمكنك تغيير الكود بهذا السطر من Sheets("Template").PrintPreview إلى Sheets("Template").PrintOut مع ملاحظة أنه تم ربط طباعة استلامات الرواتب بعمود إجمالي الراتب العمود o وعلى ذلك أي موظف سيكون إجمالي راتبه = صفر فلن يطبع له استلام ، وسيتم كما طلبت طباعة كل 3 استلامات بورقة واحدة وإذا قمت بتعديل بزيادة عدد الموظفين يجب تعديل نهاية الحلقة التكرارية بالكود من 59 إلى رقم صف آخر موظف . تحياتي أبو عبدالله HANY14.rar
hany13 قام بنشر يوليو 27, 2010 الكاتب قام بنشر يوليو 27, 2010 أخى أبو عبدالله بارك الله فيك ياأخى واشكرك بشدة على تعبك ومجهودك الرائع
hany13 قام بنشر يوليو 27, 2010 الكاتب قام بنشر يوليو 27, 2010 أخى الكود اكثر من رائع لكن يبقى جزء بسيط هنا الموظف صاحب الكود 1011 ليس له مرتب ولكن عند الطباعة يتم طباعته ضمن من لهم راتب كيف يمكن تعديل ذلك فى الكود مرفق ملف به الموظف الذى ليس له راتب باللون الاصفر HANY14+Abo3abdallah.rar
أبوعبد الله قام بنشر يوليو 28, 2010 قام بنشر يوليو 28, 2010 أخي العزيز / هاني أعتذر لك عن الخطأ وهو مجرد سهو في هذا الجزء من الكود فوضعته If Sheets("Payroll").Cells(I, "O")<> 0 Then والصواب هو If Sheets("Payroll").Cells(I, "O").Value <> 0 Then يعني نسيت إن المفروض قيمة ( VALUE ) الخلية اللي فيها إجمالي الراتب من العمود O اللي فيه إجمالي الراتب لكل موظف . تم التعديل بالمرفق . تقبل تحياتي أبو عبدالله HANY14+Abo3abdallah.rar 1
hany13 قام بنشر يوليو 28, 2010 الكاتب قام بنشر يوليو 28, 2010 أخى ابو عبدالله جربت الملف والكود يعمل بكفاءة لكن المشكلة ان الموظف صاحب الكود 1011 ليس له مرتب ولكن راتبه يظهر فى الطباعة كيف يمكن التغلب على هذه المشكلة بحيث يتم تجاهل اى موظف ليس له راتب فى امر الطباعة مع العلم بأن العمود الذى يحدد ذلك هو العامود x والذى يمثل صافى الراتب
أبوعبد الله قام بنشر يوليو 29, 2010 قام بنشر يوليو 29, 2010 عزيزي هاني حسب فكرتك أنت تريد الجمع بين أمرين يصعب حسب معلوماتي المتواضعة الجمع بينهم وهما طباعة 3 استلامات في ورقة واحدة مع المحافظة على ميزة عدم طباعة من ليس له راتب ، ولكن الواقع لو فرضنا حتى أن الموظف رقم 1011 ليس له راتب ( مع العلم أنت وضعت له راتب ولكن بالسالب ) ولكن الموظف قبله رقم 1010 والموظف بعده رقم 1012 لو أن لهم راتب أو حتى لأحدهما فقط فمن الطبيعي أنه سيشمل الطباعة معلومات الموظف رقم 1011 طالما أن الثلاثة بنفس الورقة وهذا هو الجانب السلبي في هذه الميزة أقصد طباعة 3 استلامات بورقة واحدة وعلى العكس من ذلك لو أنك تطبع لكل موظف استلامه بورقة واحدة لتححق لك إمكانية عدم طباعة من ليس له راتب أو حتى راتبه بالسالب ، أما بخصوص عمود التحم بالطباعة أنه العمود X فلا يوجد مشكلة ويمكنك تعديله بالكود بهذا الجزء If Sheets("Payroll").Cells(I, "O").Value <> 0 Then قم بتغيير حرف ال O إلى حرف ال X هذا والله تعالى أعلم . تحياتي أبو عبدالله
ياسر خليل أبو البراء قام بنشر يوليو 29, 2010 قام بنشر يوليو 29, 2010 أخي هاني تم إضافة حل جديد على الرابط التالي http://excel4us.com/vb/showthread.php?t=705&page=2 المشاركة رقم 16
hany13 قام بنشر يوليو 29, 2010 الكاتب قام بنشر يوليو 29, 2010 أخى أبو عبدالله جزاك الله كل خير تعبتك كثيرا معى أخى ياسر تابعت حلك وهو امر رائع أن نرى ابدعات جميلة مثل هذا
ياسر خليل أبو البراء قام بنشر يوليو 29, 2010 قام بنشر يوليو 29, 2010 أخي هاني لا إبداعات ولا حاجة ... كل الحكاية تجميعة أفكار فقد استقيت الفكرة الأولى من معلمي وأستاذي وملهمي أبو عبد الله - جزاه الله عنا خير الجزاء والفكرة الثانية من كود سابق يعتمد على استخراج القيم الغير مكررة بشروط وجمعت الفكرتين وضربتهم في كود وطرحت المشكلة أرضاً !!! 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.