اذهب الي المحتوي
أوفيسنا

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      57

    • Posts

      11643


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      8

    • Posts

      7221


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      4

    • Posts

      9998


  4. أبو إبراهيم الغامدي

Popular Content

Showing content with the highest reputation on 06/21/19 in all areas

  1. الأمر ليس بالصعب طالما انك تريد هذا تفضل الملف بدون كلمة فقط تفقيط الدرجات.xls
    3 points
  2. وعليكم السلام عليك اخى الكريم رفع الملف فعموما هذا كود اخر لإثراء الموضوع بعد اذن الأستاذ ابو عيد . تفقيط الدرجات.xls
    3 points
  3. يثبت عدم عجز الاكسس كما يتخيل البعض اعجبنى جدا جدا جدا احببت مشاركتكم اياه https://github.com/krishKM/Modern-UI-Components-for-VBA
    3 points
  4. المعادلات تعمل بشكل دقيق ولكن عليك وضع علامة الصح كما بالصورة
    3 points
  5. 3 points
  6. وعليكم السلام -تفضل حساب التاريخ تلقائى.xlsx
    2 points
  7. لضمان هذه الإشكالية من الوقوع؛ أن نقوم بإعادة الجداول إلى الوضع المعتاد قبل ضغط البيانات وإصلاحها..
    2 points
  8. تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf
    2 points
  9. تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm
    2 points
  10. وعليكم السلام كان عليك رفع ملف من البداية لعمل اللازم عليه تفضل كود تثبيت التاريخ تلقائيا.xlsm
    2 points
  11. وعليكم السلام هذا من صميم عملي كمعلم اكتب في الخلايا الصفراء ولاحظ النتيجة تفضل الدرجات والترتيب.xlsx
    1 point
  12. يعنى ايه غير متاح ؟!!!!! الملف موجود بالفعل فى المشاركة الأولى وتم تحميله ويعمل بكفاءة عالية فكل هذه صور بالفعل من داخل الملف بعد تحميله -فاذا كان هناك مشكلة فمن عندك عليك تحديث برنامج فك الضغط لديك
    1 point
  13. الف مبروك استاذ كاسر على الترقية لدرجة خبير وتستاهل كل خير أعانك الله ونسأل الله لك التوفيق
    1 point
  14. الف مبروك استاذ كاسر على الترقية لدرجة خبير
    1 point
  15. الله يبارك فيك استاذنا 🌹 شهادة اعتز فيها من احد عمالقة الاكسس شكراً لك استاذي الكريم 🌹 الله يبارك فيك شكرا لك استاذي🌹 الله يبارك فيك شكرا لك 🌹 الل يبارك فيك شكرا لك 🌹 الله يبارك فيك شكرا لك 🌹 الله يبارك فيك شكرا لك استاذ🌹 الله يبارك فيك شكرا لك استاذي 🌹 بالنسبة للمشاركة هناك موضوع كنت ناوي اطرحه بالمنتدى وأشير فيه لشخصكم الكريم لانك اكثر شخص( ولا أقلل من بقية الاساتذة الكرام ) ضالع في ما انوي طرحه لكني ترددت على اساس ممكن تكون مشغول شكرا لك أخي الكريم 🌹 أساتذتي اخواني الكرام ما أنا إلا اصغر وأجهل طالب للتعلم فبكم وبدعمكم وتوجيهاتكم أرتقي وأتقدم شكرا لإدارة المنتدى على هذه الثقة والشهادة 🌹🌹
    1 point
  16. شكرا جزيلا استاذ @ابا جودى و استاذ @محمد احمد لطفى احسنت بارك الله بكم هذا المنتدى المفضل لدي بسب امثالكم من الاناس الطيبين ممكن الشرح استاذ محمد احمد لطفي
    1 point
  17. طبعا فى المقام الاول والاخير انا لا اعارض رأى اساتذتى العظماء ولكن انا انقل تجربتى الشخصية فقط
    1 point
  18. فعلا أستاذ جعفر.. مبارك عليك أستاذ كاسر شارة الخبراء.. أتمنى أن يكون لى معك مشاركات فى المستقبل
    1 point
  19. الف مبروك استاذ@kaser906 والى الامام دائما بان الله
    1 point
  20. وعليكم السلام 🙂 انقر على الكائن بالفأرة اليمين ، ثم اختار تحويل الى جعفر
    1 point
  21. مبارك اخي @kaser906 تستحق هذا اللقب .... اعانك الله وسددك
    1 point
  22. بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx
    1 point
  23. ممتاز جدا و فعلا مفيد شكرا استاذ عبد اللطيف
    1 point
  24. جزاكم الله خيراً إخوتي الكرام على مروركم العطر .. تقبلوا تحياتي العطرة والسلام عليكم.
    1 point
  25. وعليكم السلام -نورت المنتدى جزاك الله كل خير واحسنت بما انه اول برنامج لك
    1 point
  26. من فضلك ضع النتائج المطلوبة على الملف
    1 point
  27. احسنت استاذ بن علية كود ممتاز وبعد اذن حضرتك وزيادة فى اثراء الموضوع -هذا كود اخر للحل Option Explicit Sub Inqwayry7() Dim Q1, Q2, q3, FR, TR Dim S_sh As Worksheet: Set S_sh = Sheets("ÇáíæãíÉ") Dim T_sh As Worksheet: Set T_sh = Sheets("ßÔÝ ÇáÍÓÇÈ") Range("A7:j1000").ClearContents Q1 = Range("b2") Q2 = Range("b3") q3 = Range("D2") TR = 7 If Range("b2").Value > Range("b3").Value Then MsgBox "åäÇß ÎØÃ Ýí ÊÑÊíÈ ÇáÊÇÑíÎ", vbExclamation, "ÎØÃ" Exit Sub End If With S_sh For FR = 7 To 3333 If .Cells(FR, 1) >= Q1 And .Cells(FR, 1) <= Q2 And .Cells(FR, 2) = q3 Then Cells(TR, 1) = .Cells(FR, 1) Cells(TR, 2) = .Cells(FR, 2) Cells(TR, 3) = .Cells(FR, 3) Cells(TR, 4) = .Cells(FR, 4) Cells(TR, 5) = .Cells(FR, 5) Cells(TR, 6) = .Cells(FR, 6) Cells(TR, 7) = .Cells(FR, 7) Cells(TR, 8) = .Cells(FR, 8) Cells(TR, 9) = .Cells(FR, 9) Cells(TR, 10) = .Cells(FR, 10) TR = TR + 1 End If Next FR End With End Sub ولكن بالتأكيد كود حضرتك الأفضل فهو كود صغير وبسيط وادى الغرض بكل كفاءة كشف حساب بين تاريخين.xlsm
    1 point
  28. PM السلام عليكم ورحمه الله وبركاته كتير من الاحيان بنبعت رسائل وبنكون بنستنى الرد على احر من الجمررر وما بنعرف الي وصلتوا الرساله نايم والا صاحي ؟؟ شافها والا ما شافها ؟؟ بدو يرد علينا والا لا ؟؟ هالطريقه علشان اول ما يفتح مسلتم الرساله رسالتك توصلك رساله انو تم تسليم الرساله وفتحها من الجهه المرسله اليه طبعا مستلم الرساله بس يفتحها بيطلع لو خيار .... عادي يوصلك خبر هوه فتح الرساله والا لا في حال وافق بيوصلك الاشعااار .... طبعا الشرح على Microsoft Outlook 2007 نبدى الصوور والشرح في حال كان بدنا الامر يتم على جميـــــع الرسائل الي رح نبعتها بنروح على أدوات بتفتح لنا قائمه منسدله بنختار منها خيارات وبتفتح لنا الصوره التاليه الي بنختار منها خيارات البريد بعدها بنختار خيارات التعقب وبنحدد خيار ايصال بالقراءه طبعا متل مو ملاحظين في خيار تاني اسمو ايصال بالتسليم << هاد الخيار ببعتلك رساله تقولك انو الرساله استقبلها "وصلت" على ايميل المرسل اليه فقط لا غير طبعا هون بنكون خلصنا الشرح علشان يتطبق الامر على كل الايميل الي رح تبعتوها من الايميل في حال كنتوا بدكم تطبقوا الخيار على رساله وحده فقط بنضغط على جديد لارسال رساله وبنختار خيارات متل مو موضح بالصوره وبعدين بطلع لنا الخيار وبنحددوا متل مو موضح بالصوره
    1 point
  29. وعليكم السلام-تفضل تنسيق شرطى.xlsx
    1 point
  30. بارك الله فيك وجزاك الله كل خير
    1 point
  31. تفضل اخى الكريم حسن -تم عمل قائمة منسدلة بأسماء العملاء ثم بعد ذلك عمل معادلات مصفوفة بمجرد اختيار اسم العميل سوف يتم جلب كل بياناته ولكن كان لزاما عليك من البداية رفع مشاركة مستقلة بما تريد فقد تم فصل مشاركتك ووضعها بمشاركة جديدة مستقلة Book1.xlsx
    1 point
  32. وعليكم السلام التنسيق الشرطى.xlsx
    1 point
  33. بارك الله فيك وجزاك الله كل خير
    1 point
  34. بارك الله فيكم جميعا كلها حلول ممتازة جزاكم الله كل خير وكل عام وانتم بخير
    1 point
  35. بارك الله فيك اخى الكريم والحمد لله الذى بنعمته تتم الصالحات
    1 point
  36. تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط فعليك بتغيير النطاق بالكود لما تريد Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintOut End Sub
    1 point
  37. الف الف مبروك وتستاهل كل خير اللهم ربي يحفظك ويمن عليك بالصحة والعافية يارب
    1 point
  38. ألف مبروك أخي @ابا جودى تستحق أكثر من ذلك طيبة و خلق و علم جعلك الله ممن ينتفع بهم إن شاء الله
    1 point
  39. مبارك أبا جودي تستحق كل الاحترام والتقدير فطيبة قلبك ظاهرة في مشاركاتك بالتوفيق
    1 point
  40. ابا جودى @ نبارك لكم الترقية ومنها للأعلى إن شاء الله
    1 point
  41. وعليكم السلام تفضل Att Apr 2019.xlsx
    1 point
  42. اخي الحبيب / المهندس ابا جودي اولا : الف مبروك وتستاهلها ثانيا لو كنت اطلعت علي موضوع "نطق بالعربي بجد" وعند اخر مشاركة كنت عرفت اني توقعت وقلت لو كان بايدي كنت جعلتك خبيرا وربنا حقق مرادي وتوقعاتي " موارد بشرية بقي" الف الف الف مبروك
    1 point
  43. الف مبروووووووك استاذنا الجميل والى الامام دائما ان شاء الله
    1 point
  44. وعليكم السلام ورحمة الله وبركاته 🙂 ويصدق عليه الحديث الشريف : من عمل بما يعلم أورثه الله علم ما لم يعلم 🙂 في الواقع احنا كمنتدى نهنئ انفسنا ، قبل ان نهنئ @ابا جودى 🙂 جعفر
    1 point
  45. اهلا بك اخى الكريم فى المنتدى الرابط موجود فى اول مشاركة من الموضوع-تفضل http://www.mediafire.com/file/iwmlyw13zdl/بيانات+طبية.rar
    1 point
×
×
  • اضف...

Important Information