ياسر خليل أبو البراء

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

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

جرب الملف المرفق فقط حدد أي خلية في النطاق H3:H8 Abdallah.rar

أخي بالنسبة لتعلم الفيجوال بيسك فيه دورة للمبتدئين على هذا الرابط http://www.officena.net/ib/index.php?showtopic=56941 تقبل تحياتي

إخواني الكرام تفضلوا الإصدار الأخير من مكتبة الصرح وإليكم فهرس المكتبة إلى الآن تغيير عنوان تطبيق الإكسيل إخفاء وإظهار شريط الصيغ (المعادلات) إظهار الشاشة (نافذة تطبيق الإكسيل) بالكامل فتح الـ CD-ROM وإغلاقه دالة فصل الحروف عن الأرقام تغيير عنوان الفورم الحفظ والخروج التلقائي من الإكسيل حفظ المصنف وإغلاقه تصدير البيانات من الإكسيل إلي الأكسيس إنشاء فهرس بأوراق العمل إظهار رسالة عند فتح المصنف إخفاء وإظهار عناوين الصفوف والأعمدة إظهار وإخفاء أوراق العمل عن طريق مربع اختيار توليد أرقام عشوائية ربط Label في فورم بقيمة في خلية منع إضافة أوراق عمل جديدة منع عملية الطباعة في المصنف وأوراق العمل التبديل بين حماية ورقة عمل وإلغاء الحماية رسالة تحذير عند فتح الملف قبول TextBox لحروف فقط أو أرقام فقط فورم رزنامة تقويم Calendar لإدراج التواريخ عمل عداد Counter صندوق إدخال لمضاعفة العدد إخفاء وإظهار شريط الحالة كتابة جملة في شريط الحالة معاينة ما قبل الطباعة تحديد عدد مرات استخدام البرنامج إخفاء ورقة عمل وإظهارها بكلمة سر تقسيم الخلية إلى عدة أسطر (إلتفاف النص) استعادة أشرطة الأدوات CommandBars الفرز Sort حسب العمود المختار حذف الملف لنفسه بعد استخدامه 3 مرات مسح محتويات نطاق بعد وقت محدد إغلاق ملف الإكسيل بعد وقت محدد تشغيل الماكرو أوتوماتيكياً بعد مرور 10 ثواني تشغيل الماكرو في وقت محدد فرز البيانات أوتوماتيكياً بمجرد النقر المزودج دالة جمع الخلايا الملونة وعدها ملائمة عرض العمود لمحتوى النص دالة إرجاع اسم اليوم لتاريخ معين تغيير لون الخلايا عشوائياً إخفاء تطبيق الإكسيل لفترة من الزمن تنسيق أجزاء النص داخل الخلية الواحدة تلوين الخلية النشطة تلوين صف وعمود الخلية النشطة دالة معرفة عدد أيام الشهر لأي تاريخ حماية فورم بكلمة مرور متغيرة إخفاء الصفوف إذا كانت قيمة الخلية صفر أو فراغ إظهار جميع الصفوف والأعمدة في ورقة العمل حذف القيم المكررة داخل نطاق طباعة محتوى مربع القائمة ListBox من الفورم إخفاء وإظهار شريط الإكسيل Ribbon إخفاء وإظهار تبويبات أوراق العمل Sheet Tabs استرجاع البيانات عن طريق فتح المصنف الانتقال إلى أي كلمة داخل المصنف (البحث Find) ربط المصنف بوجود برنامج منصب على جهازك التحكم المطلق بمربع النص TextBox عمل شاشة توقف Screen Saver (محمية ) الترقيم التلقائي لنطاق معين انتهاء صلاحية مصنف في تاريخ محدد بحث عن طالب برقمه السرى (البحث بالفلترة) ترقيم أي خلية في العمود C تبعاً لرقم الصف توليد كود عشوائي (سيريال نمبر عشوائي) حماية فورم بكلمة مرور متغيرة حسب الوقت والتاريخ دالة تقوم بإرجاع اسم أول يوم وآخر يوم في الشهر عمل شاشة توقف Screen Saver (كود سهل) منع تغيير اسم ورقة العمل Codes Library v1.7.rar

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

جرب المرفق التالي في ورقة العمل Sheet2 جمع نطاق متحرك.rar

أخي الفاضل المعادلة في الخلية تكون ناتج لعمليات حسابية في خلايا أخرى على سبيل المثال ، فإذا أردت مسح القيمة دون مسح المعادلة فعليك بمسح القيم في الخلايا المرتبطة بالمعادلة مثال : لو الخلية A1 فيها رقم 10 والخلية B1 فيها رقم 20 ، والخلية C1 فيها معادلة جمع تجمع الخلية A1 و B1 ، يبقا لازم عشان تمسح القيمة الموجود في C1 إنك تمسح الخليتين من القيم الموجودة فيها ..عندها سيمسح قيمة الخلية

بارك الله فيك يا بان مصر يا غالي فينك من المشروع!!!!!مش عايز أعاتبك ولا ألومك ..بس ربنا يكون في العون ، عارف إن مشاغلك كتير

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

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

لا اعتقد ان هذا ممكن بالمعادلات إنما ممكن بالكود.. ارفق ملف نحاول فيه

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

أخي لاحظ الفرق إذا استخدم المعادلة Sum لجمع النطاق فسيكون الناتج مختلفاً إذا ما استخدمت Subtotal أي أنهما في هذه الحالة مختلفتن.. ناتج جمع النطاق D2:D14 يساوي 27,604.82 بينما ناتج Subtotal يساوي 13,802.41 لذا أطلب التوضيح .. ما رأيك لو استغنيت على سطر الإجمالي لكل شهر ...حتى لا يحدث اللبس الذي أتحدث عنه؟

أخي عبد الله بالنسبة للجمع ..جرب المعادلة التالية في الخلية H3 =SUM($G$3:G3) هل هذا هو المطلوب بالنسبة للجمع التلقائي؟ أم أنك تريد الجمع التلقائي بالكود؟ أم أنك تريد الإجمالي لكل الخلايا ؟ إذا كنت تريد الناتج لكل الخلايا فجرب المعادلة بالشكل التالي : =SUM($G$3:$G$8)

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

جرب الكود التالي Sub Auto_Open() Select Case Len(Dir("C:\Program Files\Skype", vbDirectory)) <> 0 Or Len(Dir("C:\Program Files (x86)\Skype", vbDirectory)) <> 0 Case True MsgBox "Hello" Case Else MsgBox "The Software Is Not Installed" ThisWorkbook.Saved = 1 Application.Quit End Select End Sub

أضف الصفر في السطر بهذا الشكل UserForm1.Show 0 في الثلاثة أكواد

Option Explicit Sub ConvertTextToNumber() Dim Cell As Range For Each Cell In Range("A1:A10") Cell.Value = Cell.Value * 1 Cell.NumberFormat = "0.00" Next Cell End Sub

بارك الله فيك أخي الحبيب عبد الباري اسمح لي أن أعرف ما هذا السطر MyTest = False

جرب الكود التالي Option Explicit Sub ConvertTextToNumber() Dim Cell As Range For Each Cell In Range("A1:A10") Cell.Value = Cell.Value * 1 Next Cell End Sub

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

جرب المرفق Book1.rar

أخي أكرم حمل آخر نسخة من المكتبة http://www.officena.net/ib/index.php?showtopic=57935&page=2#entry369417 قم بالبحث في صندوق البحث عن كلمة (البحث ) أو كلمة (الانتقال)

إخواني الأحباب لكم يشرفني ويسعدني مرور كبار المنتدى وأساتذتي الأجلاء على الموضوع ، والله إنه لشرف لي أن يشاركوا فيه .. ولكم أتمنى مداومة المشاركة حتى يخرج العمل في النهاية بأفضل صورة ويستفيد منه الجميع الكبير قبل الصغير والخبير قبل المبتديء .. أسأل الله العلي القدير أن ينفع بنا ويجعل عملنا في ميزان حسناتنا يوم القيامة الأخ الحبيب أبو محمد عباس تسلم على الكود الرائع وانتظر مني كود مشابه لنفس العمل ولكن ... سأذكر فيما بعد الأخ الحبيب عبد الله المجرب تسلم على الكود الرائع ، ولا تنسانا من روائعك المتميزة أما أنت يا أخي شوقي أما أنت فلا أجد لك كلمة أعبر لك بها عن فرحتي وسعادتي بمشاركتك وأرجو أن تكمل فرحتي بطلبين : الأول : المشاركة يومياً في الموضوع اسهاما منك في هذا المشروع الكبير الذي لطالما حلمت به وها هو بحمد الله بدأت بوادره في الظهور .. الطلب الثاني أن يكون الكود مدعوم بالشرح حتى تكون المكتبة زاخرة عامرة بالأكواد المفهومة لدى الناس تقبلوا تحياتي إخواني الأعزاء إليكم تجميعة اليوم 8 أكواد (بما فيها أكواد الأساتذة الكرام مع شرح مبسط لما استطعت شرحه) أترككم مع النسخة الأخيرة ، انسى اللي فات اعمل Delete ومتسيفش اللي فات ، خليك مع الجديد يا أبو عيد Codes Library v1.6.rar