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

جرب هذا الماكرو Option Explicit Sub extract_common_rows() Dim tb1 As Range, tb2 As Range Dim r1%, r2%, i%, j%, m%: m = 3 Range("I2").CurrentRegion.ClearContents Set tb1 = Range("a3").CurrentRegion Set tb2 = Range("e3").CurrentRegion r1 = tb1.Rows.Count: r2 = tb2.Rows.Count For i = 1 To r1 For j = 1 To r2 If tb1.Cells(i, 1) = tb2.Cells(j, 1) _ And (tb1.Cells(i, 1).Offset(0, 1) = tb2.Cells(j, 1).Offset(0, 1)) _ And (tb1.Cells(i, 1).Offset(0, 2) = tb2.Cells(j, 1).Offset(0, 2)) Then Range("i" & m).Resize(1, 3).Value = tb1.Cells(i, 1).Resize(1, 3).Value m = m + 1 End If Next Next End Sub الملف مرفق match tow tables.xlsm

جزاك الله خيراً استاذ سليم .. شيء رووعة فعلاً يليق بهذا المنتدى الرائع لكنني كنت أفكر بحل عن طريق معادلات الاكسل وليس بالماكرو، فهل يمكن ذلك مع كل الاحترام والتقدير لكم

تفضل DoCmd.DeleteObject acQuery , Ql1" هذا الكود غير حسب الآتي acTable جدول acForm نموذج acMacro ماكرو acModule وحدة نمطية acQuery استعلام acReport تقرير

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

السلام عليكم ورحمة الله وبركاته برنامج المخازن اتمنى ان ينال اعجابكم مرفق الشرح برنامج مخازن 2019.xlsx

العفو أخي ما أنا إلا طالب أتعلم من هنا وان سنحت لي الفرصة في المساعدة فهذا أقل ما أقدمه. والمعذرة عن أي تقصير

شكرا لك وعلى تعاونك .. الله لا يحرمنا منك

اخي kanory اشكرك على الرد

نعم هذا هو المطلوب بارك الله فيك وفي ذريتك وعلمك وأهل ومالك الله يرحم والديك الله لا يحرمك الأجر ولا يحرمنا منك . تقبل فائق تقديري واحترامي .

أخى الكريم حاول نقل الملف الى شيت اكسيل اخر فهذا الملف به فيروس جزاك الله كل خير

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

استاذي الفاضل الف شكر لك هذا هو المطلوب

وعليكم السلام ورحمة الله وبركاته DoCmd.DeleteObject acTable, "gol" حيث gol اسم الجدول

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

عزيزي @alma_fandi الكود يعمل بشكل طبيعي عند كتابة اسم المؤسسة في التكست بوكس تظهر المؤسسة المراد البحث عنها واقترح بان يتم تغيير التكست بوكس إلي كومبو بوكس وتحميل أسماء المؤسسات به حتي يمكن للمستخدم تحديد المؤسسة المرادة دون أي أخطاء إملائية في كتابة اسم المؤسسة وهذا هو كود تحميل الكومبو بوكس الخاص بالفورمة 'The Excel workbook and worksheets that contain the data, as well as the range placed on that data ' Dim wbBook As Workbook Dim WS As Worksheet Dim rnData As Range 'Variant to contain the data to be placed in the combo box. Dim vaData As Variant 'Initialize the Excel objects Set WS = ThisWorkbook.Worksheets("sheet1") 'Set the range equal to the data, and then (temporarily) copy the unique values of that data to the L column. With WS Set rnData = .Range(.Range("b3"), .Range("b200").End(xlUp)) rnData.AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=.Range("z1"), _ Unique:=True 'store the unique values in vaData vaData = .Range(.Range("z2"), .Range("z200").End(xlUp)).Value 'clean up the contents of the temporary data storage .Range(.Range("z1"), .Range("z200").End(xlUp)).ClearContents End With 'display the unique values in vaData in the combo box already in existence on the worksheet. With ComboBox3 '.Clear .List = vaData .ListIndex = -1 End With كما اقترح عمل كومبو بوكس أخر يتم إضافة فيه تواريخ أسم المؤسسة المختارة لسهولة الاستخدام

شوف فهم السؤال نصف الاجابة وانا لم افهم رجاء رفع القاعدة موضع التساؤل والشرح المنسق تفصيلا

الموضوع مكرر وهذا مخالف وايضا اعتقد القاعدة تخص شخص اخر وهذا مخالف لقواعد وقوانين المنتدى

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

سهلة إن شاء الله فأصبر قليلاً الحمد لله تفضل ما طلبت okkk_ggg.xlsm

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

ماشاء الله تبارك الله اخي اباجودي 👍

الماكرو حسب علمى والله تعالى اعلى واعلم اغلبها جاهز ولا يحتاج كتابه كثيرا فيوفر الكثير من الوقت واعتقد حسب ما فهمت مما قراته قد يكون الماكرو اقضل من ناحية الثبات اما الفعل واحد ان كتب الكود جيدا ولكن هناك ما يستوجب فعله كتابة كود برمجى وان كنت اميل الى البرمجة بلغة (vba) فهي اكثر مرونة من الماكرو😉 ههههههههههه طبعا هذا راى المتواضع وما انا الا طالب علم فقد يكون لاساتذتنا الكرام اراء تختلف عنى ولكن لولا اختلاف الاراء لبارت السلع وكما يقال لكل شيخ طريقه وطريقته لذلك راى المتواضع هو ليس حكر على الافضلية المطلقة او المفاضلة المطلقة بين الماكرو والكود واسمح لى استاذ صابر بتوضيح شئ ايضا الكود الذى تفضل به استاذنا الغالى الاستاذ @kanory ما هو الا استعلام بلغة sql ويفضل المبرمجين عمله بهذة الالية بلغة sql بدلا من عمل الاستعلام ككائن حفاظا على برامجهم عند تحويلها وتشفير الاكواد كى لا يتمكن قراصنة البرامج من تحليل بنية البرنامج للوقوف على اساليب بناءه وافكارة اما بالنسبة للمستخدم العادى من وجهة نظرى المتواضعة الاستعلام افضل لسهولة التعديل عليه باى وقت ان اراد ذلك دون عناء هذا تلميح فقط ليس الا

وهذا كود اخر لإثراء الموضوع -بعد اذن اخى أحمد -1استبدال التظليل بدوائر حمراء.xlsm

تفضل المرفق وكود لإضافة سطر فارغ في الملف استبدال التظليل بدوائر حمراء.xlsx

احذف الاستلام والكود تحت الزر واستبدله بالتالي DoCmd.RunSQL "INSERT INTO table2 ( المعرف, yr2, mn2, emp_code2, salary2 ) " & _ " SELECT table1.المعرف, table1.yr1, table1.mn1, table1.emp_code1, table1.salary1 " & _ " FROM table1;" DoCmd.Requery

وعليكم السلام يرجى ارسال مرفق ليتم التعديل عليه وتقديم المساعدة

وعليكم السلام هذه قاعدة الجداول يوجد قاعدة الواجهات هي التي تكون بها التقارير والاستعلامات والنماذج ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

السلام عليكم تم العمل على حسب فهمي للموضوع ملاحظة لا تغيرة تسمية الاوراق لكي لا تتأثر الاكواد ولا تغير اي شئ في الورقمة المسمات temp ارجو ان يكون المطلوب تحياتي Advanced_Filter.xlsm

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Strings.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Components.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي ActiveX.rar

هذا مثال به مجموعة كبيرة من الدوال جمعتها من مشاركات الأخوة السابقة فى عدد من المواقع Punct_ALl.zip

شكرا جزيلا لكل من شارك الموضوع وفقنا الله لكل ما يحب ويرضى

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