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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله ارتأيت أن أقدم موضوع بسيط في مضمونه ولكنه مفيد في جوهره حيث سيفيد في أمور أخرى أقدم لكم الدالة MOD وتطبيق عملي عليها لكي تستوعبوا الدالة بشكل جيد الدالة ببساطة شديدة تعطي باقي القسمة .. مثال1 : لو عندك أولاد وجبتلهم 8 تفاحات ، والأولاد نايمين (نوم العوافي) ..فيهم واحد صحي .. يبقا ايه مصير الـ 8 تفاحات ، الحمد لله الـ 8 في خبر كان .. هيتبقى كام تفاحة .. طبعاً ولا تفاحة =MOD(8,1) الـ 8 دول التفاحات ، والواحد (العيل المفجوع اللي أكلهم) ..طبعاً باقي التفاحات يساوي صفر .. لقد التهمهم الوحش الصغير التهاماً الناتج =صفر ************************ مثال2 : لو صحي اتنين من الأولاد على الـ 8 تفاحات ، كل واحد هياكل 4 ، والباقي بردو صفر .. =MOD(8,2) الناتج = صفر ************************ مثال3 : دلوقتي هنفترض إن فيه 3 أولاد هما اللي صحيوا .. والـ 8 تفاحات موجودين .. الأول هياخد 3 والتاني 3 والتالت 2 (دا بقا مش هيسيب إخواته في حالهم إلا لما يدب معاهم خناقة وسلك إنت يا معلم) الباقي من القسمة بعد ما الـ 8 تفاحات اتوزعوا 2 .. لأن الأخير اتعكنن عليه ومخدش غير اتنين فرفض الاتنين (التفاحتين) وفضل إنه يعملها زعلة =MOD(8,3) الناتج = 2 ************************ مثال4 : دلوقتي هنفترض أن 4 اولاد صحيوا والـ 8 تفاحات مودجوين كدا كل واحد هياخد اتنين ويا دار مدخلك شر .. والباقي من القسمة يساوي صفر .. التفاح بح يا بوحة =MOD(8,4) الناتج = صفر ************************ مثال5 والأخير عشان تعبت من العيال دي .. دلوقتي الـ 5 أولاد صحيوا ومفيش أولاد تاني متخافوش (إحنا منظمين النسل) .. الأودلا هيقسموا عليهم التفاح بالعدل طبعاً ..كل واحد هياخد تفاحة وبس .. بس كدا التفاح لسه باقي منه 3 ..(دول بقا من نصيب الأب التعبان الشقيان اللي طالع عينه ليل نهار) يبقا الباقي من القسمة يساوي 3 =MOD(8,5) الناتج = 3 ************************ ممكن آخر مثال نستخدم المعادلة بهذا الشكل وتدينا نفس النتيجة =INT(8/5)*(8-5) معلش طولت عليكم في الأمثلة .. بس الأمثلة دي عشان نفهم كويس الدالة وإزاي يكون الناتج لما يكون عندنا شيء وعايزين نوزعه .. الدالة بتعطينا باقي التوزيعة دي أي باقي القسمة ننتقل لتطبيق عملي على الدالة هنكتب الأرقام التالية في النطاق D7:D12 ... نكتب الأرقام 10 - 3 - 33 - 15 - 18 - 17 (دول 6 أرقام ..فيهم أرقام فردية وأرقام زوجية) والمطلوب إننا نعد الأرقام الفردية والأرقام الزوجية .. أول شيء نروح نحدد النطاق D7:D12 اللي فيه الأرقام المطلوب عدها .. ونروح لصندوق الاسم ونسمي النطاق بأي اسم وليكن Rng .. يمكنك الإطلاع على النطاقات المسماة من خلال التبويب Formulas ثم Name Manager >> نيجي في أي خلية ونكتب المعادلة التالية =SUMPRODUCT(--(MOD(Rng,2)=1)) مش هشرح المعادلة مرة واحدة ..إحنا هنفصصها .. وربنا يعينا إن شاء الله أولاً نفهم الدالة Sumproduct بشكل مبسط على إنها بتتعامل مع مجموعة خلايا مرة واحدة .. مش خلية واحدة بس .. اللي بيسموها صفيف .. صفيف يعني مجموعة من الخلايا .. وطبعاً لأننا هنعد الأرقام الفردية والزوجية داخل نطاق معين من الخلايا فهنستخدم هنا الدالة Sumproduct عشان تجمع النتائج ، وهنعرف إزاي هنجمع بعد شوية لما نحب نفصص شيء بنقطعه حتت ونرميه للقطط .. تمام تمام ..متضحكش !! أيوا زي ما بقولك كدا ..إحنا نقطعه وبعدين نجمعه نمسك الأقواس من جوا الأول ..أول جزء هنشوفه الجزء ده MOD(Rng,2) روح لشريط المعادلات وحدد بالماوس الجزء دا بس ... واشغط بعدها F9 من لوحة المفاتيح ..هتلاقي الإكسيل ترجم لك الجزء دا بس وقالك النتيجة أهي {0;1;1;1;0;1} النتائج دي عددها 6 اللي هي عدد الخلايا اللي بنتعامل معاها .. وظهرت كدا بسبب الدالة Sumproduct الأرقام دي نتائج للدالة MOD اللي فهمنها من شوية يعني الرقم مقسوم على 2 .. فخد رقم رقم وجرب : أول رقم 10 / 2 = 5 يبقا مفيش باقي للقسمة يبقا ناتج الدالة يساوي صفر الرقم 3 لما نقسمه على 2 يتبقا 1 .. كمل إنت باقي الأرقام معنى الكلام ده إن الأرقام الزوجية لما نقسمها على 2 مش هيتبقا شيء ..يبقا ناتج الدالة يساوي صفر أما الأرقام الفردية فناتج باقي القسمة يساوي 1 وهي دي الأرقام اللي ظاهرة أمامي 0 - 1 - 1 - 0 - 1 لحد كدا تمام .. قول تمام يا عبد السلام ندخل على الجزء التاني ..هنحدد من شريط المعادلات الجزء ده {0;1;1;1;0;1}=1 وهنا استخدمنا علامة يساوي .. كأننا بنختبر شرط .. يعني كل رقم من الأرقام على اليسار هل يساوي 1 أم لا ..؟؟ لو كان يساوي واحد يبقا النتيجة TRUE ولو كان يساوي صفر يبقا النتيجة False ... نضغط F9 واتأكدوا بنفسكم من صحة كلامي .. دوس يا معلم متخافش {FALSE;TRUE;TRUE;TRUE;FALSE;TRUE} راجع النتائج بنفسك نيجي دلوقتي ونحدد الجزء ده --({FALSE;TRUE;TRUE;TRUE;FALSE;TRUE}) ونضغط F9 من لوحة المفاتيح ..هنلاقي النتائج بالشكل ده {0;1;1;1;0;1} رجعت الأرقام تاني .. ودي فايدة الشرطتين اللي بعد قوس الدالة Sumproduct ، الشرطتين بيحولوا القيم True و False إلى 1 و 0 .. وفي نهاية المطاق عشان أنا تعبت تصبح المعادلة بهذا الشكل =SUMPRODUCT({0;1;1;1;0;1}) لما نحدد الجزء ده هيطلع لنا الناتج 4 ..أي عدد الأرقام الفردية يساوي 4 لعد الأرقام الزوجية هنغير شيء واحد بس في المعادلة ألا وهو الشرط بدل ما كان 1 نخليه صفر .. ودمتم وأخيراً دعماً لصاحب الموضوع يرجى تحميل الملف (ستمر بسلسلة من الروابط الدعائية حوالي 5 روابط ) .. وطبعاً دا اختياري مش إجباري لأنك ممكن ببساطة تستغنى عن الملف المرفق لأنه بسيط جداَ .. ويمكنك تطبيقه بسهولة جداً ... ولكن إذا كان وقتك يسمح ادعمني بدقيقة واحدة من وقتك حمل الملف من هنا وأخير تقبلوا وافر تقديري واحترامي

وعليكم السلام ورحمة الله وبركاته تم وضع المعادلة في العمود الأصفر أي مدرسة غير موجودة على البسار سيظهر أمامها تنبيه بذلك لاحظ المرفق تفضل a2.rar

أخي الكريم وائل شعبان أبشرك أن الملف جاري العمل عليه فهو شغلي الشاغل ليل نهار الآن وإليك ملف فيديو لآخر ما توصلت إليه .. في الفيديو ستشاهد الخطوة السابقة التي تقدمت بها من تصفية النتائج بعد نسخها من ملف الورد .. حيث يتم تنفيذ الكود الاول ويقوم بحذف صفوف أسماء السور وحذف الصفوف الفارغة وحذف صفوف البسملة إلا البسملة في سورة الفاتحة ثم يأتي الكود الثاني والذي يستغرق حوالي 4 أو 5 دقائق في التنفيذ .. ولكنه يؤدي المطلوب بكفاءة حيث تم استخراج عدد 6236 آية .. فهل هذا العدد صحيح إن شاء الله؟ وإليك ملف الفيديو

أخي الكريم أحمد وعليكم السلام ورحمة الله وبركاته إليك الملف التالي .. يتم تعبئة الكومبوبوكس بأسماء أوراق العمل عدا ورقة العمل المسماة "كشف" ، وعند اختيار أي اسم ورقة من الكومبوبوكس يتم تنشيط ورقة العمل .. حمل الملف من هنا

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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب سبق أن قمنا بكسر حماية محرر الأكواد بدون برامج .. الآن مع كسر حماية أوراق العمل بالاستعانة ببرنامج صغير الحجم اسمه XML Marker وهو برنامج للتعديل على ملفات الـ XML وهو مرفق في الموضوع ... أترككم مع الفيديو ..عسى أن تستفيدوا منه إن شاء الله (ومتنسوش اللايكات !!) تقبلوا تحيات أخوكم أبو البراء xmlmarker_2_2_setup.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_برامج جاهزه ( حسابات_ميزان مراجعه_سندات قبض_يوميه) 2 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_بحث_اضافة_تعديل_ترحيل_ادخال 3 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_اكواد و معادلات و فورم 4 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_شاشة دخول_صلاحيات_PASS WORD 5 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاتصالات_الادارية_الموظفين 6 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_كنترول_امتحانات_لجان 7 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاكسيل الترفيهي 8 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاكسيل الاسلامى و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

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

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

أرى أن السيد / ابو عبد الرحمن يتمتع بقدر عال من الذكاء فى تحليل وتطويع المرفقات التى يتم تحميلها للإستفادة منها وهوعين الصواب وهذا فى حد ذاته ذكاءا غير عادى من رجل يتسم بذوق رفيع فى حديثة الراقى وإستحيائه الواضح فى طلب معالجة الموضوع بالمصفوفات فى إشارة غير مباشرة بمشاركتة الاولى مجرد رأى وافر تقديرى واحترامى

السلام عليكم هذه اضافة بسيطة لكتابة ارقام الاآيات و عددها على اعتبار ان لدينا ورقة فيها اعداد الآيات مرتبة بالشكل 7 286 200 176 120 و هكذا حتى سورة الناس 6 Sub NbrAta() m = 0 Dim cl As Range For Each cl In Range("A1:A114") For x = 1 To cl.Value m = m + 1 Cells(m, 2) = x Cells(m, 3) = cl Next Next End Sub

سيدى الفاضل / محمد حسن المحمد وعليكم السلام ورحمته الله وبركاته كلمات وضائة ملؤها الامل والعمل بارك الله فى حضرتك تقبل وافر تقديرى ابو البراء ههههههههه مش زنقه ولا حاجة هية زنجة زنجة وحارة حارة

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

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

اخى ياسر تم تنزيل النت فريم ورك 2 و3 و3.5 وتنصيبه الكود عمل بشكل رائع رائع رائئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئئع جزاك الله خيرا الف شكر لو كان عندك وقت شرح بسيط على اسطر الكود اكون شاكر جدا

تم اضافة ماكرو الى الصفحة لتعمل كما تريد القرية1 Salim_macro.rar

الحمد لله الذي بنعمته تتم الصالحات أخي الحبيب وائل شعبان لقد استغرق مني العمل أيام .. بالبحث في المنتديات المختلفة والمواقع المختلفة ، والإضافة والتعديل للوضول لأفضل نتيجة ممكنة في الملف المرفق ستجد 3 أكواد .. الكود الأول المسمى Delete_Blanks_Basmla يقوم بحذف الصفوف التي تحتوي على البسملة عدا البسملة في الفاتحة والصفوف الفارغة والصفوف التي تحتوي أسماء السور ثم يأتي الكود الثاني (وسيستغرق في التنفيذ حوالي 5 دقائق لكيلا تقلق .. حاولت أن أجعله ينفذ بشكل أسرع ولكن يبدو أن البيانات ضخمة وعمليات المعالجة تحتاج لوقت ، ولكن لا أعتقد أن هذا سيسبب مشكلة حيث سيتم التنفيذ لمرة واحدة فقط .. للحصول على النتائج المطلوبة بعدها يمكنك نسح النتائج ووضعها في ملفك أو في أي ورقة عمل أخرى حسبما تريد) والكود المسئول على عمليات المعالجة للبيانات للحصول على المطلوب يسمى Main_Proc ثم يأتي في النهاية كود خفيف يقوم بوضع أسماء السور مقابل كل آية من الآيات في العمود الثاني وهو الكود SuratNames .. لتنفيذ الكود يمكنك الضغط على Alt + F8 ثم اختيار اسم الإجراء الفرعي المطلوب تنفيذه .. يراعى ترتيب التنفيذ (الكود الأول فالثاني فالثالث .. للحصول على نتائج منضبطة بإذن الله) أسأل الله العظيم أن يغفر لنا بهذا العمل وأن يجعله في ميزان حسناتنا يوم القيامة وأخيراً إليك الملف المرفق فيه ما ذكرت ، ولا تنسونا من صالح دعائكم .. لكي يظهر الملف بالخط المستخدم ، يرجى تنصيب الخط في المرفقات (فك الضغط عن الملف ثم كليك يمين ثم Install) حمل الملف من هنا UthmanicHafs1 Ver09.rar

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

أخي الكريم أحمد حمل الملف من هنا أرجو أن يكون المطلوب إن شاء الله تقبل تحياتي

الأخ الكريم نور في المرفق الأخير لأخونا سليم قم بتنشيط وررقة العمل المسماة "البيانات (2) " ثم اضغط Alt + F8 من لوحة المفاتيح واختر الماكرو المسمى Salim_Sort .. ولن تحدث مشكلة ... إذا أردت أن يكون العمل على ورقة العمل المسماة "البيانات" فقم بتغيير اسم ورقة العمل في الكود من خلال هذا السطر Set sh = ActiveWorkbook.Worksheets("البيانات (2)") تقبل تحياتي جرب الكود التالي ..نشط ورقة العمل المراد العمل عليها ثم نفذ الكود Sub SortMultipleColumns() With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Range("E4"), xlSortOnValues, xlAscending .SortFields.Add Range("F4"), xlSortOnValues, xlAscending .SortFields.Add Range("G4"), xlSortOnValues, xlAscending .SortFields.Add Range("H4"), xlSortOnValues, xlAscending .SortFields.Add Range("I4"), xlSortOnValues, xlAscending .SortFields.Add Range("J4"), xlSortOnValues, xlAscending .SortFields.Add Range("L4"), xlSortOnValues, xlAscending .SetRange Range("A7").CurrentRegion.Offset(2) .Header = xlYes .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub أرجو أن يفي بالغرض

72 _ برنامج مخازن _ الاستاذ / محمد حسن المحمد

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

تفضل قائمة منسدلة في الفورمة.rar

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

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

126 _ الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية _ الاستاذ / ياسر خليل أبو البراء 127 _ مثال بالإكسيل على حساب القيمة الحالية لصافى التدفات النقدية و معدل العائد الداخلي _ للاستاذ / محمد طاهر

السلام عليكم قمت بالتعديل على الملف المرفق بحيث ازلت الدمج عن بعض الأعمدة في ورقة عمل جديدة وضعت لك زر أمر لجلب المدارس الغير موجودة جرب المرفق a1.rar

حبيبي والله تسلم الف شكر ياغالي

كلامي اعلاه لا يحتاج الى امثلة ؟ وهو من اساسات بناء قواعد البيانات ، وهو اول ما نتعلمه عند انشاء الجداول الموظفين ، المدن ، الأصناف ... وغيرها كثير .. الطلاب ، الصفوف ، الشعب ، المعلمين .. الخ كل واحد منها لا بد ان يأخذ معرفا خاصا به ، ليتم التعامل بعد ذلك عبر هذا المعرف اما الاسماء والصفات الاخرى كالعناوين والهواتف والمرتبات والاجور وغيره فيتم جلبها بمعلومية هذا المعرف آمل ان يكون بهذه الاسطر ما يفيدك وتنتفع منه علما انك لو بحثت داخل المنتدى لوجدت الكثير

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

بارك الله فيك اخوي وكثر الله من امثالك

بارك الله فيك أخي الغالي أبو عيد وجزيت خيراً على الموضوع الجميل تقبل تحياتي

Private Sub UserForm_Activate() For r = 1 To Sheets("ورقة1").[a65500].End(xlUp).Row ListBox1.AddItem Format(Sheets("ورقة1").Cells(r, 1), "dd-mm-yyyy") Next End Sub الكود يكون بهذا الشكل

Private Sub ComboBox1_Change() Sheets(CStr(ComboBox1.Text)).Select End Sub Private Sub UserForm_Initialize() For i = 1 To Worksheets.Count If Not Worksheets(i).Name = "كشف" Then Cells(i, 2) = Worksheets(i).Name ComboBox1.AddItem Worksheets(i).Name End If Next End Sub السلام عليكم استعمل هذا

جميل جدا شرح وافي و كافي و صافي و منو ما في . . . . يلا عوافي

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

أخي الكريم من الذي قام بحذف مشاركاتك؟!!! لا تلقي بالتهمة على أحد إلا بعد أن تتأكد من كلامك .. ثم إن الإشراف مسئولية ويجب على المشرف أن يقوم بعملية تنظيم المنتدى ، عشان ببساطة متكونش سبهللة لما يكون فيه موضوع مكرر بيتم حذف المكرر أو دمج الموضوعات ... لما بيكون فيه مشاركة مسيئة بيتم حذفها .. لما بيكون فيه مشاركة في غير محلها بيتم حذفها ... واللي مش عاجبه ممكن يتقدم بطلب شكوى لإدارة المنتدى ، ليتم إقالة المشرف الذي يسيء للأعضاء

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله استناداً إلى الموضوع في الرابط التالي من هنا قمت بتطوير كود بحيث يمنع التكرار في العمود الأول ، وفي نفس الوقت يسمح للنسخ لخلية واحدة فقط ، أما إذا تم النسخ لأكثر من خلية فإنه يتم التراجع عن الأمر ومسح الخلايا المنسوخة ها هو الكود يوضع في حدث ورقة العمل ، ويتم التعامل مع العمود الأول Private Sub Worksheet_Change(ByVal Target As Range) Dim Cl As Variant, Dat As Variant Dim DupCtr As Double Dim LastRow As Long If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then Application.EnableEvents = False If Target.Cells.Count > 1 Then Dat = Target.Formula For Each Cl In Dat If Cl <> "" Then MsgBox "Change Only One Cell At A Time", , "Too Many Changes!" Application.Undo: Application.CutCopyMode = False GoTo Skipper End If Next Cl End If '========================================================================= LastRow = Cells(Rows.Count, "A").End(xlUp).Row DupCtr = Application.WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(LastRow, "A")), Target.Text) If DupCtr > 1 Then MsgBox "You Have Entered A Duplicate" Target.ClearContents: Target.Activate GoTo Skipper End If End If Skipper: Application.EnableEvents = True End Sub أرجو أن يكون الموضوع مفيد لكم حمل الملف من هنا تقبلوا وافر تقديري واحترامي

تفضل اخي المطلوب بحث معدل.rar

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

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

برنامج نور التجاري والخدمي (هدية العام الهجري الجديد) ضاحي الغريب و شوقي ربيع ************** سلسلة : تعلم اكسل معي بالصوت والصورة محمد نصري ************** دروس فى VBA Excel _ نتعلم معا برمجه اكسل محمود الشريف ************** افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) ياسر خليل أبو البراء ************** سلسلة علمنى كيف اصطاد ( الفورم ) Forms حسام عيسى (صقر المنتدى) ************** فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد الأستاذ المخضرم / مجدي يونس **************