أكرم الغامدي

ممتاز جداً أخي أبو أسامة .... ولكن لي سؤال بهذا الخصوص لو تكرمت؟ هل من الممكن تطبيق ذلك على الأشهر الهجرية؟

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

ههههههههههههههههه فقط قمت باستبدال النداء من مكان لآخر، بدل ما كان قبل إغلاق الملف أصبح عند الحفظ.

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

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

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

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

أستاذ عمر أقسملك بالله أن هذا الشي الذي فعلته بمنتهى الروعة ويستحق أكبر شهادة تقدير ولكن للأسف .... يوجد به ثغرات. هل يكفيك أن أقول لك أن اسم المديول: O_Omar_1_O ؟

يعطيك العافية أحي هشام حركة جميلة ولكن التنفيذ لا يأتي بهذه الطريقة، فقد أدى الكود الذي كتبته لحدوث مشاكل في الاكسل لدي ولدى كل من قام بتحميل الملف وتشغيله. وللتأكيد على صحة ما أقوله أنه ليس في كل مرة تقوم فيها بفتح البرنامج يقوم الكود بالعمل وعند حذفك لأي ورقة لن يأتيك أي تخذير كما كان في السابق. فقد قمت بتعطيل الثلاث خواص بدون إرجاع عملها مرة أخرى، وهي: DisplayAlerts ScreenUpdating EnableEvents أي أنه بسبب الخروج من البرنامج لم يعمل الكود التالي(والذي يقوم بإرجاع الاكسيل لحالته الطبيعية): Application.DisplayAlerts = True Application.ScreenUpdating = True Application.EnableEvents = True وقد أرفقت ملف لإصلاح المشاكل التي حدثت (fix) والملف الآخر به الكود المعدل (Exp.Date) fix.rar Exp.Date.rar

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

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

حياكم الله اخواني، وشكراً على المرور.

أخي أبو أكرم أنت فعلا تأخذ العقل حبيبي بارك الله فيك. أشكرك على المساندة والمساعدة لإخوانك بهذا المنتدي الذي نحن فيه لهذا السبب. وأشكر كل من قام بالمرور والتعليق في الموضوع. وأحب أن أضيف معلومة صغيرة: أنه يوجد برنامج يتحكم بأي ملف إكسل تريده ليجعله كملف تنفيذي دون الحاجة لتمكين وحدات الماكرو. وهذه ملفات محسّنة بالمرفقات. الملف (3Times Only) نفس الملف القديم ولكن به تغيير بسيط. الملف (New Chance) يعطي فرصة جديدة أي يصفر العملية من جديد. 3_Times_Only.rar New_Chance.rar

واياك أخي الكريم وشكراً على المرور. جزاك الله خيراً أخي الحبيب أبو أكرم بارك الله فيك وفي كلماتك، وأشكر لك ردك الحميل ومرورك الأجمل.

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

مشكور أخي أبو أكرم، بارك الله فيك وأكثر من أمثالك.

وهذه هي محاولتي المتواضعة. مع تمنياتي لك بالتوفيق أخي سالم. وكل عام وأنت بخير. countif2AllRows.rar

نعم تستطيع ذلك عن طريق معادلة أوفيست (OFFSET). وسأوافيك بالحل عما قريب إن لم يسبقني به أحد الأخوة المحترفين. وسبب عدم ردي الكامل هو أنني لازلت لم أفهم هذه المعادلة تماماً.

ههههههههههههههههه، لا بس ملعوبة حكاية ATTACH MEAT بارك الله فيك أخي الحبيب، وأنت كذلك تستحق وبجدارة أن تكون من المشرفين. وأنت بأتم صحة وعافية وسرور يا رب. تقبل الله منا ومنكم الطاعات وصالح الأعمال. مع تمنياتي لك ولجميع الأخوة أعضاء المنتدى المحترمين بدوام التوفيق. وكل عام وأنتم بخير جميعاً.

تفضل أخي h63 إليك ما طلبت. FromA1ToA15.rar

بارك الله فيك.

حياكم الله اخواني وشكراً على الدعوات الطيبة. أخي h63 هل تقصد دمج؟ اذا كنت تقصد ذلك فهذا هو الكود: Range("B5:B15").Merge

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

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

بالنسبة للملف فهو فعلاً الملف الصحيح ولكن يبدو أنك لم تلاحظ الفرق بينه وبين الملف الأصلي. توجد علامة (+ أو -) تقوم بإخفاء وإظهار الصفان رقم (3 و 4) وبإمكانك متابعة الرابط التالي: http://www.officena.net/ib/index.php?showtopic=20824 وتقوم بتسجيل ماكرو ثم تقوم بإخفاء الصفين المراد إخفائهما ثم تقم بإيقاف عملية التسجيل، بعد ذلك تقوم بوضع زر ثم تربطه بالماكرو الأخير الذي تم إنشائه وتكتب على الزر إخفاء الدليل.