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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم الملف التالي وهو ببساطة ملف يتم فيه تسجيل الغياب اليومي بشكل سهل ومرن ، ومن خلاله يمكنك الحصول على تقارير لأيام الغياب لأي أسبوع وهو مفيد لشئون الطلبة ومسئولي الحكومة الإلكترونية في التعامل مع خدمة تسجيل الغياب الأسبوعي. وسأترك الشرح بالتفصيل للأخ العزيز / عماد غازي ، وإليكم رابط الفيديو الخطوة الأولي: فك الضغط عن الملف المضغوط ستجد ملف باسم Dummy.xlsx هذا الملف يتم وضع بيانات المدرسة فيه (كود الطالب - اسم الطالب - الصف - الفصل) والملف الثاني ملف برنامج السجل الالكتروني قم بفتحه ونفذ الأمر GETDATA مرة واحدة فقط عند أول استخدام للبرنامج ، بحيث يتم إضافة بيانات الطلاب في البرنامج ، والأمر موجود في شريط الوصول السريع على شكل جرس. أكرر هذا الأمر يقوم بمسح البيانات في البرنامج من قاعدة البيانات DB بالكامل ، لذا وجب التنبيه أن هذا الأمر يتم تنفيذه مرة واحدة فقط عند استخدام البرنامج لأول مرة. تم إضافة ورقة عمل باسم HP فيها تعليمات كيفية التعامل مع البرنامج ، يرجى قراءة التعليمات جيداً قبل التعامل مع البرنامج ** في انتظار إضافاتكم ومقترحاتكم واستفساراتكم حول كيفية استخدام البرنامج أو الإبلاغ عن أي خطأ لكي يتم معالجته إن شاء الله تم تحديث الملف المرفق بتاريخ 6 أكتوبر 2023 الساعة 06:00 مساءاً أسألكم الدعاء لوالدي الذي رحل عن الدنيا ، أسأل الله له المغفرة والرحمة والفردوس الأعلى من الجنة ، وسأعتبر هذا البرنامج صدقة جارية على روح والدي. أخوكم في الله / ياسر خليل أبو البراء رابط الموضوع الأصلي من هنا https://techno7asry.com/forum/t6265

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

Sub myDatainWorkSheetToworkbook() Dim myData As String myData = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each mysheet In ThisWorkbook.Sheets mysheet.Copy Application.ActiveWorkbook.SaveAs Filename:=myData & "\" & myshet.Nam & ".xlsx" Application.ActiveWorkbook.Close Next End Sub

اتفضل استاذى بالضغط على ctrl+k سيحول اى مجموعة شيتات الى ملفات حتى لو كان 1000 شيك تحياتى mySheet.xlsm

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

بسيطة اخوي @زياد الحسناوي ولا يهمك ، ان سمحت لي الظروف الليلة ساعدل كما ترغب أو ليوم غداً إن شاء الله.

أخي الكريم ، ما تقدم به الأخ @زياد الحسناوي هو نموذج لطلبك ، ولكني أعتقد أنك تظن ان النماذج إن تم إخفائها فهي لن تظهر إلا عن طريق الكود ، وهذا الطلب غير ممكن ، فحماية النماذج ليست من صلاحيات آكسيس ، وإنما آكسيس حريص أكثر على البيانات ؛ والبيانات يتم تخزينها بالجداول - والجداول يمكن إخفائها دون عودة كما في النموذج المرفق أعلاه ، أما النماذج فذلك غير وارد في الآكسس ( هذا من وجهة نظري ) .

من غير كود ..................... ضع النموذج في وضع التصميم : 1- اذهب Property Sheet ثم Other ثم غير Pop Up إلى Yes . 2- اذهب Property Sheet ثم Format ثم غير Auto Center إلى Yes . ووافني بالرد .

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

وعليكم السلام ورحمه الله وبركاته تفضل اخى @هانى محمد Option Explicit Sub Test() Dim WS As Worksheet, SH As Worksheet, Lr As Long, i As Long, A, B, C, D, E As Long, WF As Object Set WS = ThisWorkbook.Worksheets("Setting") Set SH = ThisWorkbook.Worksheets("Main") Lr = SH.Cells(Rows.Count, 1).End(xlUp).Row ReDim arr(3 To Lr, 1 To 2) For i = 3 To Lr A = Application.Match(SH.Range("B" & i), WS.Columns("a"), 0) If Not IsError(A) Then B = Application.Match(SH.Range("C" & i), WS.Columns("BB"), 0) If Not IsError(B) Then C = Application.Match(SH.Range("F" & i), WS.Rows(1), 0) If Not IsError(C) Then If SH.Range("F" & i) = "Marsa Alam" Or SH.Range("F" & i) = "Cairo" Then E = 8 Else E = 9 End If D = Application.Match(SH.Range("e" & i), WS.Range(WS.Cells(2, C), WS.Cells(2, C + E)), 0) - 1 If Not IsError(D) Then arr(i, 1) = WS.Cells(A, C + D) arr(i, 2) = WS.Cells(A, C + D + 1) End If End If End If End If Next i SH.Range("G3").Resize(UBound(arr, 1) - 2, UBound(arr, 2)).Value2 = arr End Sub

وعليكم السلام ورحمة الله تعالى وبركاته فقط اجعل الكود هكدا Sheets("المقبوضات").Range("A2:L2000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:D2"), CopyToRange:=Range("A4:H4"), Unique:=False وقم بجعل Criteria الخاصة بمعايير الفلترة بهدا الشكل GES1 - Copy.xlsm

تفضل اخي الكريم On Error Resume Next ' تعيين القيم المطلوبة لعرض النموذج Me.WindowWidth = 1920 ' تعيين القيم المطلوبة لارتفاع المساحة الداخلية للنموذج Me.WindowHeight = 1080 ' توسيط النموذج على الشاشة Me.Left = (Application.Width - Me.Width) / 2 Me.Top = (Application.Height - Me.Height) / 2 On Error GoTo 0 بالتوفيق

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

جزاكم الله خير ما قصرتوا ... واشكركم على سرعة الرد

اتفضل برنامج يمسح كل بيانات الشهر المحدد Database10000.accdb

وعليكم السلام تحتاج الى تصميم فورم للجدول و بعدها انشاء استلام حذف بالشرط (المطلوب) وطبعا تعتمد على العلاقات و اذا كان الجدول مرتبط بجدول آخر ام لا

تفضل اتمنى ان يفيدك التالي الحل في جعل خاصية النموذج تغيير الحجم تلقائي ( نعم )

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

السلام عليكم تمام البرنامج شغال الله يبارك فيك استاذي العزيز ان شاء الله في ميزان حسناتك

أظن الخاصية متعلقه بنوع الماسح الضوئي الذي تعمل عليه إذا يمسح الصور بشكل متتابع مرة واحده . مثال الماسح الضوئي أدناه >>

اتفضل الحل Example.xlsx

تم عمل المعادلة Book1.xlsx

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

هذه محاولة مني ضع هذه المعادلة في L5 =IFERROR(INDEX($I$5:$I$272,MATCH(0,IFERROR(MATCH($I$5:$I$272,$D$5:$D$1370,0),COUNTIF($L$4:$L4,$I$5:$I$272)),0)),"") واتسخ لأسفل 100 صف فقط حتى لا تبطئ الملف وإذا كان الأوفيس قديم نسبيا يجب الضغط على كنترول وشيفت وانتر بالتوفيق

رغم انك لم توضح مطلبك بشكل واضح ، لكن ولا يهمك ، سيتم التعديل حسب رغبتك ☺️