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

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      5

    • Posts

      11,621


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      5

    • Posts

      8,723


  3. محمد حسن المحمد

    • نقاط

      4

    • Posts

      2,211


  4. عبدالله الصاري

    • نقاط

      2

    • Posts

      602


Popular Content

Showing content with the highest reputation on 11 أبر, 2018 in all areas

  1. بعد اذن اخي محمد هذه معادلة واحدة تدرج اينما تريد و تسحب نزولاُ (31 صف او اكثر) =IF(ROWS($A$1:A1)>DAY(EOMONTH(DATE($E$2,$E$1,1),0)),"",DATE($E$2,$E$1,ROWS($A$1:A1)))
    3 points
  2. إضافة رائعة أستاذي الكريم سليم ...بارك الله بكم
    2 points
  3. تم تحويل المعادلات الى اكواد كود للسيد الفاضل عبدالله باقشير حفظه الله اضغط زر استدعاء بيانات مرة واحدة ربما يأخد ثواني ثم جرب الفرز تحياتي Aziz_011.rar
    2 points
  4. السلام عليكم ورحمة الله وبركاته أخي الكريم ناصر سأضع بين يديك الملف المطلوب علماً أن الملف الأساسي للأستاذ خالد طه جزاه الله خيراً وقد أجريت عليه بعض التعديلات والسلام عليكم جدول الشهر مع التعديل.rar
    2 points
  5. إخوتي الفضلاء التزاما بقواعد المنتدي فضلت إنشاء موضوع جديد لطرح الفكرة ، لعملية البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض. حيث طرح السؤال و الطلب ضمن مشاركة احد الاخوة في موضوع يتعلق بالبحث ، بالاضافة لطرح هذا الطلب اكثر من مرة في مواضيع مختلفة . حاولت جعل الكودات بسيطة و قابلة للتعديل حسب التطبيقات التي سيستخدم بها منعا لحدوث اشكالات عند النقل و التطبيق . هناك امور لا بد من مراعاتها عند التعامل مع الفكرة و بعضها رئيسي ومهم لا تنجح الامور الا به ، و هي كما يلي : · نص البحث يكتب ضمن مربع النص txtSearch · البحث و الفلترة تتم في نفس النموذج و هو نموذج مستمر و ليس من خلال نموذج فرعي او مربع قائمة · البحث سيتم ضمن ثلاثة حقول من الجدول tblCustomer ، وهي CompanyName و City و Address يمكن زيادتها حسب الحاجة و مستلزمات التطبيق · مربعات النص في النموذج التي تظهر محتويات الحقول هي غير منضمة unbound · مصدر عنصر التحكم control source للحقول يثبت لكل مربع نص ضمن قائمة الخيارات مثلا (=[CompanyName]) · مربعات النص الثلاثة يجب ان يكون تنسيق النص فيها text format هو (Rich Text) ، وهذه نقطة مهمة حتى يقبل مربع النص كود تغيير خصائص أجزاء النص من حيث اللون و الخط العريض . · كود البحث و الفلترة يكون خلف حدث on change – عند التغيير لمربع النص txtSearch · البحث و الفلترة يفترض في فكرتنا ان تتم عند كل حرف ، وبعد انتهاء الفلترة يعود مؤشر النص ليكتب نص ( حرف ) الفلترة الجديد ، فيصبح مربع النص يتعامل من حرف واحد فقط ، وبالتالي سنضطر لاستخدام خاصية SelStart لتحدد نقطة البداية للنص أو موضع نقطة الإدراج لنتمكن من كتابة اكثر من حرف . · بعد التطبيق اعترضتني مشكلة عدم قبول مربع النص للمسافة بين الاحرف spacebar ، نتيجة استخدام خاصية SelStart و بالتالي كان لا بد من إجبار مربع النص على قبول المسافة بين الاحرف ، و تم ذلك و الحمد لله باستخدام كود في حدث on Key up . · ضمن الكود تم تحديد خاصيتين للخط و هما اللون الاحمر و الخط العريض وذلك لتمييز مكانها ضمن نتائج البحث و الفلترة . · كل حرف يتم كتابته في مربع النص txtSearch تتم بموجبه و مباشرة فلترة النتائج ضمن مربعات النص الثلاثة و تمييز الحرف باللون الاحمر العريض. · بعد الفلترة يتم تغيير مصدر عنصر التحكم عبر الكود باسناد القيم لمربعات النص الثلاثة في النموذج محملة بكود تغيير خصائص الخط لكل حرف تمت كتابته في مربع النص txtSearch · بالضغط على مربع النص txtSearch يتم افراغ مربع النص مما كتب به سابقا لبداية بحث جديد ، كما تظهر كافة سجلات الجدول في مربعات نص النموذج. راجيا من الله عز و جل ان يكون التطبيق وافيا و محققا لحاجات الاخوة ، و ان يكون فيه النفع لهم في تطبيقاتهم . و الله من وراء القصد ... NA_Highlight_Search_results_while_typing.accdb
    1 point
  6. جزاكم الله خيرا اخى الحبيب نفع الله بكم وجعله فى ميزان حسناتك
    1 point
  7. تفضل أخى محمود فلتر.xlsm
    1 point
  8. اتفصل أخى الكريم المرفق به المطلوب إن شاء الله ويمكنكم تغيير نطاق الطباعة كما تشاء تقبل تحياتى قائمة.xlsm
    1 point
  9. لو فى خلية واحدة ممكن تقولى رقم الخلية مثلا B10 ? ولكم جزيل الشكر أو لو ممكن ترسل ملفك
    1 point
  10. هل مكان الساعة داخل خلية معينة لو ممكن تقولى بالضبط فى أى خلية تريد ان تضع الساعة ؟
    1 point
  11. ضع هذا الكود فى حدث الورقة فى ملفك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 2 Then If Target = "" Then Cells(Target.Row, Target.Column + 1) = "" Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 1) = Date Cells(Target.Row, Target.Column + 2) = Time End If End If End Sub
    1 point
  12. السلام عليكم وبعد اذن الاستاذ عبدالله العمل يحتاج لجدولين 1- رئيس ويشتمل على رقم الموظف واسمه 2- فرعي ويشتمل على رقم الموظف وحقل لرقم المرشح العلاقة بين الجدولين واحد لمتعدد مفاتيح الجداول : الجدول الرئيس : رقم الموظف مفتاح الجدول الفرعي : كلا الحقلين مفاتيح
    1 point
  13. شكرا على دعواتك الطيبات ,, ولك بالمثل
    1 point
  14. احسن اخي الكريم ابو خليل كنت اعمل على الموضوع وسبقتني في ميزان الحسنات جزاكم الله الف خير على سرعة الاجابة للاخوة الكرام
    1 point
  15. بارك الله فيك أستاذ سليم وهذا كودين للوقت والتاريخ بطريقتين مختلفتين كود ثابت للوقت والتاريخ.xlsm
    1 point
  16. في اي خلية هذا المعادلة =TEXT(TODAY(),"d/m/yyy")&" "&TEXT(NOW(),"hh:mm:ss")
    1 point
  17. اخي ابراهيم جزاك الله خير جزاء على هذا المجهود
    1 point
×
×
  • اضف...

Important Information