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

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

أولا آسف على التاخير بسبب ضيق الوقت. تفضل اخي تم تعديل الكود مع مراعات عدم وجود الغياب في إحدى المواد أو عدم وجود صف بالكامل 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

استكمالا لما قام به استاذنا موسى تفضل f6-1.rar

وتفضل بعد التعديل ووافي بالرد 752محاسبة2018 مستودعات.rar

https://drive.google.com/file/d/18lvYz7O4HSlY3YoaebqziLCub-ttEuRR/view?usp=drivesdk البرنامج في الرابط اعلاة تم تحميل البرنامج على درايف 1010089574_.zip

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

السلام عليكم محاولة في الملف المرفق كحل أول (طريقتين بالمعادلات) وإن شاء الله أفكر في طريقة بالأكواد... برمجة حساب راتب.xlsx

تفضل أخي العزيز 🙂 عدلت لك الدالة بحيث أنك تعطيها تاريخ البداية وتاريخ النهاية ورقم الأسبوع لكل مربع نص .. والدالة ترجع قيمة رقمية 0 و 1 ... الصفر يعني أن هذا الأسبوع ليس من ضمن نطاق الإجازة ، والواحد من ضمن نطاق الإجازة .. وبعدها بالتنسيق الشرطي تلون المربعات التي بها 1 .. ويمكنك إخفاء الأرقام بتلوينها نفس مربعات النص 🙂 وهذه هي الدالة : Public Function IsWeekIn(StartDate As Date, Enddate As Date, ThisIsWeekNumber As Integer) As Integer 'هذه الدالة تقوم بكتابة 1 في الأسابيع الواقعة بين تاريخين و 0 للتي ليست ضمن نطاق التواريخ المعطاه Dim WeekNumberForStartDate As Integer Dim WeekNumberForEndDate As Integer ' Assigning Week numbers for start and end days WeekNumberForStartDate = DatePart("ww", StartDate) WeekNumberForEndDate = DatePart("ww", Enddate) If ThisIsWeekNumber >= WeekNumberForStartDate And ThisIsWeekNumber <= WeekNumberForEndDate Then IsWeekIn = 1 Else IsWeekIn = 0 End If End Function وتكتبها كمصدر بيانات مربعات الأسبوع هكذا : =IsWeekIn([Strdate];[Enddate];1) لاحظ الرقم الأخير 1 هذا سيتغير لكل مربع من مربعات الأسابيع حسب رقم الأسبوع ( من 1 إلى 54 ) f6-Moosak.rar

وعليكم السلام ورحمة الله 🙂 حسب فهمي .. هذه دالة تعطيها تاريخين فتعطيك أرقام الأسابيع للتاريخ الأول والأخير والأسابيع الواقعة بينهما : Function ListWeekNumbers(startDate As Date, endDate As Date) As String Dim WeekNumberForStartDate As Integer Dim WeekNumberForEndDate As Integer Dim x As Integer ' Assigning Week numbers for start and end days WeekNumberForStartDate = DatePart("ww", startDate) WeekNumberForEndDate = DatePart("ww", endDate) ' Listing all the weeks numbers in between For x = WeekNumberForStartDate To WeekNumberForEndDate ListWeekNumbers = ListWeekNumbers & x & IIf(x <> WeekNumberForEndDate, ", ", "") Next 'Debug.Print ListWeekNumbers End Function وطريقة عملها هكذا ( من تاريخ اليوم حتى 3/5/2023 ): ListWeekNumbers(date , #5/3/2023# ) والناتج ( الأسابيع من 2 إلى 18 ) : 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18

جربت هذا الموقع جيد يعطيك تجربة 60 يوم https://www.smarterasp.net/ هذا كود الاتصال وعند تسجيلك وانشاء قاعدة البيانات سيعرض لك جميع انواع الاتصال تقريباً sqldb.Open "Provider=SQLOLEDB;Data Source=SQL8003.site4now.net;Initial Catalog=;User Id=UserName;Password=********"

يمكنك الكتابة في الخلايا من A إلى D وما يهمك. وكلم مديرك يوظفني 🙂 برمجة حساب راتب_03.xlsm

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

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

اختارها من عندك افضل اجابة

الاخ ابو اجمد شكرا جزيلا الاخ kkhalifa1960 شكرا جزيلا نعم ضفت مواد جديدة وتم حل المشكلة جعله في ميزان حسناتكم

هذا البرنامج من عمل استاذنا العلامة الفهامة الاستاذ حسونه حسين حفظه الله ورعاه وبارك الله في عمره وعمر والده وأولاده وأهل بيته اجمعين اللهم آمين برنامج الأرقام السرية للأستاذ حسونة الاصدار 1.xlsb

بارك الله فيك اخى @علي بطيخ سالم ابو عبدالرحمن وجزاكم الله خيرا على دعاؤكم الطيب

الله يبارك

السلام عليكم ورحمة الله محاولة في الملف... Book1.xlsm

السلام عليكم محاولة في المرفق لكن ليس بكود بل بمعادلات استُعملت فيها الدوال VLOOKUP و INDEX... ملفك غير منظم. قائمة المبيعات.xlsm

تفضل طريقة بسيطة جدا اختر التاريخ من مربعات التحرير ،،، او اكتب بعض التاريخ وسوف يقوم مربع التحرير بعرض التواريخ المطابقة البحث بين وقتين2.accdb

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

السلام عليكم ورحمة الله وبركاته ما الفائدة من أن تقرأ ولا تتفكر فيما تقرأ ؟! وما الفائدة إن تفكرت ولم ينعكس ذلك علي حياتك وسلوكك؟! ما الفائدة من أن تتعلم ولا تُعَلِم؟ أو أن تتكسب ولا تنفق؟! إن لم يكن ما يأتيك يخرج بصورة أفضل مما آتاك فهناك إذاً خلل… البذرة إن أعطيت للأرض أخرجت نبتة… فاجعل ذاتك أرضاً خصبة، كلما غُرِسَ فيها غرسٌ أنبتت ثمرة… وكن خليفة الله في أرضه ويداً لعباده ممتدة… واما بعد فكرت اني اعمل قالب يسير لمن يحتاجه التصميم بشكل جيد الفكرة جات من Blogger انه عامليين قوالب للمستخدم يقدر يستخدمها حسب حاجته ويطوعها حسب استخدامته Business Application Final Template مميزات القالب شاشة دخول للمستخدمين مع تحديد صلاحيات المستخدم -ادمن - مندوب بيع - مندوب شراء شاشات الانتقال تفاعلية بتعطي طابع للمستخدم بالراحة للرؤية مع استخدام الانفوجرافيك في الانتقالات المتعدة هاناخد فكرة عمل الشاشات - المشتريات - المبيعات - المخزون - المستخدم - الاعدادات والتقارير خيار الانتقال ينشط حسب صلاحية الدخول الوظايف المتعلقة بالشاشة الرئيسة المبيعات المشتريات المخزون التقارير والاعدادات ومنها تقرير المبيعات بالفترة شهري ربع سنوي - يومي - صنف معين - عميل معين - رقم الفاتورة - اجل - نقدي تقارير عديدة متنوعة تقرير المشتريات ونفسه تقارير المورين وبها تقارير بالمدة وبالمورد بحالة الدفع شاشة المستخدمين ومنها التحكم في المستخدمين والصلاحيات خيار دخول المستخدمين وقت الدخول والخروج والتاريخ واسم الجهاز التي تم من عليه الدخول اتمني يكون القالب فيه الفايدة والمنفعة مع ملاحظة القالب لا يحتوي الا علي اكواد شاشة الدخول والانتقال بين الخيارات القالب بالمرفقات وبالتوفيق للجميع Business Application Final Officana.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته اولا طريقة تصميمك للملف غير صالحة لاستخراج البيانات بشكل سليم . تفضل اخي قد تم تعديل الملف ليتناسب مع طلبك مع اضافة المعادلات لاستخراج نتائج شهور السنة كاملة. اضافة لجدول في Sheet3 يمكنك من العثور على النتيجة المطلوبة من خلال اختيار اسم الشهر عبر ComboBox Book1_MH.xlsx

نعديل بسيط ...تم اعمل تظليل للصف الذي به البحث عند عمل كليك في اللست بوكس ولا تنسي ..عند عمل دبل كليك علي كل من تكست بوكس او كومبوبكس ..يتم تفريغ كل منهما Test_2.xlsm

مميزات الشيت و طريقه التعامل معه تكويد العاملين و هنا بيانات العميل يتم إضافة جميع الموظفين بها وبياناتهم يومية السلف يتم تسجيل جميع سلف الموظيف الصغيره يتم خصمها في نفس الشهر&الطويلة تخصم كل شهر يتم خصم السلف مستحقة السداد في نفس الشيت اذا كانت صغيرة او طويلة يرجي كتابة تاريخ الشهر صحيح كشف حساب السلف تقرير عن سلف الموظفين الصغيرة والطويلة البونص والجزاءات تسجيل للموظفين البونص والجزاءات الحضور والغياب تسجيل حضور الموظفين بـ1 الغياب بـ0 المرتبات يتم ترحيل جميع البيانات للشيت يرجي فقط تغير بداية الشهر ونهايته من اعلي الشيت كما موضح بالداخل كشف حساب المرتبات اختيار اسم الموظف وطباعة تقرير بالمرتب بمجرد تسجيل الحضور والانصراف و تحديد السلف – والعقوبات وعند ادخالها سيتم تخصيم المبالغ من المرتب حسب الشهر و اعداد كشف المرتبات و أيضا قيد المرتبات الشهري بشكل تلقائي يمكن تسجيل و متابعه سلف الموظفين عمل جدوله لسلف الموظفين علي اكثر من شهر جميع المعادلات مفتوحه المصدر و قابله للتعديل ( حيث ان الشيت بدون اي حمايه علي المعادلات لسهوله التعديل عليه ) بيان بمفردات المرتب لكل موظف عن الشهر مع سهوله التبديل في بيان مفردات المرتب بين الموظفين بالاخيار من قائمه بجميع الموظفين بالشركه الملف حجمه صغير فلا يستدعى الأمر وضع رابط خارجى ... تــــم رفع الملف هنا مباشرة 5-2022مرتبات.xlsx

اخي شاهد المرفق tarhil.xlsm

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

أخى الكريم سلام الله عليكم تعديل طفيف لاستدعاء البيانات وطباعتها فى صفحة واحدة مهما كان العدد 2 كشف مرتبات.rar

أشكرك أخي امير وإليك تعديل آخر على النموذج قمت به حالاً 1- إمكانية إضافة عنوان للتقرير اخيارياً ... 2- زيادة عدد حقول التقرير إلى 8 حقول 3- تحويل التقرير من اليمين إلى اليسار مع خالص تحياتي رضاعقيل report_bild2000A.rar