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

اعتقد هناك خطأ فى المعيار فى استعلام عدد الجداول لكن الاستعلام فى القائمة المنسدلة مظبوط اما بالنسبه لاظهار العدد ممكن يقوم بالتعديل عليه بالكود التالى للجداول =DCount("*";"[MSysObjects]";"[Type] =1 And [Flags] =0") للنماذج =DCount("*";"[MSysObjects]";"[Type] =-32768 And [Flags] =0 ") لا تنسي استاذ @TQTHAMI اختيار افضل اجابه ^_^

اتمني هذا يكون طلبك Database29.accdb

تفضل وبالتوفيق 1111.xlsm

شكرا اخوي عمر 🙂 بس علشان الجميع يكون معانا على نفس الموجه ، هذه جميع بيانات الجداول والنماذج من جدول MSysObjects واللي فيها البيانات المطلوبة ، واللي على اساسها قام اخوي عمر بتصفية السجلات

تفضل جرب Sub FILTRE() Dim Rng As Range, lr As Long, b As Range, c As Range Dim sh1 As Worksheet: Set sh1 = ThisWorkbook.Worksheets("Sheet1") Dim sh2 As Worksheet: Set sh2 = ThisWorkbook.Worksheets("Sheet2") Set a = sh2.Range("A1") Set b = sh2.Range("D10:J1000") Set c = sh2.Range("M10:S1000") If a = Empty Then: Exit Sub With Application .ScreenUpdating = False: .EnableEvents = False End With With sh1 Set Rng = .Range("C9:K" & .Cells(.Rows.Count, "D").End(xlUp).Row) End With Union(b, c).ClearContents [G1] = "" [P1] = "" With Rng Dim cntCrit As Long cntCrit = WorksheetFunction.CountIfs(Rng.Columns(6), "ذكر") If cntCrit <> 0 Then .AutoFilter Field:=6, Criteria1:="ذكر" .AutoFilter Field:=9, Criteria1:=a lr = sh2.Range("D" & Rows.Count).End(3).Row + 1 .Offset(1, -1).Resize(.Rows.Count - 1, .Columns.Count).Copy sh2.Cells(10, "B").PasteSpecial Paste:=xlPasteValues countmales = WorksheetFunction.CountIf(sh2.Range("H10:H1000"), "ذكر") sh2.Range("G1") = countmales End If With Rng cntCrit = WorksheetFunction.CountIfs(Rng.Columns(6), "انثي") If cntCrit <> 0 Then .AutoFilter Field:=6, Criteria1:="انثي" .AutoFilter Field:=9, Criteria1:=a lr = sh2.Range("M" & Rows.Count).End(3).Row + 1 .Offset(1, -1).Resize(.Rows.Count - 1, .Columns.Count).Copy sh2.Cells(10, "K").PasteSpecial Paste:=xlPasteValues countfemales = WorksheetFunction.CountIf(sh2.Range("Q10:Q1000"), "انثي") sh2.Range("P1") = countfemales End If .Parent.AutoFilterMode = False End With End With With Application .ScreenUpdating = True: .EnableEvents = True: .CutCopyMode = False End With a.Select End Sub test_saad.xlsm

تحتاج الى اضافة معلمة وتحديد نوعها في الاستعلام رسم بياني.accdb

السلام عليكم أخي الكريم أبو رأفت عساكم من عواده، أسأل الله تعالى أن يتقبل منا ومنكم صالح الأعمال،كل عام وأنتم إلى الله تعالى أقرب ...آمين أما بعد: لم توضح أخي الكريم شكل النتائج المتوقعة وفي أي ورقة تريد التعديل، وبما أنك لم تحدد ذلك فإنني قمت بإضافة شيت - سمه ما شئت - تضع فيه القسم ورقم الموظف واسمه لمرة واحدة وفي شيت النتائج قمت بالتعديل وليس كل ما طلبت، حيث أنك طلبت خصم الأشهر الثلاثة يمكن إضافة ذلك حسب أرباع السنة وفيما يلي أعرض لك نتيجة ما قمت به ضمن الملف المرفق: تقبل تحياتي Abu Rafat.xlsx

وعليكم السلام ورحمة الله وبركاته تفضل أخي تم استخدام هذه المعادلة في ملفك: =SUMIFS(B:B; A:A; ">="&G4; A:A; "<="&H4) وبالتوفيق الجمع بين التاريخين وحسب انس المخزن.xlsx

ما شاء الله زادك الله من فضله وبارك الله في عملك وهذا هدية مني لكم قمت بعمله ولم أنجز آخر شيت فيه لعدم حاجتي ولاستغنائي ببرنامج aSc TimeTables وبالتوفيق للجميع توزيع الحصص + الجدول.xlsm

سيدي الفاضل 🙂 يا ريت تقرأ الموضوع التالي: https://www.officena.net/ib/topic/113391-لا-تستعمل-dlookup-او-dsum-واخواتها-في-استعلام-،-واليك-البديل/ انت صحيح ما استعملت الامر في الاستعلام ، ولكنك استعملته في التقرير ، فيكون الموضوع ينطبق عليه ايضا 🙂 تم حذف جميع الكود الموجود في التقرير ehsa_sub_dor_New ، وتم عمل استعلام جديد room_list_New ، كمصدر بيانات للتقرير ، يقوم بالعملية كاملا. ما استطعت تكملة حقول التقرير (تعبت 😁) ، فرجاء اكملهم مثل الحقول اللي قبلها. 1578.1.تقرير احصاء.accdb.zip

تفضل اخي userform.New.xlsm

جرب مستخلص مياه ورمل.xlsx

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

الاستعلام السابق ما كان يقبل اكتب فيه المعيار ، فاعدت كتابته ، وظهرت نتائج الاستعلام حسب تحديد مربع القائمة ، فاعتقدت بأن المشكلة انحلت 🙂 وعمل جميل من الشايب 🙂

وعليكم السلام 🙂 وهل نتيجة جمع اجمالي هذه الارقام صحيحة ؟

بس انا شايف اختلاف بين معيار الاستعلام ومعيار عدد الجداول ، فهل هناك سبب 🙄

وعليكم السلام 🙂 اعدت عمل الاستعلام ، فجرب الآن لوسمحت 🙂 1577.رسم بياني.accdb.zip

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

شكرا جزيلا وبارك الله فيك وأكثر الله من أمثالك وجعله في ميزان حسناتك

شكرا لك اخي الكريم

اخي الفاضل moho58 🙂 بعد متابعتي للمشاركات اعلاه ، وملاحظات اخي سامي الحداد ، فنصيحتي لك : رجاء اعادة صيغة سؤالك ، واعطنا امثلة عن اللي تريد حسب بيانات مرفقك ، يعني اكتب: - في النموذج abc ، - في الحقل qwe ، - لما اختار asd في الحقل qwe ، تظهر النتائج 1... و 2... و 3... - ولما اختار 2... ، يجب ان يظهر في الحقل zxc قيمة yhn وووو ويا ريت تدعم طلبك بالصور حسب الحاجة ، وتستطيع استعمال الاكسل او الوورد او برنامج الصور للشرح. رجاء اخذ من وقتك لعمل هذا ، وبعدها افتح موضوع جديد بجميع هذه التفاصيل ، حتى تكون فرصتك اكبر في استحواذ عدد اكبر من الاعضاء والخبراء 🙂 يُغلق هذا الموضوع

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

جزيت خيرا تسلم

ربنا يبارك فيكم

هذا لعشاق الدوال والمعادلات New Microsoft Excel Worksheet.xlsx

السلام عليكم - تفضل New Microsoft Excel Worksheet (1).xlsm

هناك عدة طرق يمكن استخدامها لتسريع عمل برنامج الإكسل، ومن بين هذه الطرق: 1. تجنب استخدام الصيغ الثقيلة: يمكن استخدام الصيغ الخفيفة والبسيطة بدلاً من الصيغ الثقيلة التي تستهلك الكثير من الموارد، مثل صيغة SUMIF و SUMIFS و COUNTIF و COUNTIFS. يمكن استخدام صيغ مثل SUM و AVERAGE و COUNT لتجميع البيانات بطريقة أسرع. 2. تقليل تعدد الصيغ المشابهة: يمكن تجنب تكرار الصيغ المشابهة في الصفوف والأعمدة المجاورة، واستخدام النماذج والنسخ الذكي عند الحاجة. 3. تقليل عدد الروابط بين الصفحات: يمكن تجنب الروابط الزائدة بين الصفحات والتأكد من استخدام الروابط المطلوبة فقط. 4. تعطيل التنسيق التلقائي: يمكن تعطيل التنسيق التلقائي لتحسين سرعة العملية. ويمكن تعطيل هذا الخيار من خلال الذهاب إلى خيارات الإكسل، ثم اختيار علامة التبويب "المراجع الخاصة"، ثم إزالة علامة الاختيار من خيار "تحديد خلايا بشكل تلقائي". 5. تحسين الأداء العام للجهاز: يمكن تحسين أداء جهاز الكمبيوتر الخاص بك عن طريق تحديث برامج التشغيل، وتنظيف الذاكرة والقرص الصلب وإلغاء تثبيت البرامج غير الضرورية، وتقليل عدد النوافذ المفتوحة وعدم تشغيل البرامج الأخرى أثناء استخدام الإكسل. 6. استخدام جداول محورية: يمكن استخدام جداول محورية لتحليل البيانات بطريقة أسرع وأكثر فعالية، ويمكن تخصيص الجداول المحورية لتلبية احتياجات البيانات المحددة. 7. استخدام البرامج الإضافية: يمكن استخدام البرامج الإضافية المتاحة لتحسين وظائف الإكسل وجعلها أكثر فعالية، مثل البرامج الإضافية التي تساعد على تحليل البيانات أو تحسين عمليات الرسوم البيانية. هذه بعض الطرق التي يمكن استخدامها لتسريع عمل برنامج الإكسل. يمكن استخدام هذه الطرق بمفردك أو مجتمعة لتحسين أداء الإكسل وجعله أكثر فعالية في إدارة البيانات. ومن اعدادات الإكسيل يمكنك تحسين أداء برنامج الإكسل من خلال بعض الإعدادات والخيارات التي تتوفر في البرنامج، ومن بين هذه الإعدادات: 1. تعطيل تحميل الصور والرسوم البيانية بشكل تلقائي: يمكن تعطيل خيار تحميل الصور والرسوم البيانية بشكل تلقائي في إعدادات الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "مراجع الويب"، وإلغاء علامة الاختيار من خيار "تحميل الصور والرسوم البيانية". 2. تعطيل الإطارات الحية: يمكن تعطيل الإطارات الحية في إعدادات الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "عرض"، وإلغاء علامة الاختيار من خيار "الإطارات الحية". 3. تعطيل خيارات الحماية: يمكن تعطيل بعض خيارات الحماية المتاحة في الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "الأمان"، وتعيين مستوى الأمان على "متوسط" بدلاً من "عالي". 4. تقليل عدد الملفات المفتوحة: يمكن تقليل عدد الملفات المفتوحة في الإكسل في نفس الوقت، وذلك من خلال إغلاق الملفات التي لم يعد الحاجة إليها، والتأكد من عدم فتح الملفات التي تحتوي على الكثير من البيانات عندما لا تكون ضرورية. 5. تغيير حجم الصفحة: يمكن تغيير حجم الصفحة الافتراضي في الإكسل من الحجم الكامل إلى حجم أصغر، وذلك من خلال الذهاب إلى علامة التبويب "عرض"، ثم اختيار "حجم الصفحة"، وتعيين الحجم المطلوب. 6. تعطيل الترقية التلقائية: يمكن تعطيل خيار الترقية التلقائية في الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "موثوقية المراجع"، وإلغاء علامة الاختيار من خيار "تحديث الرابط التلقائي". هذه بعض الإعدادات التي يمكن تعديلها في الإكسل لتحسين أدائهذه بعض الإعدادات التي يمكن تعديلها في الإكسل لتحسين أدائها. ومن المهم الإشارة إلى أنه يمكن أن تختلف هذه الإعدادات والخيارات وفقًا لإصدار الإكسل ونظام التشغيل الذي تستخدمه. لذلك، يجب أن تتحقق من المساعدة الخاصة بإصدار الإكسل الذي تستخدمه لتحديد الخيارات والإعدادات المتاحة لك.

جرب عدم التعديل فى اسطر محددة.xlsm

يمكنك استخدام الكود التالي لمنع تعديل أو حذف الخلايا من A2:K2 إلا بعد فك حماية ورقة العمل: هذا كمثال فقط وانت عدل على الكود على حسب الخلايا التي او النطاق الذي لديك ضع الكود في حدث الورقه التي تريد تطبيق منع الكتابه على خلاياها بعد الادخال الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Range("A2:K2") If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub يتم تنفيذ هذا الكود عند تغيير قيمة في الورقة. إذا تم تغيير أي خلية في النطاق المحدد (A2:K2)، فسيتم التحقق مما إذا كانت الورقة محمية أم لا. إذا كانت المنطقة محمية، فسيتم إلغاء التغيير وإظهار رسالة تذكيرية تطلب فك حماية الورقة. عندما تكون مستعدًا للسماح بتعديل الخلايا في هذا النطاق، يمكنك فك حماية الورقة باستخدام الأمر التالي: ActiveSheet.Unprotect Password:="mypassword" يجب استبدال "mypassword" بكلمة مرور الحماية الحالية التي تم استخدامها لحماية الورقة. بعد ذلك، يمكنك تعديل الخلايا في النطاق المحدد. بعد الانتهاء من التعديلات، يمكنك إعادة حماية الورقة باستخدام الأمر التالي: ActiveSheet.Protect Password:="mypassword" مرة أخرى، يجب استبدال "mypassword" بكلمة مرور الحماية التي تريد استخدامها. اتمنى يكون المطلوب .

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

وعليكم السلام تفضل اخي الكريم عملت الكود حسب الحقول الموجودة في الجدول إذا كان هناك حقل فارغ سيتم حذف السجل نهائيا. جرب ووافنا بالنتيجة بالتوفيق Private Sub Form_AfterUpdate() Dim rs As DAO.Recordset Dim strSQL As String Dim Field1, Field2, Field3 As Variant strSQL = "SELECT * FROM aaa" Set rs = CurrentDb.OpenRecordset(strSQL) rs.MoveFirst Do Until rs.EOF Field1 = rs.Fields("Nam").Value Field2 = rs.Fields("Home").Value Field3 = rs.Fields("dats").Value If IsNull(Field1) Or Field1 = "" Or IsNull(Field2) Or Field2 = "" Or IsNull(Field3) Or Field3 = "" Then MsgBox "توجد حقول غير مكتملة ... سوف يتم حذف السجل كليا", vbExclamation, "تنبيه" rs.Delete If Not rs.EOF Then rs.MoveNext End If Else rs.MoveNext End If Loop rs.Close Set rs = Nothing DoCmd.Requery MsgBox " . تمت عملية حذف الحقول الفارغة ", vbInformation, "تمت العملية بنجاح" End Sub وهذا الملف بعد التعديل program.accdb

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