اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب انشاء يوزر فورم Attendance Roll


الردود الموصى بها

السلام عليكم ورحمه الله وبركاته

اريد انشاء يوزر فورم بالمواصفات التى فى الملف

انظر المرفق للمزيد من التفاصيل

ملحوظة: لقد صممت شكل لليوزرفورم الذى اريد عمله ( بدون أكواد طبعا)

Attendance Roll.rar

رابط هذا التعليق
شارك

ماذا تقصد بتحضير أو تغييب موظف؟

هل تقصد كتابة حرف غ مثلا في الخلية المجاورة لاسمه في اليوم المحدد

أم ماذا؟؟

وفي حالة الحضور

هل يكتفى بكتابة عدد ساعات العمل أم ماذا؟؟

  • Like 1
رابط هذا التعليق
شارك

شكرا أستاذ mas على اهتمام حضرتك

رجاء حضرتك أكمل قراءة التفاصيل

ستجد أننى ذكرت عند تفعيل option button الخاص بالتحضير فانه يقوم بأخذ العدد المطلوب كتابته من الجزء " عدد الساعات" حيث سأكتب 8 ساعات أو 12 ساعة

أما بالنسبة لزر option buttonللتغييب فأنه اذا أحتوى جزء " عدد الساعات " على رمز ما يأخذه منه أو يكتب " X" كافتراضى

لى رجاء آخر : ارجو استعمال الشكل الذى أرفقته فى الملف لليوزرفورم

وشكرا

تم تعديل بواسطه leprince2007
رابط هذا التعليق
شارك

على العموم

هذا ما فهمته من المطلوب

أن يتم رصد ما هو مكتوب في عدد الساعات في الخلية المجاورة للموظف في عمود اليوم المختار

وبالنسبة لموضوع تغييب موظف يفضل وضع 0 في حالة الغياب في خانة عدد الساعات وعدم كتابة نصوص

وعذراً عن عدم مواصلتي المطلوب الخاص بعرض نتائج البحث لانشغالي

Mas_Attendance_Roll.rar

  • Like 1
رابط هذا التعليق
شارك

علام الشكر إذاً؟؟

جرب أخي الكريم ما يلي:

أن تضغط على زر إظهار النموذج

أن تختار اليوم من القائمة المجاورة لكلمة تاريخ اليوم

أن تكتب رقم العامل في مربع النص المجاور لكلمة رقم العامل (سيتم إظهار الاسم ورقم الصف في التسميات المجاورة)

أن تكتب عدد الساعات في المكان المخصص

أن تضغط على حضور أو غياب أو تنفيذ على الكل

ولن تجد اي شيء يحدث بعد كل هذا

  • Like 1
رابط هذا التعليق
شارك

لقد جربت كل ذلك

ولكن لا أمل

المطلزب مرة أخرى:

أريد عندما أكتب التاريخ ثم رقم العامل واضغط زر p فى الكيبورد أن يتم تغييبه أو تحضيرة حسب اختيار

حضور أو غياب option button

أو عند كتابه التاريخ واختيار تحضير أو غياب ثم اضغط زر تنفيذ على الكل يتم ذلك للكل

ملاحظة أخرى :

تنسيق التاريخ غريب شوية

أريد الفورم ألا يغلق تلقائيا من نفسه ، ويتم اغلاقه فقط من زر حفظ وخروج

وشكرا

رابط هذا التعليق
شارك

يا حبيبي كل ما تقوله موجود

باستثناء حكاية عند الضغط على زر p من لوحة المفاتيح

لأنه يتم تسجيله عند الضغط على زر الاختيار مباشرة (فلا تحتاج بعدها لضغط p )

  • Like 1
رابط هذا التعليق
شارك

شكراً استاذ محمد

بالفعل الفورم يعمل عند الاختيار من الخيارين

لكن (ما الفرق )

اذا تم اختيار حضور تضاف عدد الساعات

ونفس الشيئ اذا تم اختيار غياب

فلما الخيارين إذاً

رابط هذا التعليق
شارك

أخي عبد الله

الأخ صاحب الموضوع تقريباً ينوي استعمال حضور وغياب فقط لمجرد البحث

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاستاذ ماس بارك الله

الملف يعمل بكفائه عاليه

عند الضغط على حضور يطبع في التاريخ المحدد للموظفين 1 كاملا

وعند الضغط على غياب يطبع في التاريخ المحدد للموظفين 2 كاملا

بورك فيك

للعلم عندي حدثت مشكلة وهي اثبات المتغيرات اثبتها ومشي الحال

تقبلو مروري

رابط هذا التعليق
شارك

شكراً استاذ محمد

بالفعل الفورم يعمل عند الاختيار من الخيارين

لكن (ما الفرق )

اذا تم اختيار حضور تضاف عدد الساعات

ونفس الشيئ اذا تم اختيار غياب

فلما الخيارين إذاً

السلام عليكم

الاستاذ ماس بارك الله

الملف يعمل بكفائه عاليه

عند الضغط على حضور يطبع في التاريخ المحدد للموظفين 1 كاملا

وعند الضغط على غياب يطبع في التاريخ المحدد للموظفين 2 كاملا

بورك فيك

للعلم عندي حدثت مشكلة وهي اثبات المتغيرات اثبتها ومشي الحال

تقبلو مروري

أخي الكريم alidroos

زرا الخيار حضور وغياب يقومان نسخ عدد الساعات للموظف المحدد في اليوم المحدد ولا يقومان بنقل عدد الساعات لكل الموظفين

ولكن ما يقوم بهذ هو زر تنفيذ على الكل

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

.........

وبالنسبة لموضوع إثبات المتغيرات فلا أدري أي شيء تقصد

للعلم الكود يعمل عندي حتى مع تنشيط الخيار الثاني require variable deceleration

لأن جملة option explicit ليست مكتوبة في الكود

  • Like 1
رابط هذا التعليق
شارك

السلاام عليكم ورحمه الله وبركاته

أخى الكريم ماس

الملف لا يعمل عندى

حيث كلما اضغط على زر يقوم بالذهاب للكود ثم يغلق اليوزرفورم تلقائيا

وزر الخروج والحفظ لا يعمل

ما المشكلة عندى

وشكرا

رابط هذا التعليق
شارك

أخي الكريم

اكتب لي ماذا يحدث بالضبط معك من أول فتح الملف وخطوات تنفيذك للمطلوب بمنتهى التفصيل

وساعتها يمكن أن نصل للمشكلة

  • Like 1
رابط هذا التعليق
شارك

ساذكر لك كيف أقوم بالعمل على الملف أولا:

1- انظر إلى اليوميات واحسب أكبر نسبة هل هى للغياب أم للحضور

فاذا كانت نسبة الحضور كبيرة . أقوم أولا يتحضير كل العمال (كلهم فعلابوضع عدد ساعات 8 أو 12) ثم أقوم بتغييب العمال الغائبين بوضع x

,اذا كانت نسبة الغياب كبيرة . أقوم أولا بتغييب كل العمال (كلهم فعلابوضع عدد ساعات x) ثم أقوم بتحضير العمال الحاضرين بوضع 8 أو 12 على حسب عدد ساعات العمل

أما بالنسبة لليوزر فورم: أظن من الكلام السابق فهمت كيف أريد العمل على الفورم

1 - اكتب التاريخ (تنسيق التاريخ غير منضبط )

2- ثم اريد تحضير كل العمال أو تغييب كل العمال حسب اليوم (باختيار حضور أو غياب وكتابه 8 ثم زر تنفيذ على الكل)

فعند الضغط على زر تحضير يذهب للكود وتظهر رسالة :

compile error:

cannot find project or library

3- ثم اريد كتابه رقم العامل وتغييبه هو فقط بالضغط على زر p لتسريع عملية الادخال

لأنى أقوم بتغييب حوالى 20 عامل على الأقل فأفضل الضغط على زر فى الكبيورد وذلك سرع

وشكرا

رابط هذا التعليق
شارك

بارك فيك أخي الكريم

قلت قبل ذلك يفضل وضع 0 في عدد الساعات للغائب (وإذا صممت أن تكون حرف x مثلا يمكنك استبدال CDbl(TextBox3) ب TextBox3 في كل أنحاء الكود)

......

لماذا تكتب التاريخ ألم تقل اختياره من قائمة؟؟!!

في حالة تحضير الكل أو تغييب الكل ليس مهما اختيار زر الخيار حضور أو غياب ولا كتابة رقم العامل فقط تكتب عدد الساعات أو x ثم تضغط على زر تنفيذ على الكل

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

أتمنى أن تكون التعليمات واضحة

رابط هذا التعليق
شارك

أولا : أريد تصحيح تنسيق التاريخ الذى يظهر فى اليوزرفورم حيث يظهر أرقام كثيرة

ثانيا : عند الضغط على أى شى فى اليورز فورم بعد كتابه ما ذكرته من تعليمات يظهر رسالة :

compile error:

cannot find project or library

ويغلق الفورم تلقائيا

سؤال : هل جربت استخدام هذا الفورم ؟؟؟؟

ما حل هذه المشكلة

رابط هذا التعليق
شارك

السلام عليكم

بالنسبة لتنسيق التاريخ في الكمبوكس

استخدم هذا الكود


Private Sub ComboBox1_Click()

Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dd/mm/yy")

End Sub

رابط هذا التعليق
شارك

السلام عليكم ورحمه الله وبركاته

شكرا أخى alidroos على الرد والاهتمام والرد

وماذا عن مشكلة الرسالة التى تظهر لى عند الضغط على أى زر فى اليوزر فورم وهى:

compile error:

cannot find project or library

رابط هذا التعليق
شارك

السلام عليكم ورحمه الله وبركاته

عذرا يا جماعة فعندى مشكلة لا أعرف كيف أحلها

هذه هى الخطوات التى أقوم بها عند تعاملى مع الفورم:

1- اختار التاريخ (ملحوظة بعد اختيار التاريخ يظهر بشكل غريب ارقام كثرة)

2- اكتب عدد الساعات 8 فقط

3- اضغط زر تنفيذ على الكل (يقوم بالذهاب للكود وتظهر الرسالة التى فى الصورة المرفقة )

أو

1- اختار التاريخ

2- اكتب رقم العامل

3- اضغط على زر حضور ((يقوم بالذهاب للكود وتظهر الرسالة التى فى الصورة المرفقة ))

أنا استخدم اكسل 2007 هل هناك نسخة معينه للتعامل مع هذا الفورم أو هل هناك طريقة ما أخرى للتعامل معه ؟

وشكرا

error message.rar

رابط هذا التعليق
شارك

اثبات متغيرات فقط

روح للفورم 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

رابط هذا التعليق
شارك

تمام يا أخ "على " تسلم على حلك للمشكلة

شكرا جزيلا تم حل المشكلة

ولكن يبقى 3 أشياء :

1- تنسيق التاريخ (التنسيق الذى كتبته أخى على به مشكلة )

2- اريد تخصيص زر p لعمل "option button "حضور" لعامل واحد ، واريد بعد ضغط زر p أن يتم مسح مربع رقم العامل لأكتب رقم آخر وهذكذا

، و ctrl+p لزر "تنفيذ على الكل "، لأنى أريد استخدام لوحه المفاتيح فقط أئناء العمل

3- اريد عمل نافذة بحث تظهر كل الحضور أو كل الغياب فى يوم معين عند الضغط على زر "اظهار التقرير"

وشكرا جزيلا

تم تعديل بواسطه leprince2007
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information