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

اخي ابو احمد تحيه طيبه وبعد اعذرني على التأخير في الرد وذلك لاسباب مهمه منها : اولا انشغالي جدا في عملي ولو ان طلبك ابسط من البساطه نفسها وسهل جدا ولكن لم اتمكن من فتح النت ابد ثانيا كنت متمنيا عندما عملت هذا البرنامج ان يكون كما هو دون تعديلات لانني عملته حسب تصوري وحسب مضمونه ولم اكن اريد ان اغير به شيئا وكما ان الهدف من وضعه هنا للاستفاده منه وما خشيته من التعديلات التي تتطلبها ان تؤثر على مضمون البرنامج وتؤثر على من يريد استخدامه لاحقا فتاره يراه كاملا وتاره يراه به نقص وتاره يحتار في اختيار اي من الملفات التي يعتقدها الاصح وغيرها الكثير التي قد تضعفه حقا ، فما تمنيته ان شخصيا ان اكتفي بالردود وليس بالتعديلات لانه باعتقادي يؤدي الهدف منه تماما كدليل هاتف ومع العلم انني ارسلت الموضوع سابقا كدليل هاتف ولكن الاضافه التي رغبت بها هنا في هذا البرنامج هي الكيبورد داخل الفورم. ==================================================================================================================== ولكن نظرا لتواصلك معي في الردود فقد ادرجت لك في المرفق ما طلبت بخصوص خانتيين عشريتتين بعد الفاصله ===================================================================================================================== حصل هنا خطأ مني في التعبير فالمقصد هو تسعة عواميد وليست ثمانيه وهي اقصى مجال للاعمده في هذا الكود وللعلم فقط العمود التاسع الذي اظهرته انت هو خاص بعنوان الخليه الذي لايمكن الاستغناء عنه في العمل هذا لانه بنظري يحمل في مضمونه 60 او 70% من العمل لانع يستخدم في التعديل وفي المشاهده في صناديق الادخال فلا يمكن الاستغناء عنه ============================================================================================================== وارجوا ان لا تغضب مني بخصوص ردي فلا اقصد والله الا خصوصية البرنامج بمضمونه والهدف منه PHONE Book1.rar

ما هي الا سلسله من شروحاتك القيمه والمفيده اخي كيماس بارك الله فيك

اخي man شكرا لك كثيرا ============================ اخي ابو احمد ساجيبك لاحقا ان شاء الله

ابو احمد المحترم الموضوع ان شاء الله بسيط جدا جدا جدا بس ارفق لي الملف بالفورمات التي تريدها ومكان العمود الذي تريد تغيير النتيجه فيه وكل ما يتعلق من تعديلات لانني لا استطيع ان اجيبك دون رؤية الملف

بالنسبة للكود الذي استخدمه في هذا العمل لا يمكن ان اضيف اكثر من ثمانية اسطر وقد جربتها مرارا وتكرارا دون فائده فارجوا ان تقبل بالامر الواقع او تقود بالاستغناء والتبديل بين عناوين الاعمده الثمانيه

يا ابو احمد ماشاء الله عليك احلى شئ هنا انك نفذت انت ما تريد برؤيتك انت وهذا هو الهدف من طرح تلك البرامج وهي للمعرفه ومحاولة فهمها وها انت على الطريق الصحيح ان شاء الله بالتوفيق

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

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

ابو احمد هذا هو الحل لاقتراحك اما ان تأخد الملف وهو معدل بالكامل لما طلبت وهذا في حال انك لم تضيف بيانات جديده له او يوجد ايضا بالمرفق الفورم جاهز وباسم جديد فقط قم بفتح محرر الفجوال بيسك واختر IMPORT واستعدي الفورم المرسل باسم PHONEBOOK وبعدها قم بالغاء الفورم القديم المسمى ب USERFORM1 PHONE BOOK 1.rar

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

الرجاء لمن اهتم بالموضوع واستخدم البرنامج ان يقوم بما يلي : وضع الكود التالي في ListBox1_DblClick وهو Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If CheckBox6.Value = True Then CommandButton1.Visible = True ElseIf CheckBox2.Value = True Or CheckBox3.Value = True Or CheckBox4.Value = True Or CheckBox5.Value = True Then CommandButton1.Visible = False End If End Sub وهذا خاص بعدم ظهور زر امر الاتعديل في حالات التعديل من بحث الارقام فقط يظهر رز التعديل عند استخدام بحث الاسماء( ضروري جدا ) =======================================================================================

اهلا وسهلا بك اخي اياد وشكرا لك لانضمامك معنا في منتدانا الغالي

اخي ابو احمد من الصعب فتح ملف اخر مع ملفي لانني اصلا اتعامل مع اخفاء الملف اصلا واظهار الفورم فقط وعند رغبتي في استخدام الملف او التعديل عليه يوجد زر امر صغير جدا موجود في اسفل الفورم على اليسار يدخلني مباشره الى الملف وقتها استطيع استخدام ملف اكسيل اخر ولو انني لا احبذ استخدام ملفين اكسل او اكثر في نفس الوقت ولكن ان اردت ذلك فممكن ولكن باظهار الملف بالكامل اولا عليك مسح الكود بالكامل الموجود في زر الامر المذكور اعلاه وفتح this workbook وهي صفحه الاكواد الخاصه ومسح الاوامر الموجوده به بالكامل واستخدام التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Application.DisplayFullScreen = False ActiveWorkbook.Application.CommandBars("full screen").Visible = True ActiveWorkbook.Application.CommandBars("worksheet menu bar").Enabled = True ActiveWorkbook.Application.CommandBars("standard").Visible = True ActiveWorkbook.Application.CommandBars("formatting").Visible = True ActiveWorkbook.Application.CommandBars("full screen").Visible = True ActiveWorkbook.Application.DisplayStatusBar = True ActiveWorkbook.Application.DisplayFormulaBar = True End Sub وايضا هذا Private Sub Workbook_Open() Sheet1.Activate ActiveWorkbook.Application.DisplayFullScreen = False ActiveWorkbook.Application.CommandBars("full screen").Visible = False ActiveWorkbook.Application.CommandBars("worksheet menu bar").Enabled = False ActiveWorkbook.Application.CommandBars("standard").Visible = False ActiveWorkbook.Application.CommandBars("formatting").Visible = False ActiveWorkbook.Application.CommandBars("full screen").Visible = False ActiveWorkbook.Application.DisplayStatusBar = False ActiveWorkbook.Application.DisplayFormulaBar = False UserForm1.Show 0 End Sub ولكن شي اكيد انك تعلمه انه اذا فتحت ملف اخر مع ملفي انا سيظهر لك الملف الذي فتحته بخاصيات الاخفاء في الكواد اعلاه فلا تستطيع وقتها التعامل مع ملفك انت من اظهار التنسيقات مثل menu bar , وغيرها من التنسيقات. او تقوم بعدم استخاد اي من الاكواد اعلاه لتتمكن من اظهار كل التنسيقات في ملفك الجديد

في خدمتك ابو احمد

وهذا هو الموديول فقط اعمل import وسيضاف الموديول تلقائيا عندك Module1.rar

اخب ابو احمد السطرين اللذان اضفتهما هما امتداد للموديول الذي وضعته لذا قم بنسخ الموديول عندك ومن ثم سيعمل ان شاء الله ====================================================== اخي مزلزل بارك الله فيك

اخي الكريم ابو احمد تفضل المرفق الخاص بعمل تكبير + تصغير للفورم وللامانه هذا كود منقول من النت وضعته لانني استفدت منه انا شخصيا فشكرا لك لانك فتحت عيني على هذه الخاصيه PHONE BOOK.rar

اخي محمد صلاح تحيه طيبه وبعد موضوع اخفاء شريط القوائم خاص ببرنامجي فقط ولا يؤثر على اي ملف اكسل اخر لانني اتعامل معه عند فتح الملف وعند اغلاقه وعلي اي حال ارجوا منك انتبلغني عن ماحدث معك بالضبط وهنا مرفق ملف استرجاع اعدادات الاكسل سيعيد لك ان شاء الله ما فقدته استرجاع اعدادات الاكسل.rar

اخي العزيز ابو احمد الموضوع بسيط مثلا عند البحث عن اسم (احمد الرياطي)فان الاسماء تظهر قتقوم وقتها بالتحديد داخل الليست بوكس على الاسم الذي تريد التعديل عليه وهنا احمد الرياطي وعند التحديد ستجد انه ظهرت صناديق ادخال فقط لعمل هاي لايتس للاسم المختار ولا يظهر زر التعديل اما ان اردت ان تعدل الاسم احمد الرياطي فتضغط دبل كليك على الاسم سيظهر وقتها زر التعديل فتقوم بتعديل البيانات الموجوده في صناديق الادخال ومن ثم يتم المراد وجرب ابحث عن الاسم ستجده تعدل بالوضع الجديد

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

مشكور جدااخي ابواحمد

الاخوه الكرام j-o-c كيماس عزيزي اللي عارف اسمو بارك الله فيكم وجزاكم اللع خيرا على ردودكم

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

تفضلو المرفق ======================================================= تنويه : الرجاء اعتماد المرفق في المشاركه رقم 40 لانها تحتوي على اخر تعديلات البرنامج بكل جوانبها الصحيحه http://www.officena.net/ib/index.php?showtopic=34679&view=findpost&p=182322 ======================================================= PHONE BOOK.rar