ياسر أحمد الشيخ قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 السلام عليكم ورحمه الله وبركاته اريد انشاء يوزر فورم بالمواصفات التى فى الملف انظر المرفق للمزيد من التفاصيل ملحوظة: لقد صممت شكل لليوزرفورم الذى اريد عمله ( بدون أكواد طبعا) Attendance Roll.rar
أ / محمد صالح قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 ماذا تقصد بتحضير أو تغييب موظف؟ هل تقصد كتابة حرف غ مثلا في الخلية المجاورة لاسمه في اليوم المحدد أم ماذا؟؟ وفي حالة الحضور هل يكتفى بكتابة عدد ساعات العمل أم ماذا؟؟ 1
ياسر أحمد الشيخ قام بنشر ديسمبر 8, 2011 الكاتب قام بنشر ديسمبر 8, 2011 (معدل) شكرا أستاذ mas على اهتمام حضرتك رجاء حضرتك أكمل قراءة التفاصيل ستجد أننى ذكرت عند تفعيل option button الخاص بالتحضير فانه يقوم بأخذ العدد المطلوب كتابته من الجزء " عدد الساعات" حيث سأكتب 8 ساعات أو 12 ساعة أما بالنسبة لزر option buttonللتغييب فأنه اذا أحتوى جزء " عدد الساعات " على رمز ما يأخذه منه أو يكتب " X" كافتراضى لى رجاء آخر : ارجو استعمال الشكل الذى أرفقته فى الملف لليوزرفورم وشكرا تم تعديل ديسمبر 8, 2011 بواسطه leprince2007
أ / محمد صالح قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 على العموم هذا ما فهمته من المطلوب أن يتم رصد ما هو مكتوب في عدد الساعات في الخلية المجاورة للموظف في عمود اليوم المختار وبالنسبة لموضوع تغييب موظف يفضل وضع 0 في حالة الغياب في خانة عدد الساعات وعدم كتابة نصوص وعذراً عن عدم مواصلتي المطلوب الخاص بعرض نتائج البحث لانشغالي Mas_Attendance_Roll.rar 1
ياسر أحمد الشيخ قام بنشر ديسمبر 8, 2011 الكاتب قام بنشر ديسمبر 8, 2011 شكرا يا أستاذ ماس ولكن هذا الفورم لا يعمل مطلقا ، ما فيش أى حاجة شغالة فيه وشكرا
أ / محمد صالح قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 علام الشكر إذاً؟؟ جرب أخي الكريم ما يلي: أن تضغط على زر إظهار النموذج أن تختار اليوم من القائمة المجاورة لكلمة تاريخ اليوم أن تكتب رقم العامل في مربع النص المجاور لكلمة رقم العامل (سيتم إظهار الاسم ورقم الصف في التسميات المجاورة) أن تكتب عدد الساعات في المكان المخصص أن تضغط على حضور أو غياب أو تنفيذ على الكل ولن تجد اي شيء يحدث بعد كل هذا 1
ياسر أحمد الشيخ قام بنشر ديسمبر 8, 2011 الكاتب قام بنشر ديسمبر 8, 2011 لقد جربت كل ذلك ولكن لا أمل المطلزب مرة أخرى: أريد عندما أكتب التاريخ ثم رقم العامل واضغط زر p فى الكيبورد أن يتم تغييبه أو تحضيرة حسب اختيار حضور أو غياب option button أو عند كتابه التاريخ واختيار تحضير أو غياب ثم اضغط زر تنفيذ على الكل يتم ذلك للكل ملاحظة أخرى : تنسيق التاريخ غريب شوية أريد الفورم ألا يغلق تلقائيا من نفسه ، ويتم اغلاقه فقط من زر حفظ وخروج وشكرا
أ / محمد صالح قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 يا حبيبي كل ما تقوله موجود باستثناء حكاية عند الضغط على زر p من لوحة المفاتيح لأنه يتم تسجيله عند الضغط على زر الاختيار مباشرة (فلا تحتاج بعدها لضغط p ) 1
عبدالله المجرب قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 شكراً استاذ محمد بالفعل الفورم يعمل عند الاختيار من الخيارين لكن (ما الفرق ) اذا تم اختيار حضور تضاف عدد الساعات ونفس الشيئ اذا تم اختيار غياب فلما الخيارين إذاً
أ / محمد صالح قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 أخي عبد الله الأخ صاحب الموضوع تقريباً ينوي استعمال حضور وغياب فقط لمجرد البحث أما عملية الإضافة للشيت فسيكون في عدد الساعات صفر في حالة الغياب وعدد الساعات في حالة الحضور 1
الـعيدروس قام بنشر ديسمبر 8, 2011 قام بنشر ديسمبر 8, 2011 السلام عليكم الاستاذ ماس بارك الله الملف يعمل بكفائه عاليه عند الضغط على حضور يطبع في التاريخ المحدد للموظفين 1 كاملا وعند الضغط على غياب يطبع في التاريخ المحدد للموظفين 2 كاملا بورك فيك للعلم عندي حدثت مشكلة وهي اثبات المتغيرات اثبتها ومشي الحال تقبلو مروري
أ / محمد صالح قام بنشر ديسمبر 9, 2011 قام بنشر ديسمبر 9, 2011 شكراً استاذ محمد بالفعل الفورم يعمل عند الاختيار من الخيارين لكن (ما الفرق ) اذا تم اختيار حضور تضاف عدد الساعات ونفس الشيئ اذا تم اختيار غياب فلما الخيارين إذاً السلام عليكم الاستاذ ماس بارك الله الملف يعمل بكفائه عاليه عند الضغط على حضور يطبع في التاريخ المحدد للموظفين 1 كاملا وعند الضغط على غياب يطبع في التاريخ المحدد للموظفين 2 كاملا بورك فيك للعلم عندي حدثت مشكلة وهي اثبات المتغيرات اثبتها ومشي الحال تقبلو مروري أخي الكريم alidroos زرا الخيار حضور وغياب يقومان نسخ عدد الساعات للموظف المحدد في اليوم المحدد ولا يقومان بنقل عدد الساعات لكل الموظفين ولكن ما يقوم بهذ هو زر تنفيذ على الكل وقد طرح هذا الأخ عبد الله في مشاركته المقتبسة ......... وبالنسبة لموضوع إثبات المتغيرات فلا أدري أي شيء تقصد للعلم الكود يعمل عندي حتى مع تنشيط الخيار الثاني require variable deceleration لأن جملة option explicit ليست مكتوبة في الكود 1
ياسر أحمد الشيخ قام بنشر ديسمبر 9, 2011 الكاتب قام بنشر ديسمبر 9, 2011 السلاام عليكم ورحمه الله وبركاته أخى الكريم ماس الملف لا يعمل عندى حيث كلما اضغط على زر يقوم بالذهاب للكود ثم يغلق اليوزرفورم تلقائيا وزر الخروج والحفظ لا يعمل ما المشكلة عندى وشكرا
أ / محمد صالح قام بنشر ديسمبر 9, 2011 قام بنشر ديسمبر 9, 2011 أخي الكريم اكتب لي ماذا يحدث بالضبط معك من أول فتح الملف وخطوات تنفيذك للمطلوب بمنتهى التفصيل وساعتها يمكن أن نصل للمشكلة 1
ياسر أحمد الشيخ قام بنشر ديسمبر 9, 2011 الكاتب قام بنشر ديسمبر 9, 2011 ساذكر لك كيف أقوم بالعمل على الملف أولا: 1- انظر إلى اليوميات واحسب أكبر نسبة هل هى للغياب أم للحضور فاذا كانت نسبة الحضور كبيرة . أقوم أولا يتحضير كل العمال (كلهم فعلابوضع عدد ساعات 8 أو 12) ثم أقوم بتغييب العمال الغائبين بوضع x ,اذا كانت نسبة الغياب كبيرة . أقوم أولا بتغييب كل العمال (كلهم فعلابوضع عدد ساعات x) ثم أقوم بتحضير العمال الحاضرين بوضع 8 أو 12 على حسب عدد ساعات العمل أما بالنسبة لليوزر فورم: أظن من الكلام السابق فهمت كيف أريد العمل على الفورم 1 - اكتب التاريخ (تنسيق التاريخ غير منضبط ) 2- ثم اريد تحضير كل العمال أو تغييب كل العمال حسب اليوم (باختيار حضور أو غياب وكتابه 8 ثم زر تنفيذ على الكل) فعند الضغط على زر تحضير يذهب للكود وتظهر رسالة : compile error: cannot find project or library 3- ثم اريد كتابه رقم العامل وتغييبه هو فقط بالضغط على زر p لتسريع عملية الادخال لأنى أقوم بتغييب حوالى 20 عامل على الأقل فأفضل الضغط على زر فى الكبيورد وذلك سرع وشكرا
أ / محمد صالح قام بنشر ديسمبر 9, 2011 قام بنشر ديسمبر 9, 2011 بارك فيك أخي الكريم قلت قبل ذلك يفضل وضع 0 في عدد الساعات للغائب (وإذا صممت أن تكون حرف x مثلا يمكنك استبدال CDbl(TextBox3) ب TextBox3 في كل أنحاء الكود) ...... لماذا تكتب التاريخ ألم تقل اختياره من قائمة؟؟!! في حالة تحضير الكل أو تغييب الكل ليس مهما اختيار زر الخيار حضور أو غياب ولا كتابة رقم العامل فقط تكتب عدد الساعات أو x ثم تضغط على زر تنفيذ على الكل (زر حضور أو غياب يتم الضغط عليه فقط في حالة عامل واحد ويجب قبلها كتابة رقم العامل ..... وأنا شخصيا لا ارى فائدة من الزرين فمهمتما واحدة وهي كتابة ما هو موجود في عدد الساعات للعامل المحدد) أتمنى أن تكون التعليمات واضحة
ياسر أحمد الشيخ قام بنشر ديسمبر 9, 2011 الكاتب قام بنشر ديسمبر 9, 2011 أولا : أريد تصحيح تنسيق التاريخ الذى يظهر فى اليوزرفورم حيث يظهر أرقام كثيرة ثانيا : عند الضغط على أى شى فى اليورز فورم بعد كتابه ما ذكرته من تعليمات يظهر رسالة : compile error: cannot find project or library ويغلق الفورم تلقائيا سؤال : هل جربت استخدام هذا الفورم ؟؟؟؟ ما حل هذه المشكلة
الـعيدروس قام بنشر ديسمبر 9, 2011 قام بنشر ديسمبر 9, 2011 السلام عليكم بالنسبة لتنسيق التاريخ في الكمبوكس استخدم هذا الكود Private Sub ComboBox1_Click() Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dd/mm/yy") End Sub
ياسر أحمد الشيخ قام بنشر ديسمبر 9, 2011 الكاتب قام بنشر ديسمبر 9, 2011 السلام عليكم ورحمه الله وبركاته شكرا أخى alidroos على الرد والاهتمام والرد وماذا عن مشكلة الرسالة التى تظهر لى عند الضغط على أى زر فى اليوزر فورم وهى: compile error: cannot find project or library
يحيى حسين قام بنشر ديسمبر 11, 2011 قام بنشر ديسمبر 11, 2011 السلام عليكم أخي الملف يعمل و لكن قم برفع الملف مرة اخرى فلربما قمت بالخطأ بحذف كود
ياسر أحمد الشيخ قام بنشر ديسمبر 11, 2011 الكاتب قام بنشر ديسمبر 11, 2011 السلام عليكم ورحمه الله وبركاته عذرا يا جماعة فعندى مشكلة لا أعرف كيف أحلها هذه هى الخطوات التى أقوم بها عند تعاملى مع الفورم: 1- اختار التاريخ (ملحوظة بعد اختيار التاريخ يظهر بشكل غريب ارقام كثرة) 2- اكتب عدد الساعات 8 فقط 3- اضغط زر تنفيذ على الكل (يقوم بالذهاب للكود وتظهر الرسالة التى فى الصورة المرفقة ) أو 1- اختار التاريخ 2- اكتب رقم العامل 3- اضغط على زر حضور ((يقوم بالذهاب للكود وتظهر الرسالة التى فى الصورة المرفقة )) أنا استخدم اكسل 2007 هل هناك نسخة معينه للتعامل مع هذا الفورم أو هل هناك طريقة ما أخرى للتعامل معه ؟ وشكرا error message.rar
الـعيدروس قام بنشر ديسمبر 11, 2011 قام بنشر ديسمبر 11, 2011 اثبات متغيرات فقط روح للفورم CTRL + A ولصقت هذا الكود هذا نفس الكود لاكن بإثبات كل المتغيرات فقط Private Sub CommandButton1_Click() Dim dd, col, m dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False) col = dd + 3 For m = 5 To 13 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 17 To 61 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 67 To 79 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 83 To 117 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 121 To 125 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m MsgBox "Êã ÇáãØáæÈ", vbMsgBoxRight, "ÊãÊ ÈÍãÏ Çááå" End Sub Private Sub CommandButton3_Click() ActiveWorkbook.Save Me.Hide End Sub Private Sub OptionButton1_Click() Dim dd, col dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False) col = dd + 3 Sheets("data_entry").Cells(Label6.Caption, col).Value = CDbl(TextBox3) End Sub Private Sub OptionButton2_Click() Dim dd, col dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False) col = dd + 3 Sheets("data_entry").Cells(Label6.Caption, col).Value = CDbl(TextBox3) End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error Resume Next Label4.Caption = Application.WorksheetFunction.VLookup(CInt(TextBox2), Sheets("data_entry").Range("A5:c177"), 3, False) Label6.Caption = Application.WorksheetFunction.VLookup(CInt(TextBox2), Sheets("data_entry").Range("A5:c177"), 2, False) End Sub
ياسر أحمد الشيخ قام بنشر ديسمبر 11, 2011 الكاتب قام بنشر ديسمبر 11, 2011 (معدل) تمام يا أخ "على " تسلم على حلك للمشكلة شكرا جزيلا تم حل المشكلة ولكن يبقى 3 أشياء : 1- تنسيق التاريخ (التنسيق الذى كتبته أخى على به مشكلة ) 2- اريد تخصيص زر p لعمل "option button "حضور" لعامل واحد ، واريد بعد ضغط زر p أن يتم مسح مربع رقم العامل لأكتب رقم آخر وهذكذا ، و ctrl+p لزر "تنفيذ على الكل "، لأنى أريد استخدام لوحه المفاتيح فقط أئناء العمل 3- اريد عمل نافذة بحث تظهر كل الحضور أو كل الغياب فى يوم معين عند الضغط على زر "اظهار التقرير" وشكرا جزيلا تم تعديل ديسمبر 11, 2011 بواسطه leprince2007
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.