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

حمادة عمر

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

    6,205
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    101

كل منشورات العضو حمادة عمر

  1. السلام عليكم الاخ الحبيب / جلال محمد بارك الله فيك تشجيعك الدائم لي يعطيني مزيدا من الثقة ... جعله الله في ميزان حسناتك جزاك الله خيرا
  2. السلام عليكم الاخ الكريم / abdoullah بارك الله فيك وشكرا جزيلا لك علي كلماتك الرائعة وننتظر وضعك للرابط المذكور لتعم الفائدة علي الجميع والافضل ان تقوم بوضعه بموضوع جديد لتزيد الفائدة ويطلع عليه الجميع جزاك الله خيرا
  3. السلام عليكم الاخ العزيز / yousef_kaf بارك الله فيك وتشجيعك لي يشجعني اكثر واكثر جزاك الله خيرا
  4. السلام عليكم الاخ الكريم / alsawy_hassan مرور كريم كالنسيم العليل بارك الله فيك وجزاك الله خيرا
  5. السلام عليكم الاخ الكريم / إبراهيم ابوليله بارك الله فيك فاضافاتك في الموضوع لها كل التقدير والاحترام جعله الله في ميزان حسناتك وجعلك دائما في عون الآخرين زادك الله من علمه ولا اجد ما ارد به علي كلماتك الرائعة الا ان اقول لك جزاك الله خيرا
  6. السلام عليكم الاخ الكريم / سعيد بيرم جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub ولعمل حماية للمعادلات واظهار رسالة عندما يريد المستخدم التعديل قم بوضع الكود التالي في النطاق الذي تريده Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("c3:p10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء" End If End sub جزاك الله خيرا
  7. طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل (((( تابع مرفقات / الدرس الرابع )))) شاهد النتيجة وبعض الاضافات لعمل الفورم.rar ارجو من الله ان اكون قد وفقت فيما تم تقديمه من شرح وان يكون كل شئ واااضح وبطريقة اعجبتكم وانا علي استعداد تام لشرح اي جزء مرة اخري
  8. طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل بالطبع هناك اكواد كثيرة لعمل شاشة الادخال وكذلك الاستعلام ولكني قصدت اختيار اسهل هذه الاكواد لعمل ذلك لتكون اسهل في توصيل المعلومة وكذلك اسهل عند التطبيق وارجو من الله ان اكون قد وفقت في عمل ذلك (((( الدرس الرابع )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء في هذا الدرس سنتعرف علي طريقة عمل زر للتعديل بعد عمل استعلام عن الاسم او الرقم المطلوب وذلك في نفس الفورم الذي قمنا بتصميمه وذلك للبيانات السابق تسجيلها في صفحة البيانات وذلك عن طريق استخدام زر للتعديل ... مع وضع اكواده ... وشرح الكود سطر سطر كما تعودنا واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري و القادم ليس درسا ولكن ساقوم بارفاق بعض الملفات التي توضح شرح بسيط لاستخدام الخلايا في الاكواد وهو جزء بسيط جدا ( ان شاء الله ) واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 2 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة واضافة بسيطة لكفاءة عمل الشاشة بدون اخطاء جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال واستعلام وتعديل 4.rar شرح طريقة عمل زر تعديل.rar تم ارفاق المرفق الثالث بالمشاركة التالية والخاص بمشاهدة النتيجة واضافة بسيطة لكفاءة عمل الشاشة بدون اخطاء .... لعدم امكانية رفعه في هذه المشاركة
  9. السلام عليكم الاخ الكريم / إبراهيم ابوليله بارك الله فيك طريقة جميله لعمل الاستعلام ولقد تزين الموضوع بمشاركتك فيه وزادك الله من علمه ومن فضله ولكني اخي الكريم احب ان استخدم اسهل الاكواد في الاستخدام ليسهل تطبيقها والكود الذي استخدمتع انت راائع وبسيط وتوظيف رائع لدالة match شكرا للملف الرائع جزاك الله خيرا
  10. السلام عليكم الاخ الكريم / جوده بارك الله فيك ولعمل ذلك ايضا تستخدم نفس الطريقة السابق ذكرها ولكن بتعديل بسيط وهو ان تقوم باختيار كل شيتات الاكسيل في الملف المفتوح شاهد المرفق ( فيديو ) جزاك الله خيرا رأس وتذييل الصفحة.rar
  11. السلام عليكم الاخ العزيز / الشهابي بارك الله فيك وجزيل شكري علي كلماتك الرائعة التي لا اجد ما ارد عليك بها مرورك اسعدني وشرفني وشرف الموضوع جزاك الله خيرا
  12. السلام عليكم الاستاذ القدير / mahmoud-lee ((( عميــــــــــــــــــد المعـــــــــــــــــــــادلات ))) هو لقب تستحقة عن جدارة بكل تأكيد بقا ياراجل كنت عاوز تحرمنا من كل هذه الروائع دي ... حرام عليك استاذنا انت بحق وبالصوت العالي ((( عميــــــــــــــــــد المعـــــــــــــــــــــادلات ))) جزاك الله خيرا
  13. السلام عليكم الاستاذ والاخ العزيز / سعيد بيرم بارك الله فيك وانت استاذنا لا تريد اذن بل تأمر دائما وان شاء الله نري احد روائعك وبتدخل الاستاذ القدير / عبد الله باقشير ... جزاه الله خيرا سيكون ( ان شاء الله ) افضل برنامج وبالفعل اخي هذا الرجل ... احببته في الله بسرعة رهيبة ... لا اعلم لماذا ... ولا اعلم متي ادام الله المحبه والوفاق جزاك الله خيرا
  14. السلام عليكم الاخ الكريم / عمرو_ واضح ان البرنامج به شغل رااائع وهائل وبرنامج بالفعل معمول عليه وبه مجهود كبير ويا أخي لقد شوقتنا لرؤية البرنامج ... في الانتظار الله معك ويقويك جزاك الله خيرا
  15. السلام عليكم الاخ الكريم / farag barguot سعيد جدا بأن تكون اول مشاركة لك في منتدانا في موضوع لي ارجو ان تكون قي استفدت من الموضوع جزاك الله خيرا
  16. السلام عليكم الاخ الكريم /abouelhassan مرورك اسعدني وشرفني جزاك الله خيرا اخي الكريم
  17. السلام عليكم الاخ الكريم / krimo145 تفضل اخي الرابط التالي به ما تريد دورة شرح الفيجول بيسك للتطبيقات VBA http://www.officena.net/ib/index.php?showtopic=39323 جزاك الله خيرا
  18. السلام عليكم الاستاذ والاخ العزيز / سعيد بيرم اعتذر لك عن التأخير اليك الملف المرفق به الشاشة الرئيسية المطلوبة وفي انتظار اي طلب للتعديل عليها ولكن بعد تدخل العلامة القدير الكبير / عبد الله باقشير ... جزاه الله خيرا سيكون اي حل او اي طريقة بجانبه كالنملة بجوار الجبل فأرجو من الله ان يفي ذلك بطلبك جزاك الله خيرا
  19. السلام عليكم الاخ الكريم / halimnacer قيامك بعمل اختصار للبرنامج لايؤثر علي البرنامج وعندما تحفظ عليه يحفظ التغييرات التي تمت بالملف الاساسي جزاك الله خيرا
  20. رائع كعادتك استاذ الحبيب / أبو حنين جزاك الله خيرا
  21. السلام عليكم الاخ الكريم / rofa_1473 بارك الله فيك جزاك الله خيرا
  22. السلام عليكم الاخ الكريم / احمد مجدى بارك الله فيك اخي الكريم بالنسبة لموضوع ترتيب العمل بالانتقال بالانتر الي الاسفل فالاسفل في نفس العمود !! فان ذلك من شأنه تغيير التصميم والاكواد المترتبة علي ذلك من البداية حيث تعتمد في الاساس علي التصميم بأن يكون تسكست بوكس 1 ثم اسفله تكست بوكس 2 ... الخ اما الموجود فهو تكست بوكس 1 وبجوارة تكست بوكس 2 ... الخ ولذلك فينتقل المؤشر الي العمود المجاور ... وبالنسبة للتعديلات الاخري ... ( ان شاء الله سارفقها لك ) ولكن انتظرني ليوم او اثنين للانتهاء من موضوع آخر جزاك الله خيرا
  23. السلام عليكم الاخ الكريم / أبو محمد أشرف بارك الله فيك شرفني مرورك الكريم جزاك الله خيرا
  24. السلام عليكم الاخ الكريم / محمود رواس بارك الله فيك اخي الكريم ومعجب جدا بحب افادتك للآخرين بكل معلومة فهذا ما تعلمناه جميعا في هذا الصرح والشكر موصول للاخ الكريم / أحمد الفاروق علي هذا الشرح الجميل جزاك الله خيرا
×
×
  • اضف...

Important Information