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

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

تعديل بالمسح.rar

أساتذتنا في أوفيسنا كالغيث متى ظهروا أزهرت المواضيع ومتى ابدعوا رفعت لهم القبعات وعلت الحناجر بالدعاء لهم أن وفقهم اللهم وجازهم عنا بما انت اهل له.

الأستاذ الفاضل // ناصر سعيد السلام عليكم ورحمة الله وبركاته أشكرك على هذا الاطراء الذى ينم على أخلاق شخصكم الكريم يشرفنى دائما أن أكون مع العمالقة فى هذا المنتدى ولو بفكرة بسيطة أو برأى صغير فى الكنترول خاصتى والذى سبق أن شرفت بنشره فى هذا المنتدى العظيم بنيت هذا الشيت معظمه باستخدام المعادلات 75 % منه ، لعدم تمكنى جيدا من الأكواد العظيمة التى اراها هنا والذى أسعى إليه الأيام القادمة من فهم أكبر قدر من الأكواد التى تفيد فى هذا الصدد وعندى فكرة ممكن تنفع فى هذا العمل المشترك وهى : بالنسبة للأوراق المطلوبة للعمل ولتقليص حجم الملف 1ـ العمل بالأكواد التى لا تشغل حيز من مساحة البرنامج 2ـ تصميم الأوراق بشكل بسيط قليل جدا من الألوان والتنسيقات التى تزيد من حجم الملف 3ـ أن تكون كافة أوراق الرصد على ورقة واحدة للترمين ـ كما سبق لى فى مشاركة سابقة فى هذا الموضوع 4ـ الشيت الرئيسى المفصل للترمين فى ورقة واحدة ويمكن استخدام أزرار لاظهار نصف العام فقط أو التيرمين معا والذى من خلاله يتم انتاج كافة المخرجات الأخرى ( بالأكواد أو المعادلات ) 5ـ شيت الإدارة للترمين يكون على ورقة واحدة ونفس عدد الأعمدة ( يعنى البيانات بتتغير بتغير كلمة نصف العام أو آخر العام ، باستخدام القوائم المنسدلة ) 6ـ الشهادات كلها للترميين على نفس الورقة واستخراجها بكافة الأشكال ، كما سبق أن طرحت موضوعا فى المنتدى بهذا الصدد وتفضل الأستاذ / محمود_ الشريف بعمل ذلك كله 7ـ الاحصائيات للترمين كذلك على نفس الورقة بتغير فقط البيانات لتناسب التيرم 8 صفحة الأوائل كذلك يعنى الخلاصة حوالى 10 أو 12 صفحة للبرنامج تحتوى على أوراق كنترول أساسى بدون اضافات أخرى = حجم صغير + سرعة أعلى فى الأداء وأخيرا : من خلال تعاملى مع رواد الكنترولات فى مختلف المحافظات من خلال تعليقاتهم ومقتراختهم على البرنامج خاصتى وجدت اختلافات كثيرة فى وجهات النظر ( يعنى كل واحد له طلب وله إضافات لتناسبه هو فمن الصعب الجمع بين وجهات النظر كلها ) وأشكرك على سعة صدرك فى قراءة هذا المنشور الطويل وتقبل وافر احترامى وتقديرى أستاذى الفاضل وأخى الكريم

الأخ الكريم صالح أبو أحمد السلام عليكم شكرً جزيلا على هذه الملحوظه

بس خلاص ..إنت تؤمر أخي العزيز خالد تقبل تحياتي

بس

تعجبني استاذ ياسر

بعد كتابة المعادلة اضغط Ctrl+Shift+Enter و ليس Enter وحدها ثم اسحب المعادلة الى باقي الخلايا استعمل LIGNES مع حرف S في نهاية المعادلة

استبدل هذا الجزء ActiveWorkbook.Worksheets("Cus1") بهذا الجزء ActiveSheet وفقط

اليوم خلاص دوامي لكن غدا ان شاء الله راح احاول تحياتي

اتفضل اخي ملفك بعد تعديل مع شرح بالصور اولا فتحنا تقريرك في وضع التصميم وشوفنا ما هو المصدر التقريرك كان مصدر تقريرك هو استعلام صرف كما مبينة في الصور وفتحنا استعلام الصرف في وضع تصميم وكتبنا شرط اكبر من صفر ( 0 ) لكل حقول الصرف كما مبينة في الصور وبعدين خرجنا فيه وحفظنا عمليتنا وفتحنا التقرير شوف بعد ما يظهر السجل اللي فارغة -مكتب حوالات - نسخة.rar

رأيت هذه المشاركة منك اخي الكريم وكرم استاذنا ابو حسين بمشاركة عليه و عرض الاسباب بهذه المشاركة وايضا رأيت موضوعك هذا لذا فكرت ان اعمل لك وحدة نمطية لهذا الموضوع على الرغم ان هذه اول وحدة نمطية انا اعمله واحتمال بيكون فيه كثير من النقصان او بيكون طرق اقصر منه لكن عملت هذا وبينطي نتيجة المطلوبة واطلب من استاذنا اذا بيكون طرق مختصرة يوافيني به هذا هو وحدة نمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim NAjmar As Integer NAjmar = 0 If Nz([Sp]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sp]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(En) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([En]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ar]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ar]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ge]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ge]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Hi]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Hi]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(Sc) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sc]) < 40 Then NAjmar = NAjmar - 6 End If If NAjmar >= 6 Then ShRebaz = "ناجح" ElseIf NAjmar >= 5 Then ShRebaz = "عبور" ElseIf NAjmar < 5 Then ShRebaz = "راسب" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport]);Nz([english]);Nz([arabic]);Nz([geography]);Nz([history]);Nz([science])) وهذا هو الملف شوف الاستعلام Query2 crossed.rar

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

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

اذا تريد ان يظهر فقط اللي بقى لانتهاء اجازته ثلاث ايام فقط وما يظهر اللي مضى انتهاء عقدة استعمل هذا Between Date() And Date()+3 واذا تريد ان يظهر اللي بقى لانتهاء اجازته 3 ايام و مع اللي انتهت اجازته استعمل هذا <=Date()+3 تحياتي

السلام عليكم شكرا للجميع على الإهتمام ...... تم عمل المطلوب ولله الحمد .... وطلب أخير لو سمحتم ( أستاذى سليم ) هل يمكن كتابة أسماء الشهور ( مارس - أبريل ...وهكذا بدلأً من ( آذار - ونيسان ) وآسف للإزعاج .....جزاكم الله خيراً How_Old.rar

عفوا ما فهمت قصدك بالضبط هل تريد ان يظهر من اللي مضى على انتهاء اجازته ثلاثة ايام ام تريد يظهر من اللي بقى 3 ايام لانتهاء اجازته

اشكرك كثير اخي Shivan الان انا قاربت كثير باكمال المشروع باقي التنسيقات وبعض التقارير ، ويرجع الفضل اولاً لله ومن بعده لك . تحياتي واتمنى لك دوام الصحة والعافية،،،،،

الخلية D1 في الملف الذي رفعته لك How_Old.rar

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

اكتب في الخلية D1 الرقم الذي تريد وفي الخلية A2 تاريخ الميلاد و تحصل على كل التفاصيل في الملف المرفق في المشاركة السابقة (لا اعلم ما هي رموز الرقم القومي)

اكتب هذه المعادلة في الخلية C6 واسحب نزولاً =IF(B6="","",VLOOKUP(WEEKDAY(B6),{1,"الأحد";2,"الإثنين";3,"الثّلاثاء";4,"الأربعاء";5,"الخميس";6,"الجمعة";7,"السبت"},2,0))

جرب هذا المرفق استخراج التاريخ من الرقم القومى 29009101703017 = 10/09/1990 اى العمر 26 سنة واربعة اشهر واليك مرفق اكسل =SUBSTITUTE(TEXT(A1,"00\/00\/00"),"/","- ") =MID(A1,2,6) Id Export DAte.rar سجل اعجاب بهذا Id Export DAte.rar

جرب هذا الملف How_Old.rar

اتفضل الحل للاسف مش عارف ارفع الصور فارفقته فى ملف Word Doc1.rar Doc1.rar

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

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

جرب المعادلة التالية =SUMPRODUCT(--(C5:C127<15)+(C5:C127="غ"))

تفضل result11.rar

السلام عليكم فى الشيت المرفق اريد عد الطلبة الحاصلين على أقل من نصف الدرجة والطلبة الغياب جزاكم الله خيرا أرجو ألا أثقل عليكم وعليكم السلام ورحمة الله وبركاته محاولة اتمنى ان يكو هذا طلبك Book1.zip Book1.zip

اعمل استعلام بنفس اللي في الصور شوف الصور واستخدم هذا الكود S1S: IIf([Sickness]![s1]>[Sickness]![s1+0];[Sickness]![s1];[Sickness]![s1+0])

شوف الصورة

اطلع على الرابط التالي .. http://www.excel-easy.com/vba/examples/userform-with-multiple-pages.html

في صفحة بيانات اساسيه نختار الصف المراد التعامل معه مثلا الصف الاول او الصف الثاني او الصف الثالث وهكذا المطلوب : عندما اختار صف تتلون الصفحه الرئيسيه + صفحة الفصل الاول +صفحة الفصل الثاني بلون هذا اللون يختلف باختلاف الصف المختار طبعا مع ملحوظة ترك الجزء الخاص باليوم والتارخ حتى لاتطمس فمن لها جزاه الله خيرا ؟

السلام عليكم جرب هذا التعديل ووافنا بالنتائج backup.rar

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

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

السلام عليكم ورحمة الله إخواني الكرام، قمت ببعض التغييرات (طفبفة) على الملف (تعديل قائمة أسماء الله الحسنى، تعديل في الكود، تعديل في المعادلات) بحيث يقوم بعرض كل أسماء الله الحسنى 99 وفي الحالتين (الساعة الرقمية والساعة التناظرية)... أرجو أن تعجبكم هذه التغييرات... ملاحظة: بالنسبة للاسم "الأحد" هل هو من أسماء الله الحسنى؟... وفقكم الله لكل خير... أخوكم بن علية ساعة مع اسماء الله الحسنى.rar

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