بن علية حاجي

السلام عليكم ورحمة الله أقترح عليك حلين في المسألة واحد منهما بطريقتين، كل ذلك في الملف المرفق... أرجو أن تفي الغرض المطلوب. بن علية حاجي ترتيب الأرقام.zip

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

السلام عليكم ورحمة الله لم أفهم قصدك جيدا! إذا كنت تقصد أن الاسم عندك لا يتغير عند طباعة كل الصفحات فهذا راجع إلى أن طريقة الحساب عندك في الإكسل ليست تلقائية وإذا كنت تقصد شيئا آخر فأرجو المزيد من الشرح... وأعلمك لم أمسس معادلاتك في الملف ما عدا معادلة الخلية O1 في شيت "ورقة 1" والتعديل على معادلة التسمية "pv" الخاصة بعمود "رقم الإيصال" في شيت "Sheet1" لجعلها ديناميكية... في الملف المرفق من صيغة pdf تجد طباعة ملفك على طابعة Expert PDF والاسم فيه يتغير في كل صفحة... بن علية حاجي excpanceprn.rar

السلام عليكم ورحمة الله أخي الكريم، أعظم الله أجركم وغفر لميتكم وأسكنه الله فسيح جناته وألهم ذويه الصبر والسلوان... في الملف المرفق تم التعديل على كود تغيير الخلية A3 لجعلها تقبل الأعداد من 10 أرقام إلى أعداد من 13 رقم... يمكنك التجريب بالأعداد التالية : 1234567890 و 12345678901 و 123456789012 بإدخالها بالشكل التالي على الترتيب: 0001234567890 و 0012345678901 و 0123456789012 سواء في تاكست بوكس 1 الموجود في شيت "دخول العمال" بالخلية A3 أو الموجود في اليوزرفورم... أخوك بن علية حاجي Classeur8.rar

السلام عليكم ورحمة الله صعب جدا أن تجعل الكود يعمل بأعداد من 10 إلى 13 رقما... والفكرة الوحيدة التي معي الآن هي توحيد كل الأعداد إلى 13 رقما مما يعني أن نكمل الأعداد المكونة من أقل من 13 رقم بأصفار في بدايتها أي أن العدد من 10 أرقام نضيف له ثلاثة أصفار في البداية والعدد من 11 رقم نضيف له صفرين في البداية والعدد من 12 رقم نضيف له صفرا واحدا في البداية... ليس لي فكرة أخرى وسأعمل على الملف لأجد لك حلا للمسألة... بن علية حاجي

السلام عليكم ورحمة الله عمل جميل جدا وبارك الله فيك.... تم التعديل على كود تغيير TextBox1 حتى يرسل قيمته من 13 رقم إلى الخلية A3 من شيت "دخول العمال" حيث أن الملف لما فتحته كان على شيت "تحضير العمال" فلما تم حجز الكود من 13 رقم تم إرساله إلى الخلية A3 من هذا الشيت (وهذا الخلل تم تصحيحه بالتعديل الذي ذكرته)... تم أيضا تعديل تحسيني وتجميلي على الفورم لتوسيط الكائنات فيه، أرجو أن يعجبك هذا التعديل... أعتقد أن كود Tarheel1 لا ضرورة له في الملف... يبقى بعض المشاكل في عمل الملف وهي: إظهار رسالة تأكيد دخول العمال - إظهار رسالة تأكيد خروج العمال - والمشكل الآخر هو عند إدخال رقم خاطئ أو غير موجود في شيت البيانات (من 13 رقم) فإن الكود يسجله مباشرة باسم "هذا الرقم غير موجود"، وهذا المشكل خاصة يجب وضع الحل له (إلا إذا كانت كل أرقام بطاقات العمال موجودة في شيت "البيانات")... ملاحظة: أريد أن أعرف كيف قمت بربط قارئ الكودبار بالملف؟ لأن هذه التقنية لا أجيدها ولا أعرفها، أفدني أفادك الله... بن علية حاجي Classeur8.rar

السلام عليكم ورحمة الله ليس من الضروري أن تكون الطابعة افتراضية، يمكن اختيار أي طابعة تريدها من قائمة الطابعات الموجودة في "مربع حوار الطابعات" بعد فتحه... ثم تنفيذ هذا الماكرو... بن علية حاجي

السلام عليكم ورحمة الله وأحسن من ذلك كله هو (COLUMN(A$1 بن علية حاجي

السلام عليكم ورحمة الله أو يمكن استعمال المعادلة التالية: =IFERROR(ROUND(INDEX(date,$F$6,COLUMN()-6),0),INDEX(date,$F$6,COLUMN()-6)) بن علية حاجي

السلام عليكم ورحمة الله ماذا تقصد بـ "حفظ الملف بتنسيق آخر"؟ إذا كنت تقصد بـذلك "حفظ الملف بامتداد آخر"، فهذا ممكن جدا لكن وباعتبار أن الملف يحوي على أكواد فيجب حفظه بالامتدادات التي تقبل الأكواد مما يعني أن الامتدادات المتاحة لذلك هي: الامتداد xls. بالنسبة لنسخة إكسيل 2003 والامتداد xlsm. أو xlsb. بالنسبة لنسخ الإكسيل المتقدمة 2007 أو 2010 أو 2013 أو 2016... والله أعلم بن علية حاجي

السلام عليكم ورحمة الله الكود لم يعمل في حدث Open لـ This WorkBook لأنك لم تأخذ التعديل الذي قمت به على كود Tarheel1 وقد نسيت -سهوا مني- أن أذكر لك ذلك في ردي السابق... بالنسبة لكود مسح شيت "تجميع دخول العمال" يمكنك إظافته في كود Tarheel1 (الذي سميته في ملفك الجديد Tarheel_Values) مثل كود مسح شيت "تجميع خروج العمال" بعد عملية الترحيل... راجع الملف المرفق وبه كل التعديلات... بن علية حاجي Classeur7.rar

السلام عليكم ورحمة الله تفضل الملف المرفق وبه المطلوب... بطبيعة الحال المعادلات التي وُضعت لا تكون صحيحة إلا إذا كانت قائمة كل فصل مرتبة ومجتمعة في صفوف متتالية (كما في المرفق) -ترتيب الفصول فيما بينها غير مهم- بن علية حاجي استدعاء تسلسل التلاميذ.rar

السلام عليكم ورحمة الله تم إضافة الكود الخاص بالترحيل مباشرة من شيت "تجميع خروج العمال" إلى شيت "تحضير العمال" على الساعة 23:59:00 (تجده في كود حدث Open لـ This WorkBook)... غير أن كود الدخول لا يعمل بالتاريخ إذا أنه لا يفرق بين الدخول في يوم والدخول في اليوم الموالي (أعتقد أن هذا بسبب رجوعك للكود السابق)... أرجو التحقق من ذلك... بن علية حاجي Classeur6.rar

السلام عليكم ورحمة الله كيف تم ذلك؟ أفدنا أفادك الله... بن علية حاجي

السلام عليكم ورحمة الله عمل مختلف بإضافة عمود مساعد يتم فيه تحديد العناصر التي تحقق شروط شيت CAPTIN فقط (دون تكرارات) ... مع تصحيح إدخالات بعض التواريخ في عمود "تاريخ الطلب" لأني أعتقد أنها لم تكن من تنسيق التاريخ... أرجو أن يفي هذا العمل بالمطلوب... بن علية حاجي التعديلات_2.rar

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

السلام عليكم المرفق الأول ليس فيه ما تقول (برنامج طباعة الشهادات) وهو يحوي 4 دوال مستحدثة لحساب العمر... ولا تنسى إرفاق نموذج للشهادات حسب ما تريده... بن علية حاجي

السلام عليكم تفضل الملف به المطلوب... بن علية حاجي New-Userform_1.rar

السلام عليكم هل تريد بعد أمر المعاينة قبل الطباعة إظهار رسالة لتأكيد الطباعة أو عدمها؟ بن علية

السلام عليكم ورحمة الله تم عمل المطلوب بإضافة كود بسيط للطباعة ولكن قبله تم إضافة نطاق ديناميكي بالتسمية View_All لتحديد ناحية الطباعة في الكود والأهم من ذلك هو تنسيق ورقة الشيت Data حتى يتم احتواء جميع أعمدة الجدول في صفحة واحدة بالعرض (باستعمال خاصية التحجيم) مع تكرار الصف الأول في الجدول (صف العناوين) في طباعة كل صفحة... أرجو أن تفي الغرض المطلوب... بن علية حاجي New-Userform-.rar

السلام عليكم ورحمة الله ماذا تقصد بـ "طباعة الكل"؟ هل تقصد طباعة اليوزرفورم بعدد المسجلين مع تغيير بيانات كل مسجل فيه (اليوزرفورم) أم طباعة بيانات كل مسجل على نموذج ورقة تحوي حقول وبيانات كل مسجل من اليوزرفورم (لهذا ينبغي وجود هذا النموذج مع عدد المسجلين في كل ورقة لأن البيانات تتعدى 1000 تسجيل ولا يمكن طباعة 1000 ورقة أو 1000 يوزرفورم) أم تريد طباعة كل جدول البيانات الموجود في شيت Data؟ بن علية

السلام عليكم تم إضافة كود بسيط (يعمل عند فتح الملف) في حدث المصنف This WorkBook... راقب الخليتين T4 و T8 مباشرة بعد فتح الملف (يمكنك إعادة كتابة المعادلات السابقة في هذه الخلايا وحفظ الملف ثم إعادة فتحه من جديد)... بن علية حاجي الخلية المتغيرة.rar

السلام عليكم يتم ذلك باستعمال الأكواد... الملف الذي يُعمل عليه ضروري... بن علية حاجي

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تفضل الملف المرفق لعل فيه ما تريد... أخوك بن علية TIME SHEET TAREK EK.rar

السلام عليكم إذا فرضنا أن القيم موجودة في النطاق C1:C10 فتكون المعادلة (معادلة صفيف) في خلية ما (خارج نطاق القيم) كما يلي: بالفرنسية: =ECARTYPE(SI(C1:C10<>0;C1:C10)) بالإنجليزية: =STDEV(IF(C1:C10<>0;C1:C10)) بطبيعة الحال المعادلة هي معادلة صفيف أي يجب تأكيدها بـ CTRL+SHIFT+ENTER وفي الملف المرفق تطبيق لذلك... بن علية حاجي