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

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

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

السلام عليكم أحييكم بتحية طيبة ومباركة من عند الله لعل احد الأساليب المعمول بها منذ فترة لحماية أعمالنا على الإكسيل هي جعل ملف العمل ديمو أي يعمل لفترة محدودة حيث أنه قد يكون لدينا بيانات نريد أن نقدمها لمجموعة من الأشخاص ولا نريد أن يكون الملف قيد العمل لفترة طويلة إلا بإذن منا أو لأي سبب يراه آخر المالك – منشيء الملف- لذلك يتم استخدام هذا الكود ،،، وقد تكون الفكرة جديدة على البعض وقد تكون قديمة للبعض الأخر ،،، المهم هو الاستفادة ونشر المعلومة ... إذاً سنقوم بإذن الله بالشرح ويرجى إتباع الخطوات البسيطة الكاملة بالترتيب: 1- بعد تنزيل الملف المرفق المضغوط فك المجلد المسمى Demo على أي مكان تختاره بجهازك ثم افتح الملف المسمى DEMO TEST FROM ZEZO ثم تصفح صفحاته الثلاث إذا كنت تريد ثم انتظر مدة – زمن الانتظار الذي وضعته بالكود هو دقيقتان ونصف فعليك انتظار هذه المدة أو أكثر كما يروق لك - ،،، وبالصفحة الأولى من الملف وضعت كيفية احتساب الوقت يمكنك أن تغيرها كما تشاء ولكن بعد اتمام التجربة بالكامل لكي تفهم المقصود بالكامل . 2- بعد ذلك قم بإغلاق الملف ثم افتحه من جديد – بعد انتهاء الدقيقتان ونصف- سيظهر لك رسالة تفيد بعدم قدرتك على استخدام الملف وأن صلاحيته قد انتهت ومعلومات المراسلة ... الخ ، كما يقوم الكود أيضاَ بتكوين مجلد جديد باسم DEMO TEST FROM ZEZO في نفس مسار المجلد الأصلي المفكوك الضغط المسمى Demo وينشأ ثلاث ملفات اكسيل بعدد أوراق العمل الموجودة بالملف مع ملف نصي READ ME عندئذ لن تستطيع فتح الملف الأصلي . 3- لإعادة الملف لما كان عليه تجد أن الكود قد أنشأ ملف نصي باسم TestFileLog في الدرايفر C عند حذف هذا الملف تستطيع أن تفتح الملف وكأن شيء لم يكن ،،، وتستطيع أن تكرر التجربة بزيادة الزمن كما تريد وفقاً للجدول الموجود بالصفحة الأولى ... أتمنى أن يحوز المرفق إعجابكم ،، وأتأمل منكم الدعاء إخوتي الأحباب ... لكم مني كل الاحترام والتقدير أخوتي ،،،و أأسف على الإطالة لكن الموضوع يحتاج قليلاً من الشرح . Demo.rar

السلام عليكم ورحمة الله وبركاته اخي الفاضل /هاني بدر-----------حفظكم الله هل هذا التقرير الذي قصدته في المرفق 2003 (نموذج بدون اكواد) mmm.rar

السلام عليكم بداية مرحبا بك في المنتدى جرب المرفق باستخدام دالة معرفة تحياتي sum +.rar

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام والاخوة الاعزاءجزاكم الله خيرا وبارك الله في عملكم وعلمكم الملف المرفق فيه مثال اردت توصيل الفكرة وهي ان يكون الفرز اولا حسب الخلية الملونة وبعدها تاتي الخلايا البيضاء وعلى التوالي ولجميع الاعمدة حاولت الفرز حسب خاصية الفرز الموجودة في برنامج الاكسل لكن لم تفلح الفكرة وتقبلوا دعواتي للجميع بالموفقية والنجاح فرز الخلايا حسب اللون.rar

السلام عليكم الاستاذ و الاخ عباس تحياتي لك جرب هذه Sub Dahmour() Application.ScreenUpdating = False Dim Target As Range For g = 1 To Range("iv1").End(xlToLeft).Column Set Target = Cells(1, g) l = Target.Offset(10000, 0).End(xlUp).Row Add = Target.Resize(l, 1).Address add2 = Range("Ca1:ca" & l).Address Range(Add).Copy Range(add2) For Each c In Range(add2) c.Offset(0, 1) = c.Interior.ColorIndex Next Range("Ca2:cb" & l).Sort key1:=Range("cb2"), order1:=xlDescending Range("Ca2:ca" & l).Copy Target.Offset(1, 0) Range("Ca1:cb" & l).Clear Next Application.ScreenUpdating = True End Sub هذا الكود يرتب علي حسب colorindex لكل خلية , ارجو ان يفي بالغرض . تحياتي --+--فرز الخلايا حسب الالوان.rar

السلام عليكم أخي العزيز إقترحت لك دالتين تم استحداثهما خصيصا لهذا الغرض وهما SNF ، TAK وكودهما Function TAK(a As Range) As String If a.Count > 1 Then TAK = "N/A": GoTo 10 TAK = "" r = a.Row For c = 3 To 15 Step 2 If IsEmpty(Cells(r, c)) Then nr = Cells(r, c).End(xlUp).Row TAK = TAK & Cells(nr, c): GoTo 5 End If TAK = TAK & Cells(r, c) 5 Next c 10 End Function ================================================================= Function SNF(a As Range) As String If a.Count > 1 Then SNF = "N/A": GoTo 10 SNF = "" r = a.Row For c = 6 To 14 Step 2 If IsEmpty(Cells(r, c)) Then nr = Cells(r, c).End(xlUp).Row SNF = SNF & " " & Cells(nr, c): GoTo 5 End If SNF = SNF & " " & Cells(r, c) 5 Next c 10 SNF = Trim(SNF) End Function التكويد2.rar

أخي في الله // حسام تم تطبيق فكرتك علي السداد الجزئي كتجربة قم بتجربة الملف ان كان هذا طلبك علي مافهمت من تصورك اكمل لك السداد الكلي باخفاء الصف والله ولي التوفيق حسام 003.rar

السلام عليكم ورحمة الله وبركاته كيف يمكننى نقل الemails من جهاز Apple Mac من على برنامج Mac Mail الى جهاز اخر PC على Microsoft Outlook 2010 وارجو الشرح بالتفصيل مان امكن وشكرا مقدما على مجهوداتكم المحموده

الأخ الحبيب / سعيد بيرم سلام الله عليكم هون على نفسك أخى الكريم الموضوع كان ردا على مشاركتى للأخ / فارس والموضوع أقل بكثير وقام الأخ / عبدالله باقشير بالرد عليه وغلق الموضوع هيا نتناقش فى موضوع ذات أهمية .

الاخ الكريم / tipou422 بارك الله فيك اليك الحل بطريقتين طريقة الصور 4 صور في ملف اكسيل ملف فيديو يشرح ذلك ارجو ان يكون هو طلبك وشاهد هذا الرابط به نفس الطلب تقريبا http://www.officena.net/ib/index.php?showtopic=45365&hl= جزاك الله خيرا شرح اضافة صورة للفورم فيديو.rar طريقة شرح اضافة صورة للفورم بالصور.rar

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