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

السلام عليكم نهنىء اخونا وحبيبنا محمد عصام ( ابو جودي ) اهلا وسهلا بك خبيرا معتمدا والف مبروك زادك الله علما ورفعة ونفع بك

يكون الكود كالتالى Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintPreview End Sub

تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط فعليك بتغيير النطاق بالكود لما تريد Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintOut End Sub

الافضل ارفاق ملف حتى يتم معرفة المطلوب بالضبط والتعديل عليه لكم تحياتي لاحظ الروابط التالية اضافة القرار كيفية توزيع درجات القرار اضافة درجات القرار

السلام عليكم معادلة أخي الكريم سليم مختصرة في الملف المرفق... يمكن استعمال الدالة SUMPRODUCT بدلا من الدالة SUM (وفي هذه الحالة غير ضروري تأكيدها كمعادلة صفيف)... بن علية حاجي DAYS_CALCULATION_2.xlsx

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

السلام عليكم بارك الله بجهودك القيمة اخي واستاذي صالح سؤال: ماذا لو كان التحديث يشتمل على نموزج او تقرير كيف سيكون العمل مع فائق الشكر والتقدير

جرب هذا الملف DAYS_CALCULATION.xlsx

جهد جميل يستحق الشكر وأيضا نستطيع إضافة الخطوط في نفس قاعدة البيانات دون الحاجة لوضعها في مجلد عن طريق كائن (OLE) ويتم استدعاء الخط وتسجيله عند فتح البرنامج هذه هي الطريقة التي استخدمها انا في برامجي :: تحياتي

يعطيك الصحه والعافية

فورم اكسل استدعاء بيانات وصور العاملين الفيديو الصور الملف على الرابط التالى http://www.mediafire.com/file/r92gpfff79v1wgz/بيانات+وصور+الموظفين.rar

فورم اكسل تسجيل بيانات وترحيل بيانات لصفحة اخرى الفيديو الصور بيان الموظفين.rar

Expand And Collapse( الطى والتوسيع ) ExpandCollapse( الطى والتوسيع).mdb

صور بداخل الرسم البيانى بالاكسل الفيديو الصور رابط الملف http://www.mediafire.com/file/abefpdt2r7hvg4v/ادراج+صورة+داخل+الرسم+البيانى.rar

السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( Arial ) وهذه مُشكلة. كت في وقتها الجأ الى ان اضع الخط بجانب قاعدة البيانات وفي داخل قاعدة البيانات اقوم بعمل تحقق لمجلد Fonts والبحث عن الخط في بداية تشغيل القاعدة, فإن لم يجده يعي رسالة للعميل بان الط مفقود وعليه ان يقوم بتثبيته من جانب البرنامج. بحثت طويلاً في الانترنت عن تثبيت خط من الاكسس فقط بدون مساعدة عامل خارجي ولكن لم اصل لنتيجة. اليوم بحمد الله قمت بحل المشكلة بإستخدام ( Visual .NET ) قمت بكتابة اداة بسيطة وظيفتها تثبيت الخط. يتم تمرير براميتر لها وهي بدورها ستقوم بتثبيته الدوال المستخدمة: AddFontResource CreateScalableFontResource ShellExecuteA للمزيد من المعلومات ، اضغط على اسم الدالة ارفقت لكم المصادر من MSDN شرح بسيط لمن لم يعرف ماذا اقصد بتثبيت الخط واستخدام الخط وانه لن يظهر في حال كان العميل لا يملكه. قمت بارفاق قاعدة بيانات لكم كـ مثال للشرح مع الخط المستخدم مع الاداة. شرح الاستعمال: يجب ان تكون الاداة ( SEMO_RegisterFont.exe ) هي والخط الذي سوف تستخدمه بجانب قاعدة البيانات. افتح برنامجك وضع فيه هذا الاجراء. Sub RegisterFont(nFont) Dim strExe As String Dim strArg As String strExe = CurrentProject.Path & "\" & "SEMO_RegisterFont.exe" strArg = "/SEMO/" & nFont ShellExecute 0, "runas", strExe, strArg, vbNullString, SW_SHOWNORMAL End Sub في الاستدعاء اي في الحدث Form_Current RegisterFont "DroidSansArabic.ttf" حيث ان الـ DroidSansArabic.ttf هو اسم الخط الذي قمنا بوضعه بجانب قاعدة البيانات ملاحظة مهمة جدا: في حال كان اسم الخط يتكون من اكثر من كلمة مثل ( Droid Sans Arabic.ttf ) قم بحذف المسافات بين كلمة واخرى بحيث يصبح ( DroidSansArabic.tts ) وستعمل قاعدة البيانات التي قمت بتصميمها بشكل رائع وبالخطوط التي قمت انت بأختيارها بدون الخوف من مشكلة عدم توفر الخطوط في جهاز العميل. الشرح حصري للمنتدى وغير موجود في الانترنت. لا تشكرني الا اذا وجدت انني استحق ذلك. تم بحمد الله حسنين RegisterFont_SEMO_Pa3x.rar

في العمل الرائع المرفق وهو للأستاذ essam rabea حاولت تطبيق العمل علي جدول أخر وقد أصدمت بخطأ في كود الاستعلام بنموذج البحث فهل من نظرة ومراجعة للتصحيح Officna - 1.accdb

بارك الله فيك

بارك الله فيك استاذى بن علية

عمل رائع استاذنا @صالح حمادي أيدك أستاذي في هذا الكلام ....

بارك الله فيك استاذ سليم معادلة حقا ممتازة جعله الله فى ميزان حسناتك

جزيت خيرا هو المطلوب زادتك الله فضلا

وعليكم السلام تفضل حذف أرقام من اليمين.xlsx

تفضل اظهار الوقت سالب.xlsx

ألف . ألف . مبروك استاذي الفاضل @essam rabea تستاهل اللقب وبجدارة ربي يوفقك يارب

ألف مبروك أستاذ @essam rabea تستاهل زادك الله من علمه و نفعك به إن شاء الله

أتمنى أن تضع لنا مثال على هذه الطريقة صديقي

بالتوفيق اخي عصام وااعانك الله على هذه المسؤولية :: تحياتي

@ essam rabea نبارك لكم الترقية ومنها للأعلى إن شاء الله

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

السلام عليكم الف مبروك -----ابا جودي بالتوفيق

بسيطة يمكنك استخدام هذه المعادلة -لو افترضنا ان أرقام المعتمرين بالخلية A2 وأن متوسط تسكين الفندق في الخلية B2 فتكون المعادلة بهذا الشكل -ولكن كما ننصح الجميع لابد من رفع ملف في اى مشاركة وتوضيح المطلوب عليه =ROUNDUP(A2/B2,0)

وعليكم السلام تفضل Att Apr 2019.xlsx

بصراحة انا شفت إن عندك إستعداد للتعلم .. بمعنى إنك غيرت كتير فى الكود بما يتناسب مع عملك .. ممكن تسمع كلامى وتحاول إنت الأول وإن لم تستطع بعد عناء _ وأقصد ببعد عناء أن تحاول مرات كثيرة_ فكلنا هنا سباقون للإجابة عن إستفسارتكم. تحياتى

اخي عصام ... انت اضافة للمنتدى ... الف مبروك ... الى الامام

السلام عليكم الف الف مبروك الترقية اخي الفاضل essam rabea وانشاء الله تكون حلقة خير ومحبة من سلسلة حلقات خبرائنا الاعزاء

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

أستاذ / ابا جودى بارك الله فيك وزادك علما..وقد تعلمت منك الكثير. أستاذ / محمد ابوعبد الله الله يبارك فيك ويحفظك أستاذ / SEMO.Pa3x بارك الله فيك أخى الكريم أستاذ / محمد طاهر بارك الله فيك ويسر لك كل الصعاب .. والله أنا حاسس إنى داخل إمتحان والمادة مذاكرها ومش فاكر فيها أى حاجه. يعيننى ربى أن أكون عند حسن الظن. أستاذ / ابوخليل بارك الله فيك .. وكم إستقيت العلم والمعرفة من منتدانا الكبير وأساتذته الأفاضل وكنت لا أعلم شيئا. أستاذ / omar19-3 بارك الله فيك أخى الكريم ويسر لك سبل النجاح. أستاذ / athal أعزك الله وزادك علما.

الف مبروك استاذ عصام رفع الله قدرك ونفع الله بك

اهلا عزيزي, بعد قراءة نموذج تسجيل الدخول وجدته. كود طويل زيادة عن اللزوم وغير مرتب, اعدت كتابة النموذج الخاص بتسجيل الدخول. عدل ماتحب تعديله. SecurityLevel_group.accdb

الف مبروك وفقك الله وزادك علما ورفعة ونفع بك

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

الف مبروك ، و الي الأمام دائما فى شتى المجالات باذن الله

السلام عليكم مشكور على كلماتك الطيبه جرب المرفق امل ان يفي بالغرض fatoura2.rar

مبارك الترقية للاخ الفاضل عصام.

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

الله يعطيك العافية اخي ابو ياسين ليت الأمر كان كما تصورته لهان منذ البداية الذي اقصده استخراج التواريخ المذكورة بناء على التاريخ الممرر لها من حقل EndDate وهو تاريخ ممرر حسب تقويم أم القرى مثلا انقر نقرا مزدوج في حقل EndDate وانظر الى التقويم لشهر شعبان ستجد انه 30 يوم اما التاريخ الهجري 29 يوم وهنا تكمن المشكلة في اظهار نتيجة بداية الاسبوع بين ام القرى والهجري علما ان المرفق الذي وضعته يعطي نتائج خاطئة سواء للتاريخ الميلادي او الهجري لاحظت ان بدايات الاسابيع ونهايتها خطأ بالمرفق التالي قمت بعدة محاولات وتمكنت من خلالها من اظهار نتائج صحيحة بالتاريخ الميلادي او الهجري وام القرى بتمرير دالة تاريخ أم القرى بعد ان قمت بمراجعة البرنامج الاساس للاستاذ ابو هادي وقراءة الوحدات النمطية والدالات جرب ادخل اي تاريخ بين شهر رجب 1440 و شهرشعبان وشهر رمضان 1440 وستجد الفروقات واضحة اما الشهور الاخرى والتي يكون فيها عدد الايام متساوي تكون متطابقة وهذا المرفق اضعه لعل من احد يستفيد منه شكر لك مد يد العون finel‏‏UMfirestWeekandlastweek.rar

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

السلام عليكم هذا مثال لتثبيت الخط داخل الونداوز من داخل ملف الأكسس إضافة خط للونداوز.rar

بعد اذن الاستاذ احمد بدرة واثراء للموضوع جرب هذا الملف نسخة من 1.xlsx

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm