اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      11

    • Posts

      11643


  2. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      9

    • Posts

      13150


  3. SEMO.Pa3x

    SEMO.Pa3x

    الخبراء


    • نقاط

      7

    • Posts

      540


  4. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      6

    • Posts

      4343


Popular Content

Showing content with the highest reputation on 04/22/19 in مشاركات

  1. السلام عليكم نهنىء اخونا وحبيبنا محمد عصام ( ابو جودي ) اهلا وسهلا بك خبيرا معتمدا والف مبروك زادك الله علما ورفعة ونفع بك
    3 points
  2. يكون الكود كالتالى Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintPreview End Sub
    3 points
  3. تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط فعليك بتغيير النطاق بالكود لما تريد Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintOut End Sub
    3 points
  4. الافضل ارفاق ملف حتى يتم معرفة المطلوب بالضبط والتعديل عليه لكم تحياتي لاحظ الروابط التالية اضافة القرار كيفية توزيع درجات القرار اضافة درجات القرار
    3 points
  5. السلام عليكم معادلة أخي الكريم سليم مختصرة في الملف المرفق... يمكن استعمال الدالة SUMPRODUCT بدلا من الدالة SUM (وفي هذه الحالة غير ضروري تأكيدها كمعادلة صفيف)... بن علية حاجي DAYS_CALCULATION_2.xlsx
    2 points
  6. أحسنت استاذ علي أكواد ممتازة بارك الله فيك وبالتأكيد تكفى للغرض وأكثر جعله الله فى ميزان حسناتك وزادك الله من فضله واعتقد انه من الواجب على كل من يقوم بطرح تساؤل اقل حاجة ان يقوم بالضغط على اعجاب لمن قدم اليه الحل او المساعدة -جزاكم الله جميعا كل خير
    2 points
  7. السلام عليكم بارك الله بجهودك القيمة اخي واستاذي صالح سؤال: ماذا لو كان التحديث يشتمل على نموزج او تقرير كيف سيكون العمل مع فائق الشكر والتقدير
    2 points
  8. جرب هذا الملف DAYS_CALCULATION.xlsx
    2 points
  9. جهد جميل يستحق الشكر وأيضا نستطيع إضافة الخطوط في نفس قاعدة البيانات دون الحاجة لوضعها في مجلد عن طريق كائن (OLE) ويتم استدعاء الخط وتسجيله عند فتح البرنامج هذه هي الطريقة التي استخدمها انا في برامجي :: تحياتي
    2 points
  10. فورم اكسل تسجيل بيانات وترحيل بيانات لصفحة اخرى الفيديو الصور بيان الموظفين.rar
    1 point
  11. Expand And Collapse( الطى والتوسيع ) ExpandCollapse( الطى والتوسيع).mdb
    1 point
  12. صور بداخل الرسم البيانى بالاكسل الفيديو الصور رابط الملف http://www.mediafire.com/file/abefpdt2r7hvg4v/ادراج+صورة+داخل+الرسم+البيانى.rar
    1 point
  13. السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( 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
    1 point
  14. السلام عليكم 🙂 اخي @essam rabea كنت خبير ، والآن اهلا وسهلا بك خبيرا معتمدا بيننا 🙂 جعفر
    1 point
  15. اخي @صالح حمادي ضع الخط داخل القاعدة على شكل مرفقات ضع امر كتابة الخط من القاعدة للقرص الصلب , قم بتنصيب الخط , قم بحذفة من القرص الصلب
    1 point
  16. السلام عليكم تفضل الحل في الملف المرفق بمعادلة مختلفة تماما عن السابقة... بن علية حاجي DAYS_CALCULATION_3.xlsx
    1 point
  17. بارك الله فيك استاذى بن علية
    1 point
  18. عمل رائع استاذنا @صالح حمادي أيدك أستاذي في هذا الكلام ....
    1 point
  19. بارك الله فيك استاذ سليم معادلة حقا ممتازة جعله الله فى ميزان حسناتك
    1 point
  20. شكرا لك مبدع ربنا يزيدك من فضلة
    1 point
  21. وعليكم السلام تفضل حذف أرقام من اليمين.xlsx
    1 point
  22. ألف . ألف . مبروك استاذي الفاضل @essam rabea تستاهل اللقب وبجدارة ربي يوفقك يارب
    1 point
  23. 1 point
  24. بالتوفيق اخي عصام وااعانك الله على هذه المسؤولية :: تحياتي
    1 point
  25. @ essam rabea نبارك لكم الترقية ومنها للأعلى إن شاء الله
    1 point
  26. السلام عليكم الف مبروك -----ابا جودي بالتوفيق
    1 point
  27. بسيطة يمكنك استخدام هذه المعادلة -لو افترضنا ان أرقام المعتمرين بالخلية A2 وأن متوسط تسكين الفندق في الخلية B2 فتكون المعادلة بهذا الشكل -ولكن كما ننصح الجميع لابد من رفع ملف في اى مشاركة وتوضيح المطلوب عليه =ROUNDUP(A2/B2,0)
    1 point
  28. بصراحة انا شفت إن عندك إستعداد للتعلم .. بمعنى إنك غيرت كتير فى الكود بما يتناسب مع عملك .. ممكن تسمع كلامى وتحاول إنت الأول وإن لم تستطع بعد عناء _ وأقصد ببعد عناء أن تحاول مرات كثيرة_ فكلنا هنا سباقون للإجابة عن إستفسارتكم. تحياتى
    1 point
  29. الخطأ بسيط أخى صلاح ويتلخص فى التالى استبدل strSQL = "SELECT Kaeel.IDKaeel, Kaeel.ISOName, Kaeel.KaeelFullName, Kaeel.Aboutkaeel" بـ strSQL = "SELECT Kaeel.IDKaeel, Kaeel.ISOName, Kaeel.KaeelFullName, Kaeel.Aboutkaeel" _ & " FROM Kaeel WHERE (" فى الحدثين الخاصين بهما وكذلك إستبدل DoCmd.OpenForm "frm_Kaeel", , , "[IDKeel]=" & Me.IDBook & "'" لرز Open على النموذج بـ DoCmd.OpenForm "frm_kaeel", acNormal, "", "[IDKaeel]=" & [IDKaeel], , acNormal وكذلك قم بتغيير إسم حقل القائل من TitleBook الى ISOName ولتعلم أخى الفاضل أنه لا يحك جلدك مثل ظفرك .. اعجبنى أنك حاولت وليس عيبا إن أخطأت فلكل منا عثراته .. واليك المرفق بعد التعديل ولكن حاول أنت أولا. غير فى شكل النموذج بما تحبه أنت وما يتلائم مع عملك تحياتى Officna - 1.accdb
    1 point
  30. السلام عليكم الف الف مبروك الترقية اخي الفاضل essam rabea وانشاء الله تكون حلقة خير ومحبة من سلسلة حلقات خبرائنا الاعزاء
    1 point
  31. اخي kaser906 يعلم الله اني مشغول جدا وحاولت معك كي اوصلك لبدايه الطريق وانا عارف انك بتكمل لذلك اعذرني على تاخر الرد لاني بالفعل والله هذه الايام مشغول جدا
    1 point
  32. أستاذ / ابا جودى بارك الله فيك وزادك علما..وقد تعلمت منك الكثير. أستاذ / محمد ابوعبد الله الله يبارك فيك ويحفظك أستاذ / SEMO.Pa3x بارك الله فيك أخى الكريم أستاذ / محمد طاهر بارك الله فيك ويسر لك كل الصعاب .. والله أنا حاسس إنى داخل إمتحان والمادة مذاكرها ومش فاكر فيها أى حاجه. يعيننى ربى أن أكون عند حسن الظن. أستاذ / ابوخليل بارك الله فيك .. وكم إستقيت العلم والمعرفة من منتدانا الكبير وأساتذته الأفاضل وكنت لا أعلم شيئا. أستاذ / omar19-3 بارك الله فيك أخى الكريم ويسر لك سبل النجاح. أستاذ / athal أعزك الله وزادك علما.
    1 point
  33. الف مبروك استاذ عصام رفع الله قدرك ونفع الله بك
    1 point
  34. اهلا عزيزي, بعد قراءة نموذج تسجيل الدخول وجدته. كود طويل زيادة عن اللزوم وغير مرتب, اعدت كتابة النموذج الخاص بتسجيل الدخول. عدل ماتحب تعديله. SecurityLevel_group.accdb
    1 point
  35. جرب الملف هذا تجد فيه المطلوب إذا كان هو المطلوب أولاً تقوم بنسخ الموديول بالكامل أي ماكرو الدوائر وماكرو حذف الدوائر وتضعهما في موديول في ملفك ثانيًا إتقوم بحذف ورقة العمل شهادات آخر العام ثم في الملف المرفق إلى ورقة العمل شهادات آخر العام واضغط كليك يمين تأتي قائمة اختر نقل أو نسخ ثم اتبع الصورة المرفقة دوائر الشهادات.rar
    1 point
  36. ألف مبروك أستاذ/عصام زادك الله من فضله وعلمه.
    1 point
  37. الف مبروك ، و الي الأمام دائما فى شتى المجالات باذن الله
    1 point
  38. ألف . ألف . مبروك أخي @essam rabea تستاهل اللقب وبجدارة
    1 point
  39. السلام عليكم مشكور على كلماتك الطيبه جرب المرفق امل ان يفي بالغرض fatoura2.rar
    1 point
  40. 1 point
  41. اخى الكريم هذا شرف كبير قد لا أستحقه وأيضا مسئولية كبيرة جدا أسأل الله أن أستطيع تحملها... كل الشكر والإحترام بارك الله فيك أخى الفاضل .. وأدام عليك الصحة والعافية شكرا جزيلا أخى العزيز فهذه الدعوة أنا فى أمس الحاجة إليها
    1 point
  42. السلام عليكم تم التعديل على المعادلات في العمودين E و F... جرب المرفق لعل فيه ما تريد... بن علية حاجي توزيع نقود كما بالبنوك (1).rar
    1 point
  43. السلام عليكم اضافة الى حل الاخ مصطفى شرف كود ان شاء الله يفي بالغرض ' اعمدة الجمع من عمود Private Const On_C As Integer = 4 ' الى عمود Private Const End_C As Integer = 7 ' مسمى عمود التكرار Private Const Colum = "C" Sub Ali_Def() Dim Lr As Long, Rw As Long Dim Col As Long Dim DelRNG As Range Application.ScreenUpdating = False Lr = Range(Colum & Rows.Count).End(xlUp).Row Set DelRNG = Range(Colum & Lr + 10) For Rw = 2 To Lr If Application.WorksheetFunction.CountIf(Range(Colum & 2 & ":" & Colum & Rw), _ Range(Colum & Rw)) > 1 Then Set DelRNG = Union(DelRNG, Range(Colum & Rw)) Else ' For Col = On_C To End_C Cells(Rw, Col) = Application.WorksheetFunction.SumIf(Range(Colum & ":" & Colum), Range(Colum & Rw), Columns(Col)) Next Col End If Next Rw DelRNG.EntireRow.Delete xlShiftUp Set DelRNG = Nothing Application.ScreenUpdating = True End Sub
    1 point
  44. الله يعطيك العافية اخي ابو ياسين ليت الأمر كان كما تصورته لهان منذ البداية الذي اقصده استخراج التواريخ المذكورة بناء على التاريخ الممرر لها من حقل EndDate وهو تاريخ ممرر حسب تقويم أم القرى مثلا انقر نقرا مزدوج في حقل EndDate وانظر الى التقويم لشهر شعبان ستجد انه 30 يوم اما التاريخ الهجري 29 يوم وهنا تكمن المشكلة في اظهار نتيجة بداية الاسبوع بين ام القرى والهجري علما ان المرفق الذي وضعته يعطي نتائج خاطئة سواء للتاريخ الميلادي او الهجري لاحظت ان بدايات الاسابيع ونهايتها خطأ بالمرفق التالي قمت بعدة محاولات وتمكنت من خلالها من اظهار نتائج صحيحة بالتاريخ الميلادي او الهجري وام القرى بتمرير دالة تاريخ أم القرى بعد ان قمت بمراجعة البرنامج الاساس للاستاذ ابو هادي وقراءة الوحدات النمطية والدالات جرب ادخل اي تاريخ بين شهر رجب 1440 و شهرشعبان وشهر رمضان 1440 وستجد الفروقات واضحة اما الشهور الاخرى والتي يكون فيها عدد الايام متساوي تكون متطابقة وهذا المرفق اضعه لعل من احد يستفيد منه شكر لك مد يد العون finel‏‏UMfirestWeekandlastweek.rar
    1 point
  45. شكرا لجهودك اخي محمد, سبق وجربت هذه الدالة لكنها فشلت لدي. تحتاج صلاحيات مسؤول, والخط لا يظهر في مجلد Fonts الا بعد الريستارت
    1 point
  46. بعد اذن الاستاذ احمد بدرة واثراء للموضوع جرب هذا الملف نسخة من 1.xlsx
    1 point
  47. السلام عليكم ورحمة الله جرب الفكرة التي وضعتها في الملف... تم إضافة شيت جديد نضع فيه الأسماء في العمود A وصورة كل اسم في العمود B (صورة بحجم الخلية تقريبا 2.3 سم × 3.3 سم) وباستعمال المعادلات والتسميات تم عمل المطلوب... بن علية حاجي جلب الصورة على اساس الأسم.xlsx
    1 point
×
×
  • اضف...

Important Information