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

مجرد فكرة .. فورم لعمل تقرير (شهري - ربع سنوي - سنوي) مع رسم بياني كثيرا منا يحتاج لعمل تقارير (شهرية - ربع سنوية - سنوية ) للمبيعات , للايرادات , للمصروفات ......... الخ فجاءتني فكرة ( >>> تقبل الخطأ والصواب <<<) لعمل فورم يقوم بجمع بيانات المبيعات ويصنفها شهريا وربع سنوية وسنوية مع عرض الرسم البياني فاحببت ان اشاركها معكم عسي ان يستفيد بها احدا من اخواني بصرحنا العظيم التطبيق بالمرفقات Charts Form.rar

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

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

السلام عليكم شاهد المرفق A_برنامج المنحة المدرسية 18.rar

اخى العزيز برنامج رائع لاستاذنا الجميل والحبيب الاستاذ / جمال دغيدى وبصمة رائعة لاستاذنا الاستاذ / ابو حنين واليك الملف بعد اضافة السطر الذى اضافه استاذى الجميل / ابو حنين برنامج المنحة المدرسية 18.rar

Sub SaveWithBackup() Application.DisplayAlerts = False With ThisWorkbook .SaveCopyAs ThisWorkbook.Path & "\" & _ NameWithOutExt(.Name) & " " & _ Month(Now) - 1 & "-" & Format(Now, "yyyy") & ".xls" .Save End With Application.DisplayAlerts = True End Sub Function NameWithOutExt(pStr_FileName As String) Dim lStr_FileName As String Dim lint_Pos As Integer lStr_FileName = pStr_FileName lint_Pos = InStr(1, lStr_FileName, ".") If lint_Pos > 0 Then lStr_FileName = Left _ (lStr_FileName, InStr(1, lStr_FileName, ".") - 1) NameWithOutExt = lStr_FileName End Function

السلام عليكم شاهد هذا المرفق 2003 يعمل سيناريو تجميع عدة قيم للحصول على قيمة معينة سيناريو جدول1.rar