نجوم المشاركات

السلام عليكم حسب ما فهمت من الملف المرفق من قيبل السيد sabah2023 هناك سوء فهم بتعبير الصفحة لذلك اقترح الكود التالي Sub test() Dim i& For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 27 Rows(i & ":" & i + 1).RowHeight = 30 Rows(i + 2 & ":" & i + 26).RowHeight = 20 Next End Sub

شكراً لكل الاخوة Foksh و kkhalifa1960 على المجهود الرائع وجزاكم الله خيرا

مشاركة مع استاذ @Foksh تفضل أخي . DD409.accdb

www.value = "Ext" & " " & Date Database1.accdb

جزاك الله خيراً أستاذ @kkhalifa1960 قمت بتغيير y1 الى ()date لتتغير بطريقة الية

تفضل محاولتي باختيار التاريخ بيعطيك اسبوعة . date117.mdb

جرب حسب فهمي للموضوع date12.mdb

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

هذه محاولة للوصول للهدف بمعادلة طويلة شيئا ما وساعد في تقصيرها تغيير شكل جدول المواد =IFERROR( if(INDEX(Liste!E$6:E$140,MATCH($B9,Liste!$J$6:$J$524,0))=0,"", if(INDEX(Liste!E$6:E$140,MATCH($B9,Liste!$J$6:$J$524,0))=1,INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0),MATCH($C9,timetable!$d$1:$o$1,0)), if(INDEX(Liste!E$6:E$140,MATCH($B9,Liste!$J$6:$J$524,0))=2,INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0)+1,MATCH($C9,timetable!$d$1:$o$1,0)), INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0),MATCH($C9,timetable!$d$1:$o$1,0))&" و "&INDEX(timetable!$d$2:$o$11,MATCH(E$8,timetable!$b$2:$b$11,0)+1,MATCH($C9,timetable!$d$1:$o$1,0)) ))),"") مع ملاحظة تطابق القسم بجوار اسم الطالب مع الموجود في الجدول وضرورة ضبط أرقام الغياب حيث تم وضع غياب في مادة ثانية ولا يوجد في الجدول مادة في هذا الوقت بالتوفيق استعمال الزمن اختبارات.xlsx

البرنامج يعمل تمام وهذه صوره له .

استاذ @محمد احمد لطفى أنا مو فاهم طلبك لكن برفق لك قاعدة من موقع اجنبي يمكن تفيدك . Calendar.accdb

تم استخدام عمود مساعد لعمل الفلتر بدون معادلة مصفوفات بالتوفيق استعمال الزمن اختبارات.xlsx

يمكنك استعمال هذه المعادلة في الخلية D4 =IFERROR(IF(INDEX(البصمات!$F:$F,MATCH($C$1&$B4,البصمات!$A:$A,0))="","",INDEX(البصمات!$F:$F,MATCH($C$1&$B4,البصمات!$A:$A,0))),"") وهي تعني إذا كانت نتيجة البحث فراغ تكون الخلية فارغة وليست صفرا ويمكنك تعديل معادلة الخلية E4 بنفس الطريقة بالتوفيق

السلام عليكم الاستاذ الفاضل الرهوي ممكن ايضًا تعمل كليك يمين على الجدول المراد إلغاء الارتباط له وتختار من القائمة CONVERT TO LOCAL TABLE والأختيار ده للجداول الغير مرتبطة اى ليس لها علاقات كما تفضل بالتنبيه على ذلك الاستاذ الفاضل عمر ضاحى سوف تعيد ربطها ولكن هذه طريقة اخرى

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

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

هل هذا ما تريدين age collect.rar انا وضعت تقريبا جميع الاحتمالات التى جربتها قد يكون هناك احتمالين او 3 لسه ما فكرت فيهم لكن خليهم عند التجربه انا لغيت الاكواد التى وضعتيها ووضعت ليكي مديول وصب

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

السلام عليكم اخى الفاضل Tamer Murad اسف على التأخير لإنشغالى شوف اشرح لك بالصور تفصيليًا بقدر الإمكان طريقة مربع التحرير والسرد او الكومبوبوكس ولا تؤاخذنى ان نسيت شى سهوًا منى سوف اشرح المثال الذى طلبت فى الاول لأنه انفع طريقة عمل الكومبوبوكس بكذا طريقة اسهلها فى إعتقادى ما سوف اوضحها لحضرتك اولًا : نذهب إلى قائمة تصميم ونختار منها زر كومبو بوكس كما فى الشكل رقم 001 ثانيًا : نعمل كليك او نرسم بالسهم كومبوبوكس على الفورم سوف تظهر هذه النافذة التى تقول انى احتاج الكومبوبوكس يحضر لى قيم من جدول او كويرى اخر كما فى الشكل رقم 002 ثالثًا : نختار الجدول او الكويرى المطلوب ظهور قيمه فى الكومبوبوكس كما فى الشكل رقم 003 رابعًا : نختار من الجانب الأيسر إلى الجانب الايمن ما تريد ظهوره فى الكمبوبوكس حين تختار الكود المطلوب الإستدلال بواسطته ودائما اجعل راس القائمة الكود الذى تريد ان تستدل به واحيانا نضع ال id اولا ثم الكود المراد الأستدلال به كما فى الشكل رقم 004 ، 004a خامسًا : لعمل ترتيب ابجدى للقيم الموجودة فى السجل حسب الترتيب (اختيارى) كما فى الشكل رقم 005 سادسًا : او تعمل على تركها فارغة ثم تجرى التعديل عليها لاحقًا كما فى الشكل رقم 006 سابعًا : تظهر لك الحقول التى تم اختيارها وفوق الحقول يوجد بند مكتوب فيه انه يخفى id مفتاح العمود اتركه كما هو لانك اخترت الid ومرتبط بجدول ثانى كما فى الشكل رقم 007 ثامنًا : فى هذه النافذة تختار الحقل الذى تريد تخزين القيمة فيه وهنا نختار فى مثالنا الكود كما فى الشكل رقم 008 تاسعًا : فى هذه النافذة تبين انى اخترت الكود لتخزين القيم فيه كما فى الشكل رقم 009 عاشرًا : هنا يمكنك تغيير اسم الكومبوبوكس كما يحلو لك ولكن كن حريصًا ان كان الاسم مرتبط بأى برمجة قبل ذلك وإلا اتركه كما هو كما فى الشكل رقم 010 الحادى عشر : بهذا نكون انتهينا من النوافذ المفتوحة ونذهب للتعديل فى بعض خواص الكومبوبوكس مثل عرض الأعمدة كما فى الشكل رقم 011 الثانى عشر : عدلت على عرض الاعمدة بمقاسين فقط وحذفت الباقى لانى عايز اظهر ال id والكود ولاحظ انى جعلت عرض ال id صفر وعرض الكود 2.5 سم تقريبًا كما فى الشكل رقم 012 الثالث عشر : نذهب الى عدد الاعمدة سوف نجدها 8 كما فى الشكل رقم 013 ، 014 الرابع عشر : نقوم بتغيير عدد الاعمدة إلى 2 وهما id ، والكود كما فى الشكل رقم 015 الخامس عشر : نقوم بتغيير عرض القائمة ليتناسب مع النص كما فى الشكل رقم 016 السادس عشر : تم تغيير عرض القائمة ليتناسب مع النص كما فى الشكل رقم 017 ، 018 السابع عشر : هذه النافذة المفروض لا تظهر لك فى حالة انك عملت الكومبو بوكس فى نفاذة مستقلة اما بالنسبة للحالة التى نشرحها الان فهى subform مرتبطة بنافذة اخرى يجب الاختيار منها وهى النافذة الرئيسية انتهى ارحو ان اكون وفيت الشرح بقدر المستطاع اتمنى لك التوفيق والسداد إليك باقى الصور

بارك الله

دا جزأ من المطلوب انا حاولت اكمل بنفس طريقتك Private Sub Form_Current() If Me.Y > 0 And Me.M = 0 And Me.D = 0 Then Me.age = Me.Y Me.ageunit = years Else If Me.Y = 0 And Me.M > 0 And Me.D >= 0 Then Me.age = Me.M Me.ageunit = Months Else If Me.Y = 0 And Me.M = 0 And Me.D > 0 Then Me.age = Me.D Me.ageunit = DAYS Else If Me.M >= 10 Then Me.age = Me.Y + 1 Me.ageunit = years Else Me.age = Me.Y & "." & Me.M Me.ageunit = years End If End If End If End If End Sub

تفضل استاذ @Mr-X المرفق بعد التعديل ، ووافني بالرد . واذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة . S-1.rar

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

ربما Option Explicit Sub Sup_tous_les_filtres() Dim WS As Worksheet For Each WS In Worksheets Application.ScreenUpdating = False WS.Activate On Error Resume Next WS.Range("A8").Select ActiveSheet.ShowAllData Selection.End(xlDown).Select On Error GoTo 0 Next End Sub

أستاذ @ياسر خليل أبو البراء ليس هناك أي فرق لهذا لم أرغب بوضع الكود مرة أخرى والاكتفاء بارفاق الملف ليقوم الأخ @sabah2023 للتجربة لاغير.

أخي العزيز محمد هشام أهناك شيء مختلف في الكود الموضوع في الملف المرفق الخاص بكم؟

تنسيق - 2.xlsm

الكود يعمل على كل الصفحات بالمصنف

وعليكم السلام Sub Test() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Rows("1:2").RowHeight = 30 ws.Rows("3:" & Rows.Count).RowHeight = 20 Next ws End Sub

حتى لا يتعرض موضوعك للإغلاق ، عليك ما يلي :- 1. العنوان المناسب لوصف المشكلة. 2. شرح المطلوب بإيضاح. 3. ارفاق ملف للعمل عليه.

يكمن الاختلاف في: أولا: أن معادلتي على الخلية C7 وليست C10 ثانيا: ترجمة كلمة كسر السنة تم في معادلتي جبر كسر السنة إلى سنة بمعنى عدد الأيام 3142 على 360 تساوي 8.7 سنة يتم حساب 5 منهم على 15 يوم ويتم حساب 4 سنوات على 30 يوم وليس 3.7 على العموم إن كنت لا تريد جبر كسر السنة يمكنك استعمال هذه المعادلة =IF(C10/360>5,75+(C10/360-5)*30,C10/360*15)*C3/30 يفضل أن يكون المطلوب واضحا من البداية حتى لا يضيع الوقت هباء بالتوفيق

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

خزمة تطوير البرمجيات هيئة الزكاه والدخل الرابط https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/ComplianceEnablementToolbox/Pages/DownloadSDK.aspx

السلام عليكم ورحمة الله تعالى وبركاته واجهت مشكلة كبيرة عند حساب الايام بين تاريخين تاريخ البدء وتاريخ الانتهاء على سبيل المثال وكان ما يهمنى هو عدم احتساب الجمعة والسبت ضمن هذين التاريخين على اعتبار انهم عطلة اسبوعية ثم خطر ببالى كذلك عدم احتساب الاعياد والمناسبات الرسمية بحثت وظللت ابحث وسهرت ولم انم منذ الأمس بسبب هذه المعضلة ولكن لم اجد اى حل فى اى منتدى حتى تفضل على الاستاذ ابو خليل جزاه الله عنا كل الخير ان شاء الله ولكن بصراحة هذا الحل لم يرضى طموحى فذهبت للبحث مرة اخرىووجدت فى موقع مايكروسوفت هذا الحل الذى أحدث خطأ فنجم عنه خلل فى الحسابات وحاولت فهم الية العمل وظللت اجرب واحاول وأخيرا بفضل الله سبحانه وتعالى الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل توصلت لحل وقمت بتجربته مرار وتكرارا وبعد أن تأكدت من صحة ودقة معالجة البيانات قررت ان ارفعه على هذا الصرح الشامخ ملاحظة يمكن الاستفاده من هذا المرفق فى الاتى 1- حساب ايام العمل الفعليه بدون ايام الاجازات الرسمية والعطلة الاسبوعية --- العطلة الأسبوعية بالنسبه لى انا كانت الجمعهة والسبت ممكن تعديلها ☺ 2- حساب الاجازة التى تخصم من الرصيد فيستثنى منها ايام الاجازات الرسمية والعطل الاسبوعية كذلك للعلم تعدل بيانات الاجازات الرسمية والتواريخ من خلال القاعدة طبقا لكل دولة حتى لا يتم احتساب هذه التواريخ أحبكم فى الله وانتظر ردكم بعد التجربة ActualDaysCalcult.rar