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

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

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar

السلام عليكم اقدم لكم مثال لكيفية عرض تقرير واحد في ثلاثة اشكال . من خلال عرض التقرير لكل الموظفين . عرض التقرير للموظف المعروض . عرض التقرير للموظفين الذين تبدأ اسمائهم بحرف معين , انا اخترت حرف (م) اترككم مع البرنامج وارجوا بالضغط على (اعجبني هذا ) على يسار الشاشة . تحياتي لكم . فرز التقرير.rar

جرب المرفق التالي Data3.rar

ارسل صورة لرسالة الخطأ التي تظهر لان الملف الاخير يعمل بصورة ممتازة عند على اكسيس 2010 و 2013

حل آخر باستخدام تقويم منبثق Data2.rar

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

رائع جدا بروعة المصمم

تفضل حل ثان ولكن التجميع باسم الشركة لم اسم شركة او حقل يشير إلى اسم الشركة Data.rar

فعلا فكرة بارك الله فيكم

شكرا لك استاذ ازهر وبارك الله فيك تحياتي لك

يا هلا وغلا بأخي أخي المشكلة ليس هنا المشكلة انه هناك اجهزة مركب عليها ٣٢ وبعضها مركب عليه ٦٤ بت

السلام عليكم كل عام وحضراتكم بخير وبعد حلول خبيرتنا الاستاذه ام عبدالله وملك المعادلات استاذى جمال عبدالسميع واثراء للموضوع هذا حل اخر بالمعادلات و.عيد اضحى سعيد date&time.rar

كل عام وانتم بخير جرب هذا Sub Macro1() Dim SM Dim pSheet As Worksheet Dim Lr As Long 'تعريف الشيت الذي سيتم نقل الارقام اليه Set pSheet = Sheets("Sheet3") ' مسح النطاق في الشيت المراد نقل البيانات اليه With pSheet .Range("A1").Resize(.Cells(Rows.Count, "A").End(xlUp).Row, 3).ClearContents End With ' صفحة البيانات الاولي With Sheets("Sheet1") Lr = .Cells(Rows.Count, "A").End(xlUp).Row pSheet.Range("A1").Resize(Lr, 2).Value = .Range("A1").Resize(Lr, 2).Value SM = "=SUM(" & Range("B2").Resize(Lr - 1).Address & ")" End With Lr = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row - 1 With pSheet.Cells(Rows.Count, "A").End(xlUp) 'الرقم الاول بين القوسين يعبر عن ترتيب الصف والرقم الثاني يعبر عن ترتيب العمود .Offset(1, 0).Value = " اجمالي الاصول المتداولة " .Offset(1, 2).Value = SM .Offset(2, 0).Value = " الالتزامات المتداولة " .Offset(3, 0).Resize(Lr, 2).Value = Sheets("Sheet2").Range("A2").Resize(Lr, 2).Value SM = "=SUM(" & .Offset(3, 1).Resize(Lr).Address & ")" End With Lr2 = Sheets("Sheet4").Cells(Rows.Count, "A").End(xlUp).Row - 1 With pSheet.Cells(Rows.Count, "A").End(xlUp) .Offset(1, 0).Value = " اجمالي الالتزامات المتداولة " .Offset(1, 2).Value = SM .Offset(2, 0).Value = " الالتزامات طويلة الاجل " .Offset(3, 0).Resize(Lr2, 2).Value = Sheets("Sheet4").Range("A2").Resize(Lr2, 2).Value SM = "=SUM(" & .Offset(3, 1).Resize(Lr2).Address & ")" End With With pSheet.Cells(Rows.Count, "A").End(xlUp) .Offset(1, 0).Value = " اجمالي الالتزامات طويلة الاجل " .Offset(1, 2).Value = SM End With End Sub تحياتي

جزاك الله خيرا استاذ ازهر نفع الله بك

السلام عليكم اثراءا للموضوع هذا اختصار لكود الاخ محمود الشريف ...........حفظه الله Sub MZM_ELSHRIEF() Dim R As Integer, RR As Integer Application.ScreenUpdating = False Range("A2:C20000").ClearContents RR = 2 With Sheet1 For R = 2 To .Cells(Rows.Count, "K").End(xlUp).Row If .Cells(R, "K").Value = 0 Then Cells(RR, "A").Resize(1, 3).Value = .Cells(R, "C").Resize(1, 3).Value RR = RR + 1 End If Next R End With Application.ScreenUpdating = True End Sub المرفق 2010 Classeur2_1.rar

اخي العزيز شيت main لا يمكن طباعته على ورقة واحدة A4 والسبب انها اكثر من 15 صفحة وادا كنت تقصد جزء معين من صفحة main فارجو تحديد الجزء المطلوب لك تحياتي

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

بسم الله الرحمن الرحيم تحياتى الى الجميع احتفالا منى بالثوب الجديد للمنتدى . قررت المساهمة بمشاركة ذهبية حصلت عليها فى احدى ابحاراتى الاولية وكانت على سفينة الصحراء وليست جوية او بحرية بل كانت على الجمال . مش راح تصدق ...............................................! دالة "IFYES" مع 112 احتمال ...................................! فى معادالة واحدة معقول !!! ده يبقى جنان فى جنان ونبقى محتاجين علام من جديد . حقيقى لم نقدم للاكسل اى شئ حتى الان غير الكـــــــــــــلام . دالة "IF" فى الوضع العادى تعطى شرط واحد و احتمالين اثنين فقط وفى الوضع المركب منها بأمكانها ان تصل بنا الى سبعة "IF" مع ثمانية احتمالات . ويمكن الوصول بها الى مئات الاحتمالات فى حالة تمرير النتيجة الى خلايا اخرى ثم حصد النتيجة النهائية . دالة اليوم اسمها " إف_صح " فى الوضع العادى منها تعطى 18 ثمانية عشر احتمال . وفى الوضع المركب منها فقط تعطى 112 مئه واثنى عشر احتمال . اما فى حالة التمرير تعطى الآف الاحتمالات . سوف تجد الدالة مع الدوال فى ( معرفة بواسطة المستخدم ) . وطريقة عملها اسهل من "IF" بدون تكرار اسم الدالة زى "IF" العقيمة . ومرفق لكم ملف به مثال للتدريب عليها احتفالا بالثوب الجديد للمنتدى . واذا عجبكم الموضع نبدأ فى تجهيز دالة " إف_خطأ " وهى معكوس دالة " إف_صح " مع تحيات تامر عمر المرفقات دالة ( IFYES ) احتمالات اكثر من دالة ( IF ) العادية مع سهولة اكثر فى التعامل IFYes.rar

الكود التالي يعمل على كتابة عبارة معينة في الخلية C1 عند تغير قيمة الخلية A1 .. ثم يقوم بزيادة أو إنقاص عرض العمود A والعمود C .. لكي يتم إحتواء البيانات الجديدة التي تم إدخالها في الخلية A1 و C1. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then [C1] = "تم تغيير قيمة الخلية A1 إلى " & [A1] Columns("A:C").EntireColumn.AutoFit End Sub شاهد المرفق، AutoFit.rar