حمادة عمر

شكرا لك

السلام عليكم هذا الخط كان يعمل معي بطريقة الاستاذ القدير / المهاجر ولم يعد موجودا هل اقوم بازالة نسخة الاوفيس واضافتها مرة اخري ام ان هناك ملف للخط يمكن اضافته دون عمل ذلك جزاكم الله خيرا

السلام عليكم الاستاذ القدير / تومي محمد طالت غيبتك عنا ارجو ان تكون غيبتك لخير ان شاء الله جزاك الله خيراً

السلام عليكم الاستاذ والاخ الكريم / احمد عبد الناصر ماشاء الله عليك دائما الي الامام جزاك الله خيراً

السلام عليكم الاستاذ القدير / طارق محمود ابداع ما بعده ابداع دائماً نتعلم منك المزيد بارك الله فيك وزادك من علمه جزاك الله خيراً

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

السلام عليكم الاخ الكريم / أبو محمد أشرف لا اعرف ما هو السبب في عدم عمل ملفات الفيديو لديك ولكني اعتقد ان ذلك يتعلق بنسخة الويندوز لديك ولكن اولاً حاول تجربة هذه الملفات الفيديو علي جهاز آخر وشاهد النتيجة حيث قمت بتجحربتها اكثر من مرة علي اكثر من جهاز وكانت تعمل بكفاءة جزاك الله خيراً

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

الاستاذ القدير الرائع / ابو احمد سنظل نسير وراء كل مسشاركاتك لنتعلم منها المزيد والمزيد حيث انها فكرة عن جد جميله ورائعة جزاك الله خيراً

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

الاستاذ / بن عليه بارك الله فيك وجزاك الله خيرا

السلام عليكم الاخ الكريم / احمد مجدى تفضل المرفق به ايصال استلام النقدية ( منتهي بالاكواد كما طلبت ) جرب واي طلبات في انتظارك ولكن لي استفسار بخصوص خانة المتبقي كيف تكتب ام انها ناتج لطرح شئ من شئ وهل ترحل ام لا وفي انتظار ردك جزاك الله خيراً الايصالات 2+.rar

السلام عليكم الاستاذ والاخ الكريم / احمد عبد الناصر تعديل رااائع علي الكود ويعمل بنجاح وبكفاءة عاليه جزاك الله خيرا

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

السلام عليكم الاخ الكريم / أبو محمد أشرف علي ما أظن ان ذلك بسبب اعدادات اللغة لديك في الاكسيل او في نسخة الويندوز ومن الافضل ارفاق ملف لمعرفة هل يعمل بهذا الشكل عند الجميع ام عندك انت فقط او قم بتجربته نفس الملف علي جهاز آخر جزاك الله خيرا

السلام عليكم الاخوة الكرام طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة هذا ليس درسا كاملاً ولكنها معلومة خاصة بعمل الشاشة الافتتتاحية احببت ان اضيفها هنا في الموضوع لمن يريدها او يحتاج اليها الكود التالي يمكنك من وضع اسم المستخدم وكلمة المرور في الكود نفسه دون الحاجة لكتابتهم او ربطهم بالخلايا A1 ، A2 كما هو في الدروس ولعمل ذلك يجب استبدال الكود التالي والموجود في ملفات الشرح السابق والخاصة بزر الدخول CommandButton1 وهو : Private Sub CommandButton1_Click() If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub بالكود التالي : Private Sub CommandButton1_Click() If TextBox1.Value = "SAMA" And TextBox2.Value = 12345 Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub وبهذا الكود تكون اسم المستخدم SAMA وكلمة المرور 12345 كما في الكود السابق في السطر If TextBox1.Value = "SAMA" And TextBox2.Value = 12345 Then وطبعا يمكنك التعديل مكان الكلمتين في الكود لتغيير اسم المستخدم وكلمه المرور كما تريد ارجو من الله ان يستفاد منه ولو جزء بسيط واي استفسار من الاكيد انني في الخدمة دائما باذن الله جزاك الله خيراً

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

السلام عليكم الاخ الكريم / أبو محمد أشرف مرورك دائما يسعدني ويشجعني جزاك الله خيراً

السلام عليكم الاخ الكريم / abdoullah لتنفيذ طلبك هناك طريقتين لعمل ذلك عن طريق نفس الكود ايضاً وهو ان يكون مكان الخلية b1 في الكود يكون b1:b10 كما في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1].Value <> "" Then Exit Sub If Not Application.Intersect(Target, Range("b2:b10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub الطريقة الثانية : قم اخي الكريم بتسمية النطاقات التي تريدها باسم معين وليكن اسم النطاق هو myrange عبارة عن النطاف من b1 الي b10 ليكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1].Value <> "" 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 واي شئ آخر كلنا معك باذن الله جزاك الله خيراً

السلام عليكم الاستاذ والاخ الكريم / احمد عبد الناصر بارك الله فيك علي اضافتك حل جميل وكود جميل وعلي فكرة بالنسبة لملاحظة اضافة علامة ( + ) للمرفق ... ان منتظرها بقالي فترة ... حمد الله ع السلامة وعلي فكرة واخدها من احد اعضاء هذا المنتدي ( من غير ما يعرف ) اسمه / احمد عبد الناصر ..... هههههه جزاك الله خيراً

السلام عليكم الاستاذ القدير / عبدالله المجرب ( ابو احمد ) شهادة كبيرة من استاذ كبير مثلك تعني لي الكثير وكل ما لدينا من فضل علمكم وماتعلمناه منكم استاذي الكريم جزاك الله خيراً

السلام عليكم الاخ الكريم / حمادة عمر اولاً : هل تنفع معك هذه الطريقة ثانياً : ماهو الجزء الذي تريد شرحه في الكود ومعك دائماً باذن الله جزاك الله خيراً

السلام عليكم الاستاذ القدير / طارق محمود دائما نتعلم من اضغر مشاركه لك حتي لو وجد بها كلمتين فقط جزاك الله خيراً عنا استاذنا

السلام عليكم الاخ الكريم / وليد زقزوق اوامر الاكسيل لا حصر لها والمهم فيها بالنسبة لك غير مهم بالنسبة للآخرين فهي لكل شخص حسب احتياجاته فيجب عليك تحديد الاوامر التي تريدها بالضبط كما فعلت قبل ذلك ونحن جميعاً معك باذن الله جزاك الله خيرا

السلام عليكم الاخ الكريم / عمر أبو صهيب اسئل ما شئت والجميع هنا في هذا المنتدي خبراء واساتذه واعضاء في خدمه بعضهم البعض حباً لله وحباً في الله وكلنا هنا لنعلم ونتعلم من بعضنا البعض جزاك الله خيراً