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

السلام عليكم تفضل أخي الكريم: تم وضع المعادلة التالية وهي معادلة صفيف Ctrl,Shift,Enter كما تم التعديل على أسماء الأشهر في الخلية C15 وما دونها بدلاً من كتابة اسم الشهر كنص كتبنا تاريخ أول كل شهر ثم التنسيق ليظهر اسم الشهر لإتمام المعادلة والله ولي التوفيق والسلام عليكم 152.xlsb

مشاركة مع أستاذى @Foksh تفضل test1.rar

نفس معادلة استادنا الفاضل @محمد حسن المحمد =AVERAGEIFS($E$3:E$11;$C$3:C$11;">="&C15;$C$3:C$11;"<"&EOMONTH(C15;0))

Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect UserInterfaceOnly:=True, Password:="1234" Next ws End Sub

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

أخي الكريم عملت على الملف الأول ولم انتبه إلى تعديل الملف على كل جرب هذا عسى يكون المطلوب Double Dlick على إي خلية في العمود E (رقم ملف الحالة) سوف يظهر التقرير الخاص ... Book2.xls

يوجد طريقة أخرى من ابتكاري ، ولكن دعني أجربها لضمانها

تقصد ده <<<<<<<<<<<<<<<<<<<<<<

اعتقد في طريقه عن طريق جداول النظام ولكني لا أتذكرها

جزاكم الله خيراً أخي الكريم @محمد هشام.

Sub VeryHiddenSelectedSheets() Dim wks As Worksheet On Error GoTo ErrorHandler For Each wks In ActiveWindow.SelectedSheets wks.Visible = xlSheetVeryHidden Next Exit Sub ErrorHandler: MsgBox "A workbook must contain at least one visible worksheet.", vbOKOnly, "Unable to Hide Worksheets" End Sub

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

هذا آخر ملف لك مع الكود المنقح ويعمل جيداً بعد الأخذ بعين الاعتبار الملاحظة التالية إذا سمحت لي: حسب العمود الأول لديك دائما تبدأ بـ اسم المدرسة ثم "المدرسة" ، أرقام الكتتاب ثم "رقم الاكتتاب" ..... وفي النهاية الديانات ثم "الديانة" هذا الكلام جميل ولا غيار عليه ولكن لا أدري لماذا في بعض المدارس يختلف الترتيب في الديانات "الديانة" ثم الديانات جرب الملف المرفق مع التعديل عسى يناسبك تحويل عمود 4 معدل.xlsm

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

اتفضل اخي الفاضل هذه طريقة اخرى بدون اكواد Rac.rar

الشكر لله ثم لاخواننا واساتذتنا وبما ان طريقتى عجبتك اتفضل التعديلات التى قد اشرت اليها بالتوفيق Rac_1.accdb

تفضل أخي مثال آخر by A.Bagshair . الرقم القومي المصري.rar

تفضل من موضوع سابق بالتوفيق جلب البيانات من الرقم القمي ابو جودي.rar

هذه طريقتي في إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) هو كود وقد عملت له نموذج لتسهيل العمل .. 🙂 الكود يقوم أيضا بترتيب وتنسيق العناصر في شكل منتظم لتسهيل عملية التصميم 😊 إقرأ الملاحظات جيدا قبل أن تطبق 😉👌🏻 النموذج : النتيجة ستكون هكذ : ( من >>>> إلى ) >>>> >>>> للاستفادة من هذا النموذج .. قم بنقل النموذج لقاعدة البيانات عندك وسيتعرف تلقائيا على النماذج التي عندك 🙂 ملف التحميل : إعادة تسمية العناصر مع الترتيب بواجهة مرنة.accdb

أولا آسف على التاخير بسبب ضيق الوقت. تفضل اخي تم تعديل الكود مع مراعات عدم وجود الغياب في إحدى المواد أو عدم وجود صف بالكامل Public Sub Filtre_de_classe() Dim sh1 As Worksheet, sh2 As Worksheet Dim Lr As Long, i As Long Dim Rng As Range Dim Arr As Variant Set sh1 = ThisWorkbook.Worksheets("غياب لجان") Set sh2 = ThisWorkbook.Worksheets("غياب إجمالي") XRng = sh1.Range("D8") Application.ScreenUpdating = False sh1.Activate ' التحقق من وجود بيانات في جدول غياب لجان Arr = Array([A11], [B11], [C11], [D11]) For i = 0 To 3 If Arr(i) = "" Then MsgBox (" لا يوجد تلاميد غائبين في مادة : " & XRng) Arr(i).Select sh2.Activate Exit Sub End If Next sh2.Range("A12:G1000").ClearContents With sh1 Set Rng = .Range("B5:D" & .Cells(.Rows.Count, "A").End(xlUp).Row) End With With Rng With Rng Dim cntCrit As Long ' التحقق من وجود غياب في الفصل 4 cntCrit = WorksheetFunction.CountIfs(Rng.Columns(1), "الرابع") If cntCrit <> 0 Then .AutoFilter Field:=1, Criteria1:="الرابع" Lr = sh2.Range("B" & Rows.Count).End(3).Row + 1 .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy sh2.Range("B" & Lr) End If End With With Rng '5 التحقق من وجود غياب في الفصل cntCrit = WorksheetFunction.CountIfs(Rng.Columns(1), "الخامس") If cntCrit <> 0 Then .AutoFilter Field:=1, Criteria1:="الخامس" Lr = sh2.Range("F" & Rows.Count).End(3).Row + 1 .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy sh2.Range("F" & Lr) End If End With .Parent.AutoFilterMode = False End With sh2.Activate Application.ScreenUpdating = True End Sub أما بالنسبة لملئ الإستمارة بشرط اسم التلميذ في الخلية (C8) يمكنك إستخدام الكود التالي : Sub Récupérer_des_données() Dim sh As Worksheet Dim Lr As Long Dim Rng1 As Range Set sh1 = ThisWorkbook.Worksheets("استمارة غياب") Set sh2 = ThisWorkbook.Worksheets("غياب لجان") Lr = sh2.Cells(sh2.Rows.Count, 3).End(xlUp).Row Set Rng1 = sh1.Range("H8,H10,H12,C10,C12,C14") Rng2 = sh1.Range("C8") Application.ScreenUpdating = False With sh2 Set Trouve = .Range("C:C").Find(what:=Rng2, LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then MsgBox "اسم التلـميذ غير موجود في القائمة", Exclamation, "غياب لجان" Rng1.Select Selection.ClearContents Range("C8").Select Exit Sub Else End If If Len(Range("C8").Value) = 0 Then MsgBox "المرجوا إدخال إسم التلـميذ", Exclamation, "استمارة غياب" Exit Sub End If sh2.Activate For i = 11 To Lr If sh2.Cells(i, 3).Value = Rng2 Then sh1.Range("H12").Value = Range("A" & i).Value sh1.Range("C12").Value = Range("B" & i).Value sh1.Range("C10").Value = Range("D" & i).Value sh1.Range("H8").Value = sh2.Range("F8").Value sh1.Range("C14").Value = sh2.Range("F8").Value sh1.Range("H10").Value = sh2.Range("D8").Value End If Next i End With sh1.Activate Application.ScreenUpdating = True End Sub ملاحظة: قد تم حذف غياب اللغة العربية للتجربة بالتوفيق ............ استدعاء الغائبين_3.xls

السلام عليكم ورحمة الله أختي الكريمة، لا شكر على واجب وتجديننا إن شاء الله في الخدمة بما نستطيع ونعرف... في الحقيقة إن الأكواد في الإكسيل أحسن وأفضل لتخفيف وتبسيط عمل الملفات بينما المعادلات الكثيرة والتنسيقات تجعل في أكثر الأحيان عمل الملفات بطيئا وحجمها كبير ... وإجابة على بعض أسئلتك: * أريدأن أعرف أين (List) التي وضعت فيها الشرط؟؟ : هذه تجدينها في خاصية "إدراج/تسمية" Insertion/Name من قائمة الاختيارات... * و عندي سؤال آخر.. عندما نختار في نوع الأصل أصل ما له تصنيف المفروض حقل التصنيف يكون فارغ.. : وهذه تم حلها بواسطة خاصية "التنسيقات الشرطية" Conditional Formatting لخلايا هذا العمود... * كود رقم الأصل مكون من ثلاث خانات.. بينما المطلوب هو خانتين فقط ... تم تغييره بواسطة "تنسيق الرقم بالخلايا" وكل هذه العمليات وأخرى (قمت بتغيير بعض المعادلات) تجدينها في الملف المرفق (نسختين)... وإن شاء الله أكون قد وُفّقت في تحسين أداء الملف... أخوك بن علية Fixed_Asset_Form.rar

وعليكم السلام ورحمة الله وبركاته تقدر تشوف الفيديو ده فيه الفكرة اللي حضرتك محتاجها اتفضل https://www.youtube.com/watch?v=9rvvIQ_qArg

تفضل أخي @hafidcheraga حسب مافهمت اليك الشرح والمرفق . ووافني بالرد . DD434y.rar