بن علية حاجي

السلام عليكم ورحمة الله الآن يجب النظر إلى التوقيت حتى نمنع الدخول المكرر قبل 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

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق لعل فيه ما تريد... بن علية حاجي برنامج مركز شمس للتسوق تحت التعديل.rar

السلام عليكم أخي الكريم، لقد حاولت في الملف من أول موضوع لك في المنتدى ولم أجد الفكرة ولا زلت أحاول... أودّ أن أعرف لماذا تريد أن ترحّل البيانات إلى نفس مكانها في حالة وجودها ؟ هل يمكن القيام بمسحها دون ترحيلها (وأقصد مسح البيانات الموجودة مسبقا في شيت Total)؟ أخوك بن علية

السلام عليكم أدركت خطأ في المعادلة وهو عدم استيفاء مدة الأربعة أشهر كاملة إذ أنه لو كان تاريخ اليوم هو اليوم الثاني (أو أكبر) من الشهر الرابع فإن خلايا العمود J تكون فارغة لذا تم التعديل على الشرط الثاني في الدالة AND بتغيير الجزئية 1;4+ بالجزئية 0;5+ لتحديد تاريخ اليوم الأخير للشهر الرابع بعد تاريخ ورود قرار الإضافة... وقد تم التصحيح في الملف المرفق... معذرة على هذا الخلل.. بن علية حاجي القيمة المضافة.rar

السلام عليكم أخي احبيب أبو أحمد، معنى الأمر %r في الأمر هو الإعلان أن المتغير r هو من نوع Integer وهذا الأمر هو اختصار للأمر Dim r As Integer... والله أعلم وهذه رموز لأنواع أخرى من المتغيرات: Integer % Long & Currency @ Single ! Double # String $

السلام عليكم ورحمة الله في كود الترحيل يوجد خطأ في الأمر التالي: ResSh = Trim(Cells(I, 21).Value) الذي يحدد قيمة المتغير ResSh الممثل لاسم الشيت الذي يتم الترحيل إليه (ناجح - دور ثان) حسب خلايا العمود رقم 21 (وهو الخطأ)، غير أن كلمتي (ناجح - دور ثان) موجودتان في العمود V الذي رقمه 22 وليس 21، لذا يجب تصحيح الأمر السابق بتغيير العدد 21 بالعدد 22 فيكون كما يلي: ResSh = Trim(Cells(I, 22).Value) والله أعلم

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

السلام عليكم ورحمة الله أخي العزيز، التعديلات التي قمت بها في الكود مقبولة... بالنسبة للشرح الذي طلبته، أعتقد أن هذا الأمر يقوم بإعطاء القيمة 2 للمتغير T (للترتيب التنازلي) عندما يكون الكائن Shape ممكنا (MyShap.ControlFormat.Value = 1)، ويعطيه (المتغير T) القيمة 1 (للترتيب التصاعدي) عندما يكون الكائن Shape غير ممكن (عند عدم توفر الشرط : MyShap.ControlFormat.Value = 1)... والله أعلم

السلام عليكم ورحمة الله الفرز يعمل غير أنه يتم حسب الخلية AU12 (موجودة في الكود، وفيها خطأ من المفروض أن تكون AU6 وليس AU12) في الجزئية : Range("data").Sort Range("AU12"), T إذا أردت الفرز حسب "الفصل" (العمود 144) يجب التعديل على هذه الجزئية بتغيير الخلية AU12 بالخلية EN6 (عمود الفصول) فتصبح الجزئية بالشكل التالي: Range("data").Sort Range("EN6"), T والله أعلم

السلام عليكم ورحمة الله أخي الحبيب أبو أحمد، في ملفك لا يوجد شيت اسمه Sheet4 والكائن Shape المعلن عليه في الكود والمسمى kh_num موجود في Sheet2 "رضد الترم الثاني" ولتصحيح عمل الكود يكفي استبدال -في الكود- الجزئية: Set MyShap = Sheet4.Shapes("Kh_Num") بالجزئية التالية: Set MyShap = Sheet2.Shapes("Kh_Num") والله أعلم

السلام عليكم جرب الكود المعدل التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As String Dim Destwb As Workbook, Source Dim path As String Source = ThisWorkbook.FullName path = "D:\hhh\" If Target.Column = 3 Then lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value End If With Application .ScreenUpdating = False .EnableEvents = False End With Set Destwb = ActiveWorkbook With Destwb .SaveAs Filename:=path & lr, FileFormat:=52 End With Workbooks.Open Source MsgBox "You can find the new file in " & lr Destwb.Close With Application .ScreenUpdating = True .EnableEvents = True End With End Sub بن علية حاجي