بن علية حاجي

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي 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 وفي الملف المرفق تطبيق لذلك... بن علية حاجي

السلام عليكم ورحمة الله الآن يجب النظر إلى التوقيت حتى نمنع الدخول المكرر قبل 7 ساعات عمل ونمنع الخروج قبل وقت الخروج الرسمي حسب الفترة... وإذا كانت لديك حيلة أخرى نوّرني بها... بن علية حاجي

السلام عليكم ورحمة الله بعد مراجعة النت اتضح الأمر أكثر عند كتابة اسم الطابعة في الجهاز يجب أن يكون بالشكل التالي (والتطبيق على الطابعة Expert PDF في جهازي): بالفرنسية : Application.ActivePrinter = "Expert PDF sur VSP1:" بالإنجليزية : Application.ActivePrinter = "Expert PDF on VSP1:" تجد كل هذا في الملف المرفق (والتسمية -الخط- VSP1 راجعة للجهاز) (تم التعديل في الكود في الجزئية الخاصة بالطابعة الأولى -الاختيار الأول- راجع الكود في ذلك)... بن علية حاجي اختيار الطابعة وعدد النسخ.rar

السلام عليكم ورحمة الله تم تجسيد فكرتي في الملف المرفق، أرجو أن تفي الغرض المطلوب... الفكرة تتمثل أن العامل يعمل مثلا في اليوم من 08:00 إلى 12:00 ثم من 13:00 إلى 17:00 فيكون له دخول1 ثم خروج1 ثم دخول2 ثم خروج2 في اليوم الواحد وتتجدد العملية في اليوم الموالي وهكذا... جرب إدخال الرقم 1234567890111 أربع مرات لتشاهد النتائج في الجدول في شيت "تجميع الدخول والخروج"... إذا كان لديك اقتراحات أخرى تجدني إن شاء الله في الخدمة... والله أعلى وأعلم Classeur5.rar

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

السلام عليكم ورحمة الله ألا ترى أنه إذا تكرر الدخول في اليوم نفسه معناه أن حدث بينهما خروج أو العكس... لهذا اقترحت عليك جعل الدخول والخروج في الجدول نفسه... أما أن يتكرر العامل في اليوم نفسه والوقت نفسه فهذا غير ممكن (على الأقل يكون الفرق في الوقت بينهما بعض الثواني، لأن حجز الأرقام يأخذ وقتا ولو بعض الثواني إلا إذا لم تعتبر الفرق في الثواني وربما في بعض الدقائق)... والله أعلم بن علية حاجي

السلام عليكم ورحمة الله تم إضافة TextBox لشيت "دخول العمال" فوق الخلية A3 حيث بمجرد ما ننتهي من حجز الرقم الثالث عشر يقوم تلقائيا بإرسال قيمته إلى الخلية A3 وكود حدث الشيت يقوم بتنفيذ كود Tarheeldokol تلقائيا... ويبقى عملك في ربط جهاز الكود بار مع ملفك وربطه إما بالخلية A3 وإما بـ TextBox... بالنسبة للملف أقترح عليك جعله يعمل دخول/خروج العمال في آن واحد، مما يعني أن لا نمسح الدخول أو الخروج إذا تكرر في اليوم الواحد ويكون الدخول والخروج في اليوم الواحد (في حالة التكرار) متناوبا (التكرارات الفردية للدخول والتكرارات الزوجية للخروج)... والله أعلم. بن علية حاجي Classeur4.rar

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

السلام عليكم ورحمة الله بدون ملف لا يمكن إعطاء حل للمسألة... لكن أقترح عليك مراجعة الرابط التالي لميكروسوفت علك تجد فيه ضالتك: Too Many Different Cell Formats Error وليس لي فكرة أخرى... بن علية حاجي

السلام عليكم ورحمة الله ماذا تعني بـ "الكود الثاني يعمل جيدا أما الأول فلا يعمل والصورة توضح ذلك"؟ بل هو كود واحد، ربما تعني الاختيار الأول لـ "الطابعة الأولى" لا يعمل (السطر الملون بالأصفر في الكود)، هذا الخلل يظهر عندما تكون الطابعة المختارة إما غير موجودة (لم يتم تنصيبها) في الجهاز الذي تعمل فيه وإما اسم الطابعة الذي كتبته في الكود فيه خطأ... وليس لي تفسير آخر... بن علية حاجي

السلام عليكم ورحمة الله قمت بفصل 3 شيتات (قاعدة البيانات - دخول العمال - تجميع دخول العمال) عن الملف الأصلي في ملف جديد وربطه بالكود Tarheeldokol (خاص بزر تسجيل الدخول) وكود حدث الشيت "دخول العمال" الذي اقترحته بالأعلى (مع بعض التعديل عليه) ولم يعمل معي في ملفك الأصلي (بكل التعديلات التي تمت -ولم أفهم ذلك-)... بن علية حاجي Classeur3.rar

السلام عليكم ورحمة الله قمت بالعمل على الملفين معا ودمجهما في ملف واحد (أقصد أكوادهما)... بالنسبة للطابعة الأولى والثانية يمكن اختيارهما قبل الضغط على زر الطباعة، أما الطابعة الثالثة (طابعة أخرى) وهي خاصة بالطابعات الموجودة في الجهاز فلا تظهر قائمة هذه الطابعات إلا بعد الضغط على زر الطباعة وتتم الطباعة مباشرة بعد اختيار هذه الطابعة من القائمة... لم أستطع القيام بأكثر من هذا لأني حاولت وضع قائمة هذه الطابعات في كائن ComboBox لكن دون جدوى (لقلة حيلتي ومعرفتي بالأكواد وبرمجة VBA)... بن علية حاجي اختيار الطابعة وعدد النسخ.rar

السلام عليكم هل تقصد بـ "الأوراق" الصفحات أم الشيتات؟ يُستحسن إرفاق ملف للعمل عليه... بن علية حاجي

السلام عليكم إليك حل بالمرفق... أرجو أن يفي الغرض المطلوب... بن علية حاجي Sumproduct2.zip

السلام عليكم ورحمة الله إذا كنت تقصد بـ 13 رقم في الخلية A3 هو عدد من 13 منزلة (رقم) مثال: 1234567890123 (أو غيره) يمكنك استعمال الكود التالي تضعه في كود حدث الورقة (الشيت) "دخول العمال": Private Sub Worksheet_Change(ByVal Target As Range) If Range("A3").Value >= 10 ^ 13 Then Tarheelkorog End Sub والله أعلم

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