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

السلام عليكم و رحمة الله وبركاته مع التحية والتقدير لكل اخواني الذين سبقوني بردودهم الرائعة ولمزيد من الفائدة هذا حل آخر باستخدام الدوال في التحقق من صحة وبدون اكواد ويجب ان يكون التاريخ له قيمة رقمية وليس نصا مع رسالة تحذيرية للمستخدم وهذا للفائدة مع علمي ان السائل يطلب كود VB المصنف1.rar

السلام عليكم شاهد المرفق 2010 البحث بين تاريخين.rar

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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

السلام عليكم الرجاء المساعدة في هدا المطلوب حيث أنه عندي ملف رئيسي وأريد ن أجمع قيم \اعمدة بنائ على تاريخين وأحيطكم علما أن الملفات التي مع البرنامج مسماة بالتاريخ 1.rar

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

اخوتى عندما اضيف شكل او صورة يصعب على تحريكها فمثلا اريد الشكل فى منتصف الصفحة او اريده بعد نص او فقره معينة ما افعله انا اضع المؤشر فوق الشكل ليتحول اربع اسهم واضغط للسحب الى المكان المحدد فيرفض التحريك انتظر ردكم

الأخوة الأفاضل: بعد التحية ارجو مساعدتي في الملف المرفق كيف يمكن حذف الصفر بحيث يصبح الرقم 35200100000532 بدلا من 0 35200100000532 م1.rar

ولاثراء الموضوع هذا تعديل آخر Sub ragab3() Dim LR As Integer Dim LR1 As Integer Set WS = Sheets("57") Set WS1 = Sheets("58") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row LR1 = WS1.Cells(Rows.Count, 1).End(xlUp).Row For Each cll In WS1.Range("A10:A" & LR1) For Each cl In WS.Range("A5:A" & LR) If cl = cll Then Sheets("58").Cells(cll.Row, 2).Value = cl.Offset(0, 1).Value Sheets("58").Cells(cll.Row, 3).Value = cl.Offset(0, 2).Value Sheets("58").Cells(cll.Row, 4).Value = cl.Offset(0, 3).Value End If Next Next End Sub

السلام عليكم ورحمة الله وبركاته أولا : أخي قم بضبط إعدادات اللغة من الويندوز لوحة التحكم ثم قم بضبطها إن لم تفلح جرب الطريقة الثانية جرب هذه الطريقة في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

بعد اذن أخى أحمد عبد الناصر ولتكملة بقية البيانات تفضل أخى ابراهيم Sub ragab3() 'كود استخراج بيانات Dim LR As Integer Dim LR1 As Integer Set WS = Sheets("57") Set WS1 = Sheets("58") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row LR1 = WS1.Cells(Rows.Count, 1).End(xlUp).Row x = 10 For Each cl In WS.Range("A5:A" & LR) For Each cll In WS1.Range("A10:A" & LR1) If cl = cll Then Sheets("58").Cells(x, 2).Value = cl.Offset(0, 1).Value Sheets("58").Cells(x, 3).Value = cl.Offset(0, 2).Value Sheets("58").Cells(x, 4).Value = cl.Offset(0, 3).Value x = x + 1 End If Next Next End Sub

السلام عليكم جرب المرفق اخي حسين تحياتي لك و لاكوادك بالنسبة للشرط فهي عاده عندي عند كتابة الاكواد . تحياتي المصنف1++.rar

السلام عليكم الاخ الكريم / هاني مصطفي اليك اخي الملف المرفق به بعض ما طلبت للاتفاق علي طريقة وآليه العمل جزاك الله خيرا الموتوسيكلات (version 1).rar

جزاك الله خيرا أخي ابوياسر كنت اكتب المعيار في حقل الاسم ويظهر التقرير خالي فوجدتك كتبت المعيار في حقل الرقم وعمل وفتح التقرير وظهرت البيانات بارك الله فيك ونفع بك

بارك الله فيك ورحم الله والديك هل عندك ملفات خاصة بالمرتبات واحتساب العلاوات السنوية