رجاء من عمالقة الاكسل الكرام

[خير الايمان]

السلام عليكم ورحمة الله وبركاته

الاسادة عمالقة الاكسل

اسال الله لكم دوام الصحة والعافية

مرفق جدول به طلب ارجوا حل مشكلتى به

جزاكم الله عني خيرا

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

تقديري واحترامي

Book1.rar

[الحسامي]

لسلام عليكم

تم عمل المطلوب بناءا على فكرة

جديدة علها تكون ما تطمح اليه

Book1.rar

[دغيدى]

أخى الحسامى

دائما كالحسام فى تنفيذ الأعمال

يارب يوفقكم فى كل مناحى الحياة

** جمال دغيدى

[احمد فضيله]

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

[Sherif Hamouda]

السلام عليكم

مشكور اخى الحسامى على هذا العمل

ممكن الشرح

[عبدالله المجرب]

الاستاذ الفاضل الحسامي

الحمدلله عالسلامة

وبالفعل فكرة جديدة وجميلة وابداع متميز

تقبل مروري

ابواحمد

[saad abed]

اخى عماد الحسامى

كلمة الابداع كلمة قديمة سابحث فى مفردات اللغة عن كلمة اقوى منها

جزاك الله خيرا

وارجو الا تغيب علينا وحنى يعلم اخوتى لماذا قلت ان وجود الحسامى بيننا احسن وافضل من برنامج الفواتير

لاننا كل يوم نتعلم منه الجديد

اخوك/ سعد عابد

[خير الايمان]

السلام عليكم ورحمة الله وبركاته

سيدي المحترم / الحسامي

عجز حرفي ان يوفي شكر سيادتكم

على هذا الرقي والابداع

وتم تطبيق العمل بنجاح على اكثر من عمل

ولكن وجهتنى مشكلة في التطبق على هذا المرفق

فهل اطمع في حلها

دمت بحفظ الله وامنه ونفعك الله بدعائي لك بظهر الغيب

تقديري واحترامي

Book22.rar

تم تعديل أبريل 24, 2011 بواسطه خير الايمان

[الحسامي]

السلام عليكم

احبتي واخوتي الكرام بارك الله فيكم

على هذا الكلام الجميل وهذا والله بعض

مما عندكم وابقانا الله عند حسن ظن الجميع

----------------------------------------

اخي الكريم

ملف مليئ بالمعادلات وهذا يعمل على بطء الملف بصورة كبيرة وملحوظة

ثم ان هناك بعض التعديلات الذي يجب عليك تعديلها وهي

  Sheet1.Rows("15:2597").Hidden = True

هنا في السطر الاول اسم الصفحة خاطئ وهنا تم كتابة sheet1 وهي بالاساس sheet6 وهذا الاسم الذي يظهر فس محرر الفيجول وليس الاسم الظاهر في الشيت الرئيسية ويجوز وبما ان الاداة تعمل على نفس الصفحة يمكنك كتابة الكود بدون ذكر الصفحة كذلك هذا السطر يعمل على اخفاء الاسطر جميعها وهي في مثالك تبدأ من السطر رقم 4 وتنتهي بالسطر رقم 2600 وبالتالي سيصبح الكود بالصورة التالية

Rows("4:2600").Hidden = True

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

Rows([a1] & ":" & [a1] + 20).EntireRow.Hidden = False

ويجب علينا كذلك تحديد خصائص الاداة وتحديد القيمة الصغرى لها وهي هنا 4 (السطر الاول ) والقيمة الكبرى وهي هنا 2600 ( السطر الاخير ) ويتم ربطها بالخلية a1 كذلك

ارجو ان وفقت بشرح الخلل

[خير الايمان]

ســــــــــيدي

جزاك الله كل الخير

وجعله في ميزان حسناتك

دمت برعاية الله وامنه

تقديري واحترامي