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

تفضل شغل الكود و اختر ملف الورد ( قائمة بالاسعار ) ثم اضغط open تحياتى قائمة بالاسعار مختار.rar

اخى الكربم ضع هذه المعادله فى الخليه C2 اسحبها نزولا لاسفل =YEAR(A2) تقبل تحياتى

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

اولا اضبط لغة الكتابة في خصائص مربع النص = النظام ثم الصق هذه الجمل داخل محرر النموذج باعتبار combo هو مربع التحرير ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية Option Compare Database Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub combo_AfterUpdate() If combo.Value = 1 Then Call LoadKeyboardLayout("00000409", 1) ElseIf combo.Value = 2 Then Call LoadKeyboardLayout("00000401", 1) End If End Sub لا حظ انه يمكنك اضافة العديد من اللغات

الحل مرفق 23 salim.zip

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي الغالي " وائل الأسيوطي " على الكلمات الشذيّة و التّشجيع الطيّب .. ثق تمامًا أخي الغالي أنّي مجرّد تلميذ .. يستمع إلى الدروس و يتابع باهتمام لما يمليه الأساتذة المحترمين أمثالك .. لاحظ أخي الفاضل " صالح أحمد أبو سيف " .. الصّور الآتية بالتّرتيب .. ندخل إلى المطوّر مثلما يشير إليه السّهم الأحمر ثم نعمل زر أمر من المكان المشار إليه بالسّهم الأخضر ..فقط إنتبه للمكان الذي ستضع فيه زر الأمر هذا و حجمه .. لأنّه فيما بعد لا يمكنك تحريكه .. نقوم بعمل كليك يمين فوق هذا الزر الذي قمنا بوضعه ..ونختار الخاصية PROPRIETE ما يشير إليه السّهم الأحمر .. تقوم باختيار اللّون الذي يناسبك و اسم زر الأمر و الخط و حجم الخط .. إلخ ...شاهد الصورة : بنفس الوقت و بدون الخروج من الملف أو الشيت ..تعمل كليك يمين ثانٍ .. و تختار ما يشير إليه السّهم لربط زر الأمر بما تريد القيام به .. ستفتح أمامك صفحة محرّر الأكواد .. و بالضبط ستجد أمامك الشيت الذي بداخله زر الأمر الذي عملته ..و ستضيف أنت الكود الذي تريد ضبطه بزر الأمر ..أنا هنا إخترت كمثال فتح اليوزرفورم 1 .. أدعو الله أنّي قد وُفّقت ولو بالجزء اليسير في تبسيط المعلومة لديك .. و أي استفسار آخر ..لا تتردّد سيّدي الكريم .. إليك الملف لرؤية النتيجة عن قرب فائق إحتراماتي Book1.rar

السلام عليكم ورحمة الله وبركاته الصلاة والسلام علي رسول الله سيدنا محمد النبي الامي أما بعد اسطوانة موسوعة الخطوط العربية الحديثة 2013 للتحميل AIO Arabic Fonts Pack 2013 برابط مباشر صاروخى اسطوانة تجميعية هامة جدا لكل مصمم أو مستخدم للبرامج المكتبية أو حتى أى نوع من أنواع التصميم والكتابات والطباعات اسطوانة بها أجمل وأحدث الخطوط العربية بجميع أنواعها الاسطوانة بواجهة واحدة فقط لسهولة الاستخدام مقسمة إلى عدة أقسام لتتمكن من إضافة ما تفضل من الخطوط دون إجبارك على تحميل كل الخطوط على الويندوز وأنت فى الغالب لا تستخدم إلا ما يعد على أصابع اليد الواحدة فقط فى الغالب الاسطوانة من تصميم أخى أمين ( هيرو سوفت ) ـ الخط الفارسي (19 خط) ـ الخط المغربي (10 خط) ـ خطوط الإعلان (198 خط) ـ الخط المطور (50 خط) ـ الخط البسيط (96 خط) ـ خطوط الديوان (31 خط) ـ خطوط الرقعة (28 خط) ـ خطوط النسخ (66 خط) ـ خطوط الحر (82 خط) ـ خطوط مربعية (46 خط) ـ الخط الكوفي (163 خط) ـ خطوط (54 خط) -------------------------- الاسطوانة مرفوعة على رابط واحد فقط بمساحة 50 ميجا تقريبا الارشيف ميديافاير منقول للفائده بارك الله في كل من له بصمه في هذا العمل

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

السلام عليكم ورحمة الله تعالى وبركاته اولا بعد الحمد لله الذى تتم بنعمته الصالحات فسبحان الله الحنان المنان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل له الحمد حمدا كثيرا طيبا طاهرا مباركا فيه له وحده الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه ثانيا ادين بالفضل بعد رب العزة سبحانه وتعالى وللكثير من اساتذتى رواد هذا الصرح الشامخ فلولا الله ثم اساتذتى الكرام لما وصلت الى هذا الحد بعد كل الشكر والتقدير اهنئ نفسى واياكم بما وصلت اليه الموضوع بإختصار هو برنامج الصلاحيات والتحكم بالمستخدمين بالفعل أرهقنى موضوع الصلاحيات هذا لو كان اختياراً لتركته وما ترددت فى ذلك لكن تبقى الضرورة وحتمية العمل به هى المحرك الأول والأخير فكانت محاولات الإستماتة حتى إنى فى إحدى اللحظات توقعت أننى لن ولم أحاول البحث أو محاولة إنشاء الصلاحيات بعد هذه اللحظة إستعصى الأمر لدرجة أنني جربت نسبة 90 فى المئة من كل ما هو مقترح على النت لحل تلك المشكلة العويصة مشكلة الصلاحيات وكما لاحظت يعانى منها الكثير غيرى لكن من الله على سبحانه وتعالى بعلمه وفضله فتوصلت لبرنامج Users maker الإصدار الثانى الذى قيل عنه انه يعمل مع منتجات الاوفيس ابتداء من 2007 وحتى 2013 ولكن من وجهة نظرى البرنامج فقير وكنت دائما أقع فى المشاكل بسببه حتى قررت أن أفتح النسخة وأحاول التعديل عليها بما يتماشى ويتناسب مع متطلباتى وأظنها متطلبات اغلب المشاركين كما لاحظت من تساؤلاتهم وإليكم أقدم لكم البرنامج بإصداره الثالث من تعديلى الشخصى وإضافتى التى لم يسبقنى إليها أحد فحاولت تلافى الكثير والكثير من التعقيدات أترك لكم التجربة والتحليل وفى إنتظار الرد للعلم حافظت على حقوق المبرمج الأصلى للبرنامج بارك الله فى علمه الأستاذ القدير محمد مهند العبادى أتحدى وجود إصدار مشابه على الانترنت لما اطرحه عليكم الأن طبعا البرنامج حجمه كبير لن أستطيع إرفاقه عن طريق المرفقات ولذلك أطلب على استحياء من أساتذتنا الكرام المسئولين عن امور المنتديات بكل الحب والود والتقدير بعد تحليل البرنامج والتأكد من فعاليته بشكل جيد وخلوه من الأخطاء إن خلا فالكمال لله وحده إعادة رفع البرنامج على سيرفر المنتدى حتى يكون مرجع فمواقع الرفع المجانية غير مستقرة معلومات هامه جدا جدا جدا عن البرنامج بعد عمل اى برنامج خاص بكم من خلال هذه الاداة Users maker -Third Edition أولا -- من نموذج الدخول أضفت عدد اثنين مستخدمين لكل منهم صلاحيات خاصة وهم مخفيين لا يظهروا بالبرنامج إطلاقاً فى الوصع الطبيعى لعمل البرنامج المستخدم الاول مميزاته الدخول على لوحة تحكم صلاحيات المستخدمين البيانات للدخول اسم المستخدم / admin كلمة المرور / 2015 ثانياً -- المستخدم الثانى مميزاته الدخول على نموذج خاص لإلغاء تفعيل زر Shift أو تمكينه وكذلك إخفاء الجداول والإستعلامات وإظهارها البيانات للدخول اسم المستخدم / superadmin كلمة المرور / 2015 وفى النهاية إن كفيت ووفيت فمن فضل الله وأن ذللت وأخطأت فمن هوان نفسى وقلة حيلتى اسالكم بكل الحب والتقدير إن رأيتم منى خطأ فتجاوزوا عنه بحلم أو صححوه لى بعلم وفى النهاية أعتذر للإطالة جزاكم الله عنى كل الخير روابط تحميل اولا: موقع ...... ميديا فاير ........ إضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... ميديا فاير ........ إضغط هنا للتحميل mdb for Access 2000 - 2002 - 2003 ثانيا : موقع ...... بن الخليج ........ أضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... بن الخليج ........ إضغط هنا للتحميل mdb for Access 2000- 2002 - 2003 اسألكم الدعاء للأستاذ محمد مهند العبادى المبرمج ولوالديه بظهر الغيب كما أطلب منكم على استحياء أن تتذكرونى بدعواتكم الصالحات لوالدى واللهم كما جمعتنى بصحبتكم الطيبة فى الدنيا دون أن أساله اللهم لا تحرمنى منهخا فى الجنة أنا أسألك آمين ..آمين ..آمين أخوكم العبد الفقير إلى الله محمد عصام

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث هذا البرنامج هو النسخة الثالثة من برنامج المخزون و الفواتير الشامل وهو من الممكن اعتباره اكثر من برنامج فى برنامج واحد يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين مع ميزانية عامه توضح الربح و الخساره يمتاز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت البرنامج به الكثير من الاضافات عن الاصدارات السابفة البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها ربما لم تشاهدها من قبل البرنامج بواجهة تطبيقية كاملة مما يسهل من استخدامه ويسرع من ادائة ويحافظ على ثباته البرنامج يعمل على نسختي اوفيس 2007 و 2010 وان كنت انا افضل النسخة الأخيرة من حيث السرعة ** اليوم وانا على وشك انتهاء مرحلة تجربة هذاالاصدار احببت ان اقدم لكم الشرح الوافى لهذا البرنامج البرنامج يحتوى على الكثير و الكثير من الاختصارات التي تساعدك في انجاز مهامك بسرعه عالية وهى افكار جديده على الاكسيل ** تم تصميم البرنامج بمواصفات خاصه وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية بغرض التعلم او استخدامهم الشخصىعلى شرط ان لن يقوم اى شخص بتقديم هذا البرنامج الى اى جهه او شركة بغرض الربح. فحقوق ملكيتة محفوظة لى و الله الشاهد على ذلك البرنامج سوف يتم نزوله مفتوح المصدر فليس غرضى هو الاحتكار ولكنى اريد هذا العمل خالصا لوجه الله تعالى لكى يستفيد ويتعلم الجميع Ø يمكن التعديل في البرنامج على حسب ظروفي ومدى انشغالي اذا كانت تغييرات غير جوهريه Ø اليوم اقدم لكم شرح وافى للبرنامج لطلب كثير من الاعضاء و ايضا لضرورة التعرف على بعض النقاط الهامه داخل البرنامج كما يمكنك الحصول على ملف تنفيذى به شرح كامل للبرنامج حجم الملف 7 ميجابايت يمكنك مراسلتى على الايميل لطلب الشرح amroomo@gmail.com # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج

السلام عليكم ورحمة الله وبركاته ظهر في الاونة الاخيرة تزايد الاستفسار عن الجمل الشرطية وكيفية استخدامها, ولما لها من الاهمية الكبيرة في الاستخدامات المتعددة والمتكررة حتى يكاد لا يخلو يرنامج من استخدام احدى الدوال الشرطية المتعددة ، وبالنسبة الي اجزم انها اهم جمل ودوال ال vba لذلك سابدا بعمل سلسلة لشرح هذه الدوال والجمل وهذا باب مفتوح لكل من يريد المساهمة في انهاء هذه السلسلة وسنقوم بتداولها بطرق سهلة حتى تتم الفائدة للكل ومهما كان مستوى المشارك . اما الجمل والدوال التي سنتاولها فهي : 1. جملة اذا المشروطة if ... then 2. جملة الانتقال الشرطية if .. then .. else 3.جملة الانتقال الشرطية if .. then .. else المتعددة والمتشابكة 4.جملة التفرغ المتعددة case 5.دالة التحويل switch 6.دالة الاختيار المرتب choose الموضوع ليس معقد واسهل مما تتوقعونه وستلاحظون الامكانات الهائلة لهذ الدوال والجمل وتعد من اهم دوال ال vba لكن يجب فهمها بالطريقة الصحيحة ومتابعتها والتطوير في استخدامها وسنبدأ اليوم بالموضوع الاسهل " جملة اذا المشروطة if ... then " واذن الغالبية لديهم الالمام فيه ولكن حتى تتم الفائدة يجب البداية من السهل وهنا مرفق يشرح القاعدة بطريقة سهلة وبسيطة واتمتى التوفيق للجميع أخوكم عماد الحسامي HOSAMI IF THEN.rar

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى مدونة (1) (موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض_بدأه الاستاذ / محمد يحياوى مدونة (2)امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله))_بدأه الاستاذ / ضاحى الغريب مدونة (3) طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة_ بدأه الاستاذ / حماده عمر مدونة (4) طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة_ بدأه الاستاذ / حماده عمر مدونة (5) طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة_ بدأه الاستاذ / حماده عمر مدونة (6) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba_ بدأه الاستاذ / عماد الحسامى مدونة (7) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba_ بدأه الاستاذ / عماد الحسامى مدونة (8) محفظة اكواد منوعة_ بدأه الاستاذ / عبدالله باقشير مدونة (9) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba_ بدأه الاستاذ / عماد الحسامى مدونة (10) ( موضوع مميز ) درس في الترحيل باستخدام الاكواد_ بدأه الاستاذ / عماد الحسامى مدونة (11) ( موضوع مميز )ملف كامل عن كيفية استحدام ال UserForm والتعامل مع كافة جوانبه_ بدأه الاستاذ / عماد الحسامى مدونة (12) (موضوع مميز ) اصنع صندوق الادوات وعناصر التحكم الخاصة بك في محرر الاكواد_ بدأه الاستاذ / محمد يحياوى مدونة (13) ايقونات و ازرار الماكرو ( تصاميم مختلفة )_ بدأه / الجزيرة مدونة (14) ملف من احد المنتديات الاجنبيه به معادلات شتى وصفيف رائعه_ بدأه الاستاذ/ ابو اياد ( الاسيوطى ) مدونة (15) (موضوع مميز) شرح بعض المعادلات وبعض الخصائص فى الاكسيل_ بدأه الاستاذ/ جمال الفاار

عموما البنود كلها موجودة في الخاص برقم البند combobox المطلوب طريقه تظهر كل البنود مرة واحده

السلام عليكم ورحمه الله وبركاته اخواني الكرام الفورم لاخي الكريم العيدروس جزاه الله خيرا لكن الفورم لايعمل عندحمايه الورقه هل من حل؟ فورم ترحيل بشرط_111.rar

الفكره بكل بساطه اول الكود تلغي باسورد الورقة كالتالي .Unprotect "باسورد الورقة" ونهاية الكود بعد ان نفذ الكود تعيد الحمايه للورقة كالتالي .Protect "باسورد الورقة"

السلام عليكم ورحمة الله اخي عبدالرحمن المطلوب إيضاح الاتي : 1- إسترجاع السعر من أي شيت المشتريات او من المخزون 2- هل السعر الذي تريد الاعتماد علية سعر الكيلو او سعر القرام طبعا اكيد الصح سعر القرام لانك لو بعت كمية بالقرام حيحسب السعر بالكيو لو اعتمدت سعر الكيلو وهذا خطأ.

السلام عليكم مواضيع هامة ومتميزة نرجو أن يستفيد منها الجميع ممن ليس عندهم إلمام تام بعمل الماكرو مع الجداول المحورية والسلام عليكم

السلام عليكم اذهب الى السطر التالي في الكود وحط باسورد حماية الورقة ''----------------------------- A = "" '' حط هنا باسورد حماية الورقة ''---------------------------- تفضل المرفق بعد ان تحط الباسورد جرب افتح الفورم تحياتي فورم ترحيل بشرط_333.rar

شكرا لك على المرور أستاذي العزيز بكم نستمر أسعد الله أوقاتكم بكل خير فيما يلي الدرس الرابع والعشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان الماكرو- الجزء الثالث - أمثلة متقدمة على استخدام الماكرو ملاحظة: هذا الدرس يعتمد على المعرفة بالجداول المحورية. لمعرفة المزيد حول الجداول المحورية يمكنكم مراجعة الدروس الخاصة بالجداول المحورية من دورة (مهارات اكسيل -2013 - تجدون رابطها بالأسفل) وهي الدروس من 35 وحتى 38 أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم لمشاهذة دروس دورة مهارات اكسيل 2013 يمكنكم فتح الرابط التالي دورة مهارات اكسيل 2013 دمتم بخير أخوكم م/نضال الشامي

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

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

اخوتي .. طلب الاخ الزميل OLIVER916 التفقيط من داخل فاتوره وبالدرهم .. فضلت ان يكون ردي في موضوع جديد لتعم الفائدة ، إن كانت فيها فائدة ?? hassan.rar

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

رائع يا ابويوسف جزاكم الله خيرا تقبل تحياتى

السلام عليكم ورحمة الله وبركاته إليك الحل بثلاثة طرق مقتبس من بعض علماء الإكسيل الكرام جزاهم الله خيراً الطريقة الأولى بواسطة الدالة VLOOKUP كما يلي: =VLOOKUP(C4;$I$3:$J$6;2;1) الطريقة الثانية بواسطة الدالة INDEX مع MATCH كما يلي: =INDEX($J$3:$J$6;MATCH(C4;$I$3:$I$6;1)) الطريقة الثالثة بواسطة الدالة IF كما يلي: =IF(C4>=$I$6;$J$6;IF(C4>=$I$5;$J$5;IF(C4>=$I$4;$J$4))) لا فضل لي بذلك بل لمن علمني والدال على الخير كفاعله والسلام عليكم ورحمة الله وبركاته منذر محمد.rar

السلام عليكم ورحمة الله طرح خلية من خلية بالكود.rar

الطلب غير واضح اخي الكريم حط مثال للنتيجه في الورقتين 1 و 2 كي نفهم الطلب

اخى الفاضل اسلام ممكن تحفظ الملف بتنسيق اوفيس 2003 وترفعه

صديقي الملف عندك هو من نوع Word كي تقوم بهذا العمل يجب ان يكون ملف Excel

السلام عليكم أستاذ نضال المحترم شكراً على هذا الدرس الممتع والمفيد نرجو الله أن يجعله بميزان حسناتكم.

db4.rar

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

سلمت يمينك أخى الحبيب الغالى / حسام دائما متألق وتأتى بكل ما هو رائع جزاك الله خير الجزاء

السّلام عليكم و رحمة الله و بركاته إبداع و تميّز آخر يُضاف إلى قائمة إبداعاتك غير المنتهيّة بإذن الله بارك الله فيك أخي الغالي " حسام عيسى " على روعة الملف و تميّز الموضوع جزاك الله خيرًا و زادك من علمه و فضله فائق إعجاباتي و احتراماتي

سادساً :- التعامل مع العناصر الموجوده داخل الــ Frame بطرق احترافيه فى البدايه يبدو ان العنوان غريب وغير مفهوم خليك معايا خطوه خطوه هتفم يعنى ايه الكلام ده شاهد الصوره التاليه دا فورم فى مرحلة التصميم وزى ما انتم شايفين يوجد زر اخضر اسمه Test وهو عباره عن Label ويوجد ايضا عدد 2 تكست بوكس وعدد 2 كمبو بوكس المطلوب انا عايز اعمل كود عند الضغط على الزر الاخضر اثناء عمل الفورم يقوم الكود بعمل اختبار للعناصراللى من النوع تكست بوكس هل هى فارغه ام بها بيانات اذا كانت فارغه يعطينى رساله باسم التكست وكمان يجعل لون التكست احمر ازاى ننفذ الكلام ده اولا هو عايز الكود يتم تنفيذه عند الضغط على الزر الاخضر حلو اوى طيب الزر الاخضر ده عباره عن ايه ؟ شوف الصوره هتلاقى ان الخاصيه Name هى Label1 اذن الكود هيكون كالتالى Private Sub Label1_Click() 'مكان وضع الكود المراد تنفيذه End Sub ما هو الكود المراد تنفيذه ؟ هو اختبار العناصر هل هى من النوع تكست بوكس أم لا واذا كانت من النوع تكست بوكس هل هى بها بيانات ام لا واذا تبين ان العنصر من نوع التكست بوكس ولا يوجد به بيانات اظهرلى رساله باسم العنصر وكمان اجعل العنصر لونه احمر أول شئ علشان اختبر كل العناصر اللى على الفورم واشوف نوعها اذن لازم اعرف متغير من نوع Control لان انا هتعامل مع العناصر Dim a As Control هنا سميت المتغير اسم a ( وطبعا يمكن تسمية اى اسم كيفا شئت ) وقلت اى المتغير a ده عباره عن عنصر تحكم ( قد يكون لليبل او تكست بوكس او كمبوبوكس او ليست بوكس او فريم او تشيك بوكس وغيرها من العناصر ) فعلشان الف على كل العناصر اللى موجوده على الفورم يبقى لازم الحلقه التكراريه For Each Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls ' مكان اختبار العنصر اذا كان من النوع تكست بوكس وايضا هل هو فارغ من البيانات Next a End Sub عملت حلقه For Each للمتغير a وقلت ان a ده هو عباره عن عنصر تحكم موجود على الفورم Me.Controls Me هنا عايده على عناصر الفورم ازاى بقى اعمل اختبار للعناصر هل هى من النوع تكست بوكس و هل هى بها بيانات ام لا اذن هستخدم if Then If TypeOf a Is msForms.TextBox And a = "" Then End If if تعنى لو الاختبار الاول هل العنصر من نوع التكست بوكس TypeOf a Is msForms.TextBox TypeOf تعنى نوع الــ a هو عنصر التحكم اللى بيتغير كل مره مع الحلقه For Each is يكون msForms.TextBox تكست بوكس الاختبار الثانى a = "" and تعنى ( و ) لعمل شرط ثانى a = "" عنصر التحكم فارغ Then تعنى نفذ التالى ( وطبعا قفلنا if بــ End if ) طيب لما الكود يختبر نوع العنصر ويلاقيه تكست بوكس وكمان يلاقيه فارغ ماذا ينفذ يجعل التكست بوكس لون الخلفيه احمر ويظهر لى رساله باسم العنصر If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If شاهد الكود بشكله النهائى Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If Next a End Sub هعملك مشهد تمثيلى لعمل الكود جوا دراما يعنى جايز الاقى فيكم مخرج يكتشفنى عند عمل الكود فى اول سطر هيخزن فى ذاكرته ان المتغير a هو عنصر تحكم ثم ياتى للسطر الثانى وهو For Each a In Me.Controls الحلقه هتجعل ان a هى Label1 هيروح للسطر اللى بعده يعمل اختبار بالــ if فهيلاقى ان a اللى هى دلوقتى ( Label1) مش من النوع تكست بوكس اذن متحققش الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى TextBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع TextBox1 هيلاقيه بالفعل من النوع TextBox تحقق اول شرط طيب هيشوف الشرط التانى هل التكست فارغ ام به بيانات اذا كان فارغ هيجعل لون خلفيته حمراء ويعطنى رساله باسمه ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى ComboBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع ComboBox1 هيلاقيه مش من النوع ComboBox فلم يتحقق الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية وهكذا الى ان تنتهى الحلقه بعد ما تجعل a بكل العناصر اللى على الفورم وينتهى الكود شاهد هذه الصوره عند عمل الفورم والضغط على الزر الاخضر دى كانت مقدمه للمثال التالى وهو الاهم واللى اكيد هيقابلك لو انت هتصمم برامج اكيد هيقابلك المثال التالى مثال 2 :- شاهد الصوره التالية طبعا علشان اعمل كود فى حدث الليبل " الحفظ " هيكون الاعلان عن الكود كالتالى Private Sub Label1_Click() 'اولا اختبار صحة الادخالات 'ثانيا ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub انا موضوعى اليوم هو اولا اختبار صحة البيانات المدخله أما الجزء الخاص بترحيل البيانات الى الشيت مش موضوعى اليوم سنتناوله لاحقا باذن الله اولا اختبار صحة البيانات المدخله لو رجعت للصوره السابقه هتلاقى ان المطلوب اختبار كل عناصر التكست بوكس هل تم ملئ الدرجات بها ام لا وزى ما عرفنا قبل كدا ممكن تكون كالتالى Private Sub Label1_Click() If TextBox1 = "" Then TextBox1 .BackColor = 10200 End If If TextBox2 = "" Then TextBox2 .BackColor = 10200 End If End Sub يعنى هختبر كل عنصر بالشكل ده طبعا مستحيل طيب هتعمل ايه لو كان عندك مثلا 100 تكست بوكس او اكتر ؟؟؟؟؟؟ طبعا لو عملت كدا محتاج 100 صفحه علشان تكتب الكود مش منطق طبعا اذن لازم من حل احترافى شاهد الكود بشكل احترافى فى بضعه اسطر وبعدين نشرحه Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub الكود فى المثال السابق كانت حلقة For Each عباره عن For Each a In Me.Controls ( هنا كان المتغير a يمثل كل العناصر على الفورم لذالك استخدمت Me.Controls وقلت ان Me عائده على الفورم النشط لكن فى الكود الحالى انا عايز اتعامل مع العناصر اللى داخل الــ Frame1 فقط فتم كتابة الحلقه كالتالى عباره عن For Each a In Frame1.Controls فهنا a هتكون كل عنصر من العناصر اللى داخل الفريم فقط واحد صاحى معايا هيلاحظ ان لما استخدمت If لاختبار ان العنصر من النوع تكست بوكس تم استخدام شرط التحقق من نوع العنصر انه تكست بوكس وشرط ان العنصر فارغ فى سطر واحد من خلال And شاهد الكود If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If ولكن عند استخدام if لاختبار ان العنصر من النوع كمبوبوكس وان الاختيار تم من القائمه تم استخدام if لاختبار شرط التحقق من نوع العنصر اذا كان كمبوبوكس يتم تنفيذ if اخرى وكتابة الشرط الثانى ان الاختيار تم من القائمه شاهد الكود If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If فى حد عنده تفسير لذالك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ليه مكتبناش اختبار ان نوع العنصر كمبوبوكس وان الاختيار تم من القائمة فى سطر واحد من خلال And مثل التكست بوكس يعنى يكون كدا If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If هقولك انا ما هو السبب الحلقه For Each لما تشتغل هيكون اول مره a كل مره تمثل عنصر من عناصر التحكم داخل الفريم فهيكون أما ليبل أو تكست بوكس أو كمبوبوكس كما هو بمثالنا فى الصوره السابقه موضوع الشرح لما تشتغل If الاولى If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label " " = a " " =Label1 فلا يوجد مشكله لان Label ممكن = فارغ -------------------------------------- فعندما يكون a عباره عن TextBox " " = a " " =TextBox1 فلا يوجد مشكله لان TextBoxممكن = فارغ -------------------------------------- فعندما يكون a عباره عن ComboBox " " = a " " =ComboBox1 فلا يوجد مشكله لان ComboBox ممكن = فارغ -------------------------------------- لما تشتغل If الثانيه If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label a.MatchFound = False Label.MatchFound = False فهنا يوجد مشكله لان Label ليس من خواصه MatchFound وكذالك TextBox لان MatchFound هى من خواص ComboBox فقط وهى لعمل اختبار هل الاختيار تم من القائمه ام لا لذالك مينفعش نعمل الكود بالشكل ده هيحدث Error ولتجنب Error لازم يكون الكود بالشكل التالى If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If يعنى اختبر العنصر هل هو ComboBox أولا أم لا اذا كان من النوع ComboBox اعمل اختبار عليه وهو هل تم الاختيار من القائمه أم لا واذا كان العنصر من النوع Label أو TextBox متعملش اختبار MatchFound ارجوا ان يكون الشرح واضح هو بس محتاج تركيز شويه شاهد الكود مره تانية بشكله النهائى كالتالى Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ طبعا انت ممكن تغير فى الكود بدل ما ينفذ بجعل الخلفيه لونها احمر a.BackColor = 10200 ممكن تغير اى شئ تريد تنفيذه يعنى مثلا يعطى للمستخدم رساله باسم العنصر اللى فيه خطأ زى كدا Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then MsgBox a.Name & " برجاء تعبئة بيانات" End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then MsgBox a.Name & " برجاء تعبئة بيانات" End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ ------------------------------------------------------------------------------------------------------------------------------------ الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

السلام عليكم ورحمة الله وبركاته أتمنى من الله أن تكونوا جميعا بخير وصحة وسلامه أثناء تصفحي لأحد المواقع وجدت يوزرفورم به خيارات متعدد لتوليد الكود الخاص بـ MsgBox ووجدته مفيد للأخوة المبتدئين في برمجة الـ VBA وأنا أولهم اليوزر فورم أنا ترجمت المحتوى الظاهر عليه للغة العربية حتى يتمكن الجميع من استخدامه بمشيئة الله أتمنى يكون الموضوع غير مكرر ويكون مفيد ومرفق الملف. MsgBox Code Generator.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم التعديل على الملف بالاستغناء أيضا عن العمودين AJ و AL واستبدالهما بمعادلات في العمود X بالصفوف 1، 41، 81، 121، وهكذا... (معادلة الخلية X1 تختلف قليلا عن معادلات الخلايا في الصفوف الأخرى من العمود X) مع تعديل طفيف على كود الطباعة بتغيير حرف Y بالحرف Z لعمود الخلايا التي تُؤخذ منها القيم الخاصة بالطباعة... أرجو أن يروقك هذا التعديل... أخوك بن علية الملف المرفق : Book4.rar

اعتذر عن التاخير للانشغال تفضل اخى الفاضل إدارة المحل نهائى.rar

الأخ الحبيب أبا الحسن والحسين جزاك الله خير الجزاء أخي عبد الرحمن إليك كود الأخ الغالي أبا الحسن والحسين (كودين ..دمجتهم في كود واحد . وقمت بشرح أجزاء الكود لتتمكن من التعديل عليه بما يناسبك) Sub PrintAll() 'تعريف المتغيرات Dim LR As Long Dim I As Long 'سطر للتجاهل في حالة حدوث خطأ On Error Resume Next 'حلقة تكرارية لكل أوراق العمل For I = 1 To Sheets.Count 'تحديد أو تنشيط ورقة العمل المراد طباعتها Sheets(I).Select 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'تحديد آخر صف به بيانات في العمود الثامن LR = Range("A50:H").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'ضبط نطاق الطباعة .PageSetup.PrintArea = "A1:H" & LR 'طباعة النطاق المحدد .PrintOut 'نهاية التعامل مع الورقة النشطة End With 'الانتقال لورقة العمل التالية Next End Sub

الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم شرح مبسط عن msgbox فى لغة البرمجه VBA فى البداية كلنا نتفق ان اى عمل فى الاكواد يتطلب فى اغلب الاحيان وجود رساله تحذيرية للمستخدم او رساله معلوماتية او رسالة فى صيغه سؤال الرساله عبارة عن 3 أجزاء وهى كالتالى "title عنوان الرساله",BUTTONS الازرار,"text نص الرساله " msgbox نلاحظ ان ما بين كل جزء يوجد هذه العلامه ( , ) وتكتب من خلال الضغط على shift+حرف و بالعربى اولا نقوم بشرح الجزء الاول من الرساله وهو "نص الرساله " نقوم بفتح محرر الاكواد من خلال ALT+F11 ُم ادارج مودويل جديد للعمل علية اول نوع من الرسائل هى النوع العادى مثال 1 لو حبينا نعمل رساله ونكتب فيها ( كلنا بنحب أوفيسنا ) اول شئ نعمل ادراج مودويل جديد ونكتب فيه الكود التالى Sub hossam() MsgBox "كلنا بنحب أوفيسنا" End Sub نلاحظ فى الكود ان فى ثلاثة اسطر السطر الاول وهو اسم الكود وهو هنا اسمه Hossam ويمكن تغيير الى اى اسم تحبه انت الثانى وهو الكود الذى يتم تنفيذه وفى المثال السابق هو تنفيذ رساله كلنا بنحب اوفيسنا (كيف يتم كتابة الرساله) msgbox ثم "الرساله" نلاحظ ان الرساله بين علامتين تنصيص اى الضغط على shift+حرف ط بالعربى من لوحه المفاتيح لو رجعنا الى قمنا باغلاق محرر الاكواد ورجعنا الى ورقة العمل 1 من زر Developer بشريط القوائم الضغط على اول زر فوق ناحية اليسار ثم رسم الزر على ورقة العمل ستظهر لك قائمة بها كل الاكواد التى قمت بعملها اختار منها كما هو بالمثال hossam لو قمنا بالضغط على هذا الزر ستظهر لنا الرساله التالية مثال 2 عمل رساله من شقين شق ثابت وهو الرساله وشق متغير مثلا "عدد الطلبه فى الفصل الاول" & ( الرقم بالخلية A1 ) يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبه فى الفصل الاول " & Range("A1").Value End Sub وهنا نلاحظ ان بعد الانتهاء من الرساله وضعنا علامه & ثم Range("A1").Value اى الرقم اللى موجود بالخلية A1 وهو كما هو بالصورة 15 عند الرجوع الى ورقة العمل والضغط على الزر ستظهر لنا الرساله كما هو مبين بالصورة مثال 3 نريد عمل رساله فى سطرين يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبة فى الفصل الاول " & Range("A1").Value & vbNewLine & "عدد الطلبة فى الفصل الثانى" & Range("A2").Value End Sub نلاحظ هنا هذا هوالجزء الاول من الرسالة Range("A1").Value & "عدد الطلبة فى الفصل الاول " MsgBox نفس الكود السابق ثم علامة & vbNewLine & أى عمل سطر جديد ثم السطر الثانى من الرساله Range("A2").Value & "عدد الطلبة فى الفصل الثانى" MsgBox وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الرساله التالية كما موضح بالصورة الحمد لله انتهينا من الجزء الاول وهو نص الرساله وعرفنا انى ممكن يكون نص ثابت كما هو بالمثال الاول وممكن يكون جزء ثابت وجزء متغير كما هو بالمثال 2 وممكن يكون جزء ثابت ومتغير اكثر من مره على سطرين كما بالمثال 3 ثانيا: نقوم بشرح الجزء الثانى من الرساله وهو BUTTONS الازرار BUTTONS الازرار,"text نص الرساله " msgbox قبل ان نبداء بشرح هذا الجزء ننظر الى الصورة التالية شكل الزر رقمه الاسم فى اول مثال من الشرح وهو عمل رساله ثابته "كلنا بنحب أوفيسنا" فاذا اردنا عمل رساله "هل تحب أوفيسنا " هنا صيغة سؤال اى يوجد له اجابة اما نعم او لا اذن لابد من وجود ازرار فلو حبينا نعمل كود يكون كالتالى Sub hossam() MsgBox "هل تحب أوفيسنا ؟", vbYesNo End Sub وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الصورة التالية كما موضح بالصورة كما يمكن ايضا كتابة الكود بتلك الطريقه وهى استبدال vbYesNo بالرقم 4 كما هو موضح بالجدول اعلاه ويكون الكود كالتالى Sub hossam() msgbox "هل تحب منتدى اوفيسنا؟",4 End Sub

السلام عليكم ورحمة الله وبركاته عمل جميل ومتعوب عليه جدا في العمل والإتقان ولكن من خلال رأي المتواضع وفكرتي مع التعامل مع إكسل فإن هيك برامج ضخمة لايمكن التعامل معها في إكسل لإنه يحدث بطئ إثناء الترحيل والإدخال لأن الكودات مربوطة على الخلايا في إكسل وهذا أنا اعتبره خطأ لأن المستخدم أثناء العمل عليه سوف يجد صعوبة في التعامل علماً أنت كاتب بجانب كل أيقونة ماهو الغرض منها وهذا شي جداً جميل *************************************** المقصود أخي من خلال كلامي أن الى الآن لم نجد برنامج متكامل مخزون وحسابات وميزانية ختامية على إكسل ولكن بواجهة تطبيقية كاملة يعني المستخدم لا يشاهد خلايا إكسل وحتى لا يشاهد الورقة بالكامل وإنما يشاهد واجهة تطبيقية من خلال userform متعدد الوظائف تكون هذه الورقة هي عبارة عن Data Base للأدخالات فقط وهذا الذي أبحث عنه منذ زمن بعيد وأعمل عليه ****************************** طبعاً هذا رأي وأنا لا أجبر أحد على الأخذ به وإنما هو نصيحة الى وجه الله تعالى لكي يستفيد منها الإعضاء الكرام وفي النهاية عمل متقن جداً الله يجزيك الخير والسلام عليكم أخوكم أنس دروبي

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

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

باختصار ما أريده هو عند تحميل الفورم أو عند دخول المستخدم أن أكتب عبارة sql لاحضار البيانات بحيث اسم الشركة مثلا يساوي (.Name_company) كيف اكتب عبارة sql ضمن كود VBA select * from table name where company="Name_company" مثلا...........