احمد حمور-ابوعبدالله

مبارك عليك هذه الترقيه بالتوفيق والى الامام =================================================== خوش صوره يا استاذ احمد زمان

اخي ابو الحارث عظم الله اجركم واحس عزاؤكم ==================================== اشكرك على ردك القيم فوالله انك قلت ما في قلبي واثني على ماقلته باننا هنا نستفيد ونحاول ان نفيد كل منا حسب فراغه وكما ذكرت على حساب وقتنا

اخي ابو الحارث عظم الله اجركم انا لله وانا اليه راجعون

اخي سامر هل جربت الطريقه وهل فشلت معك لانها مبنيه على اساس الفلتره ومن ثم يكون البحث اسهل واخف ============================================= للمعلومه فقط لا يوجد شئ اسمه حل لتسريع البحث لان استعلام البيانات ياتي من الداتا وطالما ان الداتا كبيره وضخمه جدا كما تريدها انت فابشرك ( حتى مايكروسوفت لا تستطيع تسريعها لك )

اخي الكريم نارت ما شاء الله ملف غايه في الروعه من انسان رائع

اخي ابو احمد ماشاء الله عليك عمل يدل عن علم وافر

اخي ابو احمد الله يزيدك علما

اخي محمد عمل جميل

اخي سامر تفضل هذا الحل عله يفي بالغرض اولا الاختيار من الكومبو بوكس بالنسبه للمرحله ومن ثم استخدام صندوق البحث ويوجد بالمرفق شرح فيديو بسيط يبين لك ما تم انجازه Downloads.rar

تحياتي لكم احبائي الكرام الموضوع كما يطرحه اخي سامر بسيط جدا وهو استبدال القيمه 0 بالقيمه 1 حتى ياخذ بداية السلسه النصيه If Application.WorksheetFunction.search(M, q, 0) = 1 Then ولكني اضم صوتي مع صوت اخوتي ان 20000 هو رقم كبير من الداتا يعني كم احمد وكم ابراهيم وكم اشرف وكم كم يوجد من هذه الاسماء اكيد الكثير منها وبصيغه اخرى لو اردت ان تضع حرف الف سيكون بطيئا لانه سيبحث في كل اسم يبدأ بحرف الالف لذا اعطني مهله من الوقت علي اجد لك حل لموضوعك

اما انتم اعزائي اعلم تماما انني تأخرت كثيرا في استكمال الموضوع ولكن للضروره احكام وهنا تم اضافة الشرح والطريقه بالنسبه للتعديل بعدما انهينا عملية البحث التعديل.rar

اخي الكريم شكرالك بداية على كلامك الطيب بالنسبه لاستفسارك الاول فاظن انه من الصعب ان ابحث في كل الاعمده ولكن يمكن ان اخصص اكثر من صندوق لكل امر او اختار نفس الصندوق ولكن بشرط وضع معايير قبل الكتابه به مثل استخدام كومبوبكس وتكون به خيارات الرقم او الاسم او الرقم ومن خلال الاختيار يتم جلب على اساس الكتابه في الصندوق اما طلبك الثاني فيمكن هذا في الوفق التالي طريقة التعديل.rar

اخي الكريم شكرالك بداية على كلامك الطيب بالنسبه لاستفسارك الاول فاظن انه من الصعب ان ابحث في كل الاعمده ولكن يمكن ان اخصص اكثر من صندوق لكل امر او اختار نفس الصندوق ولكن بشرط وضع معايير قبل الكتابه به مثل استخدام كومبوبكس وتكون به خيارات الرقم او الاسم او الرقم ومن خلال الاختيار يتم جلب على اساس الكتابه في الصندوق

اخي وحبيبي دغيدي الم اقل لك انك متجدد دائما اشكرك على شكري وعلى ذكرك لاسماء ابنائي في شكرك

نسأل الله ان يديم الصحه عليه وعلى الجميع

والله لك وحشه يا ابو العبادي

اخي الحبيب ابو احمد اسمح لي بداية ان اشكرك على شرحك الجميل والقيم ولو انني انا يمكن اول واحد حملت المرفق ليلة امس وفكرت اكثر من نصف ساعه عن كيفية توصيل المعلومه للسائل هل يريد شرح مبسط ام شرح معمق ولم افهم وقتها ماهية فهم اخي طاهر عن الاكواد وكيف سأوصلها له . فتوقفت لارى ردود الاعضاء لعلي افهم غرض السائل بالضبط ولكن جاء حبيبنا اخي ابو احمد وماقصر وقام بالواجب وزياده ================================================================== اما بالنسبه لاستفسار اخي طاهر عن ما يلي: كما قال اخي ابو احمد حرف i هو اسم متغير اخترناه ليقوم بالوظيفه التاليه: اولا طبعا يمكن اختيار بدل هذا الحرف اي شئ تحبه مثل ان تضع اذا هنا خلصنا من مفهوم الحرف الذي يشغلك اما بالنسبه للرقم 2 فهنا يعني اننا سنبدأ في البحث من السطر الثاني يعني لو حطيت رقم 3 ممكن هذا ولكن سيتجاهل البحث من السطر الثاني وسيبدأ من السطر الثالث وهكذا ......... وهنا ايضا خلصنا من الرقم 2 طبعا هنا السطر موضح نفسه بنفسه اما ER هنا فهنا عرفها صاحب الكود بما هو موجود في حدث SHEET1 وهي مسؤوله عن عدد الصفوف من A1 الى A2 والى A3 وهكذا ........... باختصار صاحب الكود اراد ان يتوه بعض الشئ ولكن يمكنك ان تضعه في نفس سطر الكود ليصبح كمايلي For i = 2 To Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Count وسيعمل معك بنفس المبدأ وبالرجوع الى سؤالك اخي طاهر سترى انه لو حذفت هذا السطر Sheets("Sheet1").Cells(i, "A").Select سيعمل الكود معك بالشكل الطبيعي دون اخطاء ولكن بشرط مهم ان تكتفي فقط بعملية البحث دون اجراء اي تعديل لان الكود في حال بقاؤه سيحدد الخليه التي بحثت عنها ومنها سيأتي تنفيذ كود التعديل اما ان حذفته سيبحث عن الخليه المطلوبه وسيجدها ولكن لن يحددها فلن تتم وقتها عملية التعديل انا اعلم تماما ان شرحي ربما لن يكون بقوة شرح اخونا ابواحمد ولكنا نحاول ان نجتهد بعض الشئ

نسأل الله تعالى ان يعيدهم لنا سالمين

بارك الله فيك اخي يحياوي

اخي السائل اتبع هذا الرابط ففيه الشئ البسيط لعله ينفعك http://www.officena.net/ib/index.php?showtopic=30610&st=0&p=153668&fromsearch=1&#entry153668

اخي يحياوي عمل جميل وجربتها بالفعل ممتازه وتعمل بشكل سليم ولو اني اعترض معك في عنوان الموضوع لانه طالما انك اخترت نسخه احتياطيه فانها يجب ان تنقل كل شئ حتى هذه اللحظه التي عملت بها النسخه وكما انني ايضا لااستطيع عمل نسخه احتياطيه للويندوز وهي ناقصه ولان ايضا الهدف الاساسي من النسخه الاحتياطيه هو : 1- الرجوع للنسخه في اي وقت احتاجه بالبيانات التي احتفظت بالنسخه من اجلها. 2- خوفا من ضياع النسخه الاصليه من العبث فيكون لي الملف البديل ولكن والله انني اعجبت بالملف لفكرته البسيطه الجديده واتمنى ان لا تنزعج من تعليقي فهو والله من زود الحب وفقك الله لما فيه الخير والصلاح

احبتي في الله اشكر كل من سأل عني ليطمأن على صحتي فانا والحمدلله باحسن حال ولكن هي مشاغل الحياه وعلى راي اخوتنا المصريين ( لقمة العيش صعبه)

استاذنا محمد الطاهر بارك الله فيك على هذا العمل العظيم

كل الشكر للجميع وشكر خاص لاخي ابو الحارث

السلام عليكم ورحمة الله وبركاته تحيه من القلب الى احلى اعضاء واعضاء فاعلين والخبراء والمشرفين والمدراء والجميع وتمنياتي للجميع بدوام الصحه والعافيه بداية اود ان اشكر كل من قام بالرد على موضوعي دون ان اتمكن من رد المعروف لهم بالشكر والثناء على الكلمات الطيبه الشكر الجزيل والموصول للجميع دون تحديد اسماء حتى لا انسى احدا =========================================================================================== بداية سابدأ باستفسارات الاخوه الكرام وساضع الاقتباس ويليها الشرح اولا: اي تعديل الذي تقصده يا اخي الكريم ، ان كنت تقصد الصفحات الخاصه بالصلاحيات فيمكن تغييرها من صفحة الاكواد هذا في حالة انك رغبت في زيادة صفحات العمل فيمكنك اللعب بها كيفما تشاء. اما عن سؤالك الثاني فالبحث هنا مقتصر على التاريخ فقط ونتائج البحث تظهر بالتاريخ والوقت والاسم ( الا يكفي هذا ) ================================================================================== اخي الكريم حسن بداية عندما فكرت في هذا العمل وجدت انه يوجد الحاح شديد في تلك الفتره على تنفيذ شاشات دخول للبرامج وكنت من جهتي اراقب معظم اعمال الاخوه عمالقة المنتدى فوجدت انه يمكنني وضع لمسات واضافات بسيطه علها تفيد طالب هذا النوع من الاعمال وتلبي غرضه منها العمل ببساطه ليس ببرنامج اصلا ولم اقصد به الربط الكامل مع صفحات الاكسل حيث ان هدفي الاساسي تنفيذ الشاشه فقط دون التعمق فيما سيدور بعد ذلك داخل ملف الاكسيل من اعمال اخرى لم اتطرق لها اصلا في العمل والدليل ان الصفحات الموجوده بالملف لا يوجد بها ترتيب ولا تنسيقات ولا معادلات وانما اقتصرت على صفحة للداتا الخاصه بادخال كل دخول للملف وصفح اخرى للكنترول الخاص بالصلاحيات وصفحه اخبره فقط لدخول المستخدم العادي يعني باختصار يمكن ان يكون لديك برنامج كامل بكل اساليب الحمايه التي ترغب بها وبكل تصاميمك وبكل شئ انت تريده وتضيف فقط اليه هذه الشاشه كي تكون مدخل لهذا البرنامج الذي صممته انت اما عن سؤالك بخصوصو ان دخل المستخدم وعدل على بيانات ادخلها ADMIN فانه يقبل الحفظ والخروج نعم يقبل ولكنه لا يسمح للمستخدم العادي ان يدخل الى صفحة الداتا او لصفحة الكنترول اتمنى ان تكون الفكره وصلت بانه نموذج بسيط من شاشة دخول بسيطه =========================================================================== اما انت يا اخي ابواحمد فانك قد اصبت في اجابتك لك مني كل الشكر والتقدير والشكر موصول ايضا للجميع