أبوعيد

السلام عليكم أخي العزيز هذا هو طلبك في المرفق ولكن أرى أنه يمكن أن نعالج مطلوبك بشكل أفضل مما طلبت فكم من مشارك طرح مشكلته وكان يظن أن الحل هو الذي يفكر فيه فإذا بالأعضاء هنا يتفاعلون معه ويحلون له مشكلته بشكل أيسر وابسط مما كان يتوقعه صاحب المشكله أرجوا أن تضعنا في صلب مشكلتك إن أردت فقد يكون لمشكلتك حل أيسر مما تفكر فيه وإرفاق الملف يسهل العمل تحياتي New Microsoft Excel Worksheet (2)1.rar

السلام عليكم تم معالجة المشكلة التي كانت في يوم الجمعة تفضل الاضافى3.rar

السلام عليكم طريقة الاستخدام افتح الورقة (مثال) ويمكنك التغيير في الأعمدة الصفراء فقط اضغط (نقل خلايا) وانتظر النتيجة سيقوم الزر بثلاث عمليات 1/ نسخ البيانات من الورقة (مثال) إلى الورقة (الخلاصة) 2/ نقل بيانات الخلايا للأعلى 3/ حذف الأسطر المكررة تحتاج العملية هذه إلى دقيقة ونصف إذا كان جهازك سريعا تحياتي نبات2.rar

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

السلام عليكم شكرا أخي وليد فتحي شكرا أخي حمادة عمر على المشاركة في حل المشكلة ولكن لي وجهة نظر أقدمها لكم وبالأخص لصاحب المشاركة الأخ إيهاب ممدوح 1/ بما أن البرنامج يسجل وقت الحضور للموظف فلا حاجة لأن يختار الموظف الفترة الصباحية أو المسائية ولكن عن طريق المعادلة يستطيع البرنامج حدد إذا كان وقت الحضور قبل الساعة 12 ظهرا فتكون الفترة الصباحية وإذا كان بعد الساعة 12 ظهرا فتكون الفترة مسائية 2/ أقترح أن يضاف أيضا عن طريق المعادلة خانة لتحديد ما إذا كان الموظف متأخر عن الدوام أم لا وذلك بتحديد أقصى وقت يسمح فيه للموظف بالتأخر مثلا أذا كان حضور الموظف بعد الساعة 8 صباحا فيكون متأخرا أما قبل 8 فلا يعد متأخرا 3/ إذا كان عدد الموظفين قليل ( مثلا أقل من 50 موظف ) فأقترح بأن يضاف أسماءهم في قائمة combobox بحيث توفر على الموظف الكتابة يعنى أن الموظف سيختار أسمه من بين أسماء الموظفين ثم يضغط حضور وهذا يجعلك تتفادى الخطأ في كتابة الأسماء فمثلا الموظف أحمد قد يكتب اسمه ثلاثيا وقد يكتبه يوما من الأيام ثنائيا وقد يكتبه بوجود مسافات إلى غير ذلك تحياتي

السلام عليكم شكرا لكم أخواني على مشاعركم الطيبة وأتمنى أن أكون عند حسن ظنكم بي فعند انضمامي إليكم كانت معلوماتي ضئيلة للغاية وقد مررت بتجربة ناجحة مع الأكسل ثم بعد مرور الأيام ازدادت المعرفة بفضل الله تعالى أولا وآخرا ثم بفضل الأخوة في المنتدى اللذين يقدموا لنا الجديد كل يوم تحياتي للجميع

السلام عليكم تفضل التحكم بالأزرار3.rar

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

السلام عليكم عذرا أخي على تاخر الرد لان الرد يحتاج إلى أن أفهم الموضوع أولا وأرجو أن يكون هذا هو طلبك خصوصا انك لم ترفق ملفا للتعديل عليه فيكون العمل نظري بدل من العملي لأن العملي يحتاج إلى إرفاق ملف هذا كود الأنتظار في الفيجوال Application.Wait (Now + TimeValue("0:00:01")) 1 ففي الكود أعلاه ينتظر التطبيق ثانية واحدة قبل أن يواصل عمله إذا اردت البرنامج ينتظر دقتين وخمس ثواني مثلاغير الارقام إلى التالي Application.Wait (Now + TimeValue("0:02:05")) 1 تحباتي

متى ينحسب الإضافي ب 50 ريال ؟ يعنى أكمل الفراغ لما تكون الحمولة أكبر من ........ حبة يكون إضافي السائق 50 وسؤالي الذي لم تجب عليه هل يوجد ليوم الجمعة حساب خاص ؟ تحياتي

جياك أخي حتى لو أضفت حسابات جديدة (يعني أوراق جديدة) ستجد النتيجة في الورقة summary

عفوا ورد خطأ في الملف المرفق السابق وهذا هو التصحيح تحياتي المصنف2.rar

السلام عليكم أخي رائد أنا مثلك لم أفهم لأن التنقيب في أكواد الآخرين سطرا سطرا يعد شيئا متعبا للعقل الأفضل أن يشرحه صاحب الكود نفسه والذي فهمته هو ان القيمة first_time هي متغير يأخذ القيمة TRUE OR FALSE هذا المتغير تم تعريفه من قبل المستخدم الجموعي يأخذ القيمة FALSE عند انطلاق القورم هكذا Private Sub UserForm_Initialize() first_time = False ويتم تغيير قيمته عند الضغط على أزرار الفورم أظن أنه يوجد خطأ في زر ألغاء الأمر لأن هذه القيمة لم تيم تحديدها هكذا If first_time Then ولكن الصحيح هو If first_time = TRUE Then أو If first_time = FALSE Then وأرجو من الأخ الجموعي أن يطل علينا لشرح هذه المعلومة تحياتي

تفضل اخي تحياتي المصنف1.rar

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

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

السلام عليكم تم العمل على حساب سعيد فقط فإذا نجحت التجربة يمكن نسخ المعادلات إلى حساب حسين مع عملته هو : وضعت معادلة في خانة (عادي) وأخرى في خانة (إضافي) بالشروط التي ذكرتها فجاءت مطابقة للأرقام التي وضعتها في الخلايا باستثناء الخلايا الملونة بالأحمر الرجاء مراجعت حساب سعيد والإخص الخلايا الحمراء قد تحتاج في وقت ما إلى زيادة سعر الرد العادي أو الإضافي فغير الرقم في الخلايا الزرقاء فقط هل حساب يوم الجمعة يختلف عن بقية الأيام ؟ تحياتي الاضافى1.rar

أخي لو أكلمت هذه الفراغات سأكون قد فهمت مطلوبك لاحظ عند ضغط (تعديل) يتم تفعيل ....... ولأغاء تفعيل .............. عند ضغط (حفظ التعديل) يتم تفعيل ....... ولأغاء تفعيل .............. عند ضغط (جديد) يتم تفعيل ....... ولأغاء تفعيل .............. عند ضغط (حفظ الجديد) يتم تفعيل ....... ولأغاء تفعيل .............. عند ضغط (الغاء الامر) يتم تفعيل ....... ولأغاء تفعيل .............. سكرا

أخي أرجو توضيح طلبك أكثر ولو أرفقت ملفا لكان أفضل لاحظ معي في عنوان مشاركتك مكتوب ( بدون الصفر ) وفي المشاركة نفسها مكتوب ( بدون الصف ) ولكل واحد من العبارات مدلول مختلف عن الأخرى تقبل تحياتي

تفصل إذا وجد خطا أرجو توضيحه التحكم بالأزرار1.rar

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

كود إظهار الصفحة (X هو اسم الصفحة) SHEETS("X").VISIBLE=1 أ[ما كود إخفاء الصفحة فيوجد نوعان من الإخفاء أخفاء عادي SHEETS("X").VISIBLE=0 وإخفاء شديد SHEETS("X").VISIBLE=2 الإخفاء العادي تستطيع بعد فك حماية الصفحة ( ومن القائمة المختصرة ) تستطيع إظهارها أما الإخفاء الشديد فلا تستطيع إظهار الورقة إلا من محرر الفيجوال بيسك

السلام عليكم أخي الحبيب نريد منك مثالا مرفقا بملف حتى يسهل علينا فهم طلبك وبالتالي حل مشكلتك تحياتي

أرجو أن يكون هذا هو مطلوبك تفضل كشف حساب 1.rar

تفضل مطلوبك مخزن 2.rar