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

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

  1. د.كاف يار

    د.كاف يار

    الخبراء


    • نقاط

      5

    • Posts

      1,681


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      5

    • Posts

      8,723


  3. ابوآمنة

    ابوآمنة

    الخبراء


    • نقاط

      3

    • Posts

      713


  4. famokad

    famokad

    عضو جديد 01


    • نقاط

      3

    • Posts

      39


Popular Content

Showing content with the highest reputation on 01 نوف, 2020 in all areas

  1. يهدف هذا البرنامج الى مراقبة ومتابعة المستندات المؤرشفة يدويا في ملفات بوكس والتي غالبا ما تكون مؤرشفة حسب تسلسل النظام وكل ملف يختص بنوع واحد من المستندات رابط التنزيل http://www.mediafire.com/file/8zf5d5zr89df56r/%D8%A8%D8%B1%D8%A7%D9%85%D8%AC_%D9%85%D8%AA%D8%A7%D8%A8%D8%B9%D8%A9.rar/file رابط التنزيل http://www.mediafire.com/file/8zf5d5zr89df56r/%D8%A8%D8%B1%D8%A7%D9%85%D8%AC_%D9%85%D8%AA%D8%A7%D8%A8%D8%B9%D8%A9.rar/file
    3 points
  2. جرب تسمية الشيتات داخل الكود كهذا الجزء If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then Sheets("الرئيسية").Activate End If وهذا ايضا If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Sheets("فاتورة").Select End If
    2 points
  3. تفضل هذه المشاركة من قبلي اخي الكريم Database1.accdb
    2 points
  4. تعديل =SUMIFS($D$8:$D$12,$B$8:$B$12,B8,$E$8:$E$12,E8)
    2 points
  5. يسرني ويسعدني أن أضع بين يديكم برنامج التدريب الالكتروني قمت بتصميمه من الصفر أخذ مني جهد ووقت كبير . استفدت من خبراء هذا المنتدى المبارك. لي طلب أن تدعو لوالدي وجميع مرضى المسلمين والمسلمات بالشفاء العاجل. هذا المشروع أضعه صدقة جارية لكل طالب علم ، و كل مشارك في هذا المنتدى . أسأل الله أن يتقبل منا ومنكم صالح الأعمال . ولا تنسونا من دعواتكم الصادقة في ظهر الغيب . اترك البرنامج لكم لتكتشفوا أسراره 😄 اضف مرفقات موجوده ProTraining20.zip
    1 point
  6. شكرا لك سيدي العزيز وجعلها الله في ميزان حسناتك
    1 point
  7. اعرض الملف برنامج كاشير اهداء للمنتدي علي مقدرتي و رايكم يهمني واقتراحاتكم انا لا اعلم شي عن برمجه ولا عن برنامج اكسيل ولا دوال ولا حتي معادلات الغايه ان اعمل ملف للمحل يخلي الي واقف يعرف اسعار المنتجات دخلت المنتدي بالصدفه ووصلت لمرحله البرنامج ف ٢٢ يوم فقط طبعا حبيت الموضوع جدا وطورت فالبرنامج ساعدني اخواني واساتذتي فالمنتدي والفضل لله ثم لكم جميعا اعترف واعترف ومتيقن اني رخم بالرد لكن والله والله غصب عني اعزروني جميعا علي فكره الي عايز يعمل حاجه بيسعي ليها ويعملها ويجتهد المهم يوصل للمجال الي يعطيه المعلومه الصح والي وجدتها عندكم الشكر كل الشكر لجميع الأعضاء المحترمين جدا طبعا زوقي فالصور والالوان مش هيعجبكم لكن ف مقدور كل شخص التعديل والتحسين للبرنامج هو في بعض العيوب لكن الي يقدر يطور يشرفني طبعا و ينشره للجميع الملف في بعض اكواد من اليوتيوب للاستاز عماد غازي و غيره من المحترمين شكرا للجميع واسف جدا للاطاله صاحب الملف Kabo223412 تمت الاضافه 02 نوف, 2020 الاقسام قسم الإكسيل
    1 point
  8. بيض الله وجهك دنيا اخرة يا رب هذا هو المطلوب بالضبط اما بخصوص الشق الاول الا يمكن ايجاد طريقة ام لا شكرا لكم
    1 point
  9. هناك بعض الاكواد تختلف بتحويلها فى الاكسل عن الاكسس وقد تحتاج الى تدخل لتعديلها والله اعلم ولكن بوجه عام اعتقد لابد من بدء التصميمات خطوة بخطوة على الاكسس هذا من وجهة نظري والله اعلم فلست متعمقا بالاكسل وقد اكون مخطئ فالاولى متابعة الرد من اساتذتى الكرام
    1 point
  10. مرحبا ابا جودى لك وحشه يا رجل ، افتقدناك .
    1 point
  11. ان شاء الله تعالى ممكن ذلك ارفق القاعدة
    1 point
  12. نعم بحسب التسلسل المنطقي لتنفيذ الاوامر ترتب تحت بعضها البعض
    1 point
  13. kanory >>>>>> اشكرك على بجد على اهتمامك و ردك ... على هذا اي أكواد مشتركة في حدث تكتب تحت بعض هكذا ؟؟
    1 point
  14. نعم عادي مافيها شيئ DoCmd.Close acForm, "AT" DoCmd.Maximize
    1 point
  15. بارك الله فيك استاذ حسين _ بعد اذنك ولإثراء الموضوع .. على ان يكون ايضاً الكود بهذا الشكل Private Sub CommandButton1_Click() If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Or UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Application.Visible = True UserForm1.Hide If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then Sheet5.Select End If If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Sheet1.Select End If Else MsgBox "بـرجاء مراجـعـة اســم المستخدم وكلمـة المـرور", , "Error" Label4.Caption = Label4.Caption - 1 If Label4.Caption = 0 Then ThisWorkbook.save Application.Quit End If End If End Sub شيت فاتورة مبيعات .xlsm
    1 point
  16. بعض التعديل على الملف 1- بتم العمل على الملف حسب الصور الملف مرفق Kabo_1.xlsm
    1 point
  17. اخي الكريم تفضل هذا المثال اخي الكريم لقد شرحت فيه جميع الاجراءات في داخل الكود المثال سهل للغاية MyImage.zip
    1 point
  18. السلام عليكم تفضل الحل بالمعادلات 2مثال.xlsx
    1 point
  19. شكرا جزيلا ينقص معيار التارخ بارك الله فيك لقد شكرته و دعوت له بالبركه يا أخي أفضل من الإعجاب و عدم الإعجاب ليس إلا لأنني لم أنتبه لعلامة الإعجاب
    1 point
  20. جرب هذا الملف تم ادراج يوزر جديد لتنفيذ الكود و عليك تنسيقه بالألوان التي تريد Kabo.xlsm
    1 point
  21. لا أعلم ماذا تقصده بــــ (اكسل اون لاين) لكن هذا نموذج عما تريده (اذا كنت قد فهمت عليك السؤال) يمكن اخفاء جدول كلمات السر والاسماء والدرجات ثم عمل حماية للشيت حتى لا يستطبع احد الاظلاع علبه او بطربقة ثانية وضعة في شيت اخر مخفي (veryHidden) وكل طالب يعرف الباسوورد الخاص به Yazzed.xlsx
    1 point
  22. اها اعتذر عن سوء الفهم تفضل طلبك ترقيم حسب الشهر.mdb
    1 point
  23. تفضل اخي الكريم سيتم اعادة الترقيم لكل شهر ترقيم حسب الشهر.mdb
    1 point
  24. وعليكم السلام ورحمة الله وبركاته اخي الكريم من المهم قراءة قواعد المشاركة والتقيد بما جاء فيها .. ومنها : 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. سيتم غلق الموضوع .. ويمكنك انشاء موضوعك من جديد مراعيا قواعد المشاركة
    1 point
  25. اليا لم افكر فيه ... يستحق التفكير فية لكن استخدم التوثيق كما في الصور
    1 point
×
×
  • اضف...

Important Information