𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

ID-0223222033111131825375526

جزاك الله كل خير

وعليكم السلام ورحمة الله وبركاته .. مشكور على الهدية ا. وايلي

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

إلهي أذهب البأس ربّ النّاس، اشف وأنت الشّافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقماً، أذهب البأس ربّ النّاس، بيدك الشّفاء، لا كاشف له إلّا أنت يارب العالمين. - اللهم إنّي أسألك من عظيم لطفك وكرمك وسترك الجميل، أن تشفيه وتمدّه بالصحّة والعافية، لا ملجأ ولا منجا منك إلّا إليك، إنّك على كلّ شيءٍ قدير.

جزاك الله كل خير اخي

ماشاء الله ا. محمد جزاك الله كل خير على ما تقدمه من مساعدة للمنتدى العريق تسلم ايديك

انا حاولت اضيف الملف لان الملف القديم الخارجي كما ذكرت سابقا يوم الخميس انه غير مطابق اشتغلت علشان يكون مطابق واذا اردت الملف الخارجي اتفضل ومعذرة لك كروت دوام يناير 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

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

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

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

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