𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

انا حاولت اضيف الملف لان الملف القديم الخارجي كما ذكرت سابقا يوم الخميس انه غير مطابق اشتغلت علشان يكون مطابق واذا اردت الملف الخارجي اتفضل ومعذرة لك كروت دوام يناير 2025.xlsx

شكرا لاهتمامك أبوعيد مرفق الملف واعذرني على التأخير بسبب ظروف العمل خارج المكتب كارت دوام.xlsx

شكرا أبوعيد التعديل في عند جلب البيانات من البرنامج الخارجي اريد ان يكون رأسي وليس افقى

انا لا اقصد انشاء فورم كامل بالازرار او مربعات النصوص او الليست بوكس وخلافه وجدت هذا الكود وانا اقوم بالبحث Sub CreateDynamicUserForm() Dim months As Variant Dim selectedMonths As String Dim i As Integer ' قائمة بأسماء الأشهر months = Array("يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", _ "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") ' إنشاء نموذج المستخدم ديناميكيًا Dim frm As Object Set frm = CreateObject("MSForms.UserForm") With frm .Caption = "اختيار الأشهر" .Width = 300 .Height = 300 End With ' إضافة ListBox لعرض الأشهر Dim lstBox As Object Set lstBox = frm.Controls.Add("Forms.ListBox.1") With lstBox .Name = "lstMonths" .Left = 20 .Top = 20 .Width = 250 .Height = 200 .MultiSelect = fmMultiSelectMulti ' السماح باختيار عدة أشهر End With ' إضافة الأشهر إلى ListBox For i = LBound(months) To UBound(months) lstBox.AddItem months(i) Next i ' إضافة زر "موافق" لتأكيد الاختيار Dim btnOK As Object Set btnOK = frm.Controls.Add("Forms.CommandButton.1") With btnOK .Caption = "موافق" .Left = 50 .Top = 230 .Width = 80 .Height = 30 .OnAction = "ConfirmSelection" End With ' إضافة زر "إلغاء" لإغلاق النافذة Dim btnCancel As Object Set btnCancel = frm.Controls.Add("Forms.CommandButton.1") With btnCancel .Caption = "إلغاء" .Left = 170 .Top = 230 .Width = 80 .Height = 30 .OnAction = "CancelSelection" End With ' تعريف المتغيرات للتعامل مع الأحداث Dim isCancelled As Boolean isCancelled = False ' عرض النموذج frm.Show ' التحقق مما إذا تم الضغط على "إلغاء" If isCancelled Then MsgBox "تم إلغاء العملية.", vbInformation Exit Sub End If ' جمع الأشهر المختارة من ListBox selectedMonths = "" For i = 0 To lstBox.ListCount - 1 If lstBox.Selected(i) Then If selectedMonths = "" Then selectedMonths = lstBox.List(i) Else selectedMonths = selectedMonths & "," & lstBox.List(i) End If End If Next i ' عرض الأشهر المختارة If selectedMonths = "" Then MsgBox "لم يتم اختيار أي شهر.", vbExclamation Else MsgBox "الأشهر المختارة: " & selectedMonths, vbInformation End If End Sub ' كود الحدث لزر "موافق" Sub ConfirmSelection() Dim userForm As Object Set userForm = VBA.UserForms(0) userForm.Hide End Sub ' كود الحدث لزر "إلغاء" Sub CancelSelection() Dim userForm As Object Set userForm = VBA.UserForms(0) isCancelled = True userForm.Hide End Sub

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

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

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

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

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

البيانات تأتي من الموقع واقوم بتسجيلها لو السؤال خاص ببيانات الموظفين اقوم بتسجيلها طبقا للعمل ومواقع العمل فلدي اكثر من 15 موقع عمل

بالفعل اخي بنهاية كل شهر ساقوم بادخال حضور 200 موظف ما هي الطريقة الاسهل

الادخال هيكون شهري بنهاية كل شهر لجميع الموظفين يعني لو افترضنا ان هناك 200 موظف فانا احتاج لادخال حضور وانصراف 200 موظف وحفظهم لطباعتهم

البيانات في الورقة الثانية فقط قاعدة البيانات بطاقة العمل يتم احضار البيانات من الورقة الثانية فقط قاعدة البيانات

. اخي الفاضل أبوعيد شكرا على الاهتمام والرد بالنسبة الى ورقة العمل هذه ساعات العمل يتم كتابتها يدوي سواء 8 ساعات او 10 ساعات الساعات الاضافية يتم حسابها يديويا عند كتابة بداية العمل ونهايته مثلا ساعات العمل 8 ساعات بداية العمل 6 نهاية العمل 6 يتم احتساب الاضافي بعد 8 ساعات عمل وهكذا لو ساعات العمل 10 ساعات يتم احتساب الاضافي بعد اكمال 10 ساعات الشهر ثابت 30 يوم بالنسبة لاسترداد البيانات بناء على رقم الاقامة حيث يتم كتابة رقم الاقامة يقوم باحضار البيانات من شيت قاعدة البيانات وعند الانتهاء من من موظف يقوم بارسفته في ورقة عمل الارشفة وهكذا معذرة حيث اني من بداية العام واعمل في مواقع كثيرة ولا استطيع الرد سريعا وشكرا لك ولجميع الاخوة في المنتدى العريق

شكرا لحضرتك ا. محمد هشام بارك الله فيك كلمة شكر لا تكفي لمجهوداتك في المنتدى جزاك الله كل خير انت وجميع الاخوة الافاضل في المنتدى