خير الايمان قام بنشر أبريل 23, 2011 قام بنشر أبريل 23, 2011 السلام عليكم ورحمة الله وبركاته الاسادة عمالقة الاكسل اسال الله لكم دوام الصحة والعافية مرفق جدول به طلب ارجوا حل مشكلتى به جزاكم الله عني خيرا وجعل جهدكم في ميزان حسناتكم تقديري واحترامي Book1.rar
الحسامي قام بنشر أبريل 23, 2011 قام بنشر أبريل 23, 2011 لسلام عليكم تم عمل المطلوب بناءا على فكرة جديدة علها تكون ما تطمح اليه Book1.rar
دغيدى قام بنشر أبريل 23, 2011 قام بنشر أبريل 23, 2011 أخى الحسامى دائما كالحسام فى تنفيذ الأعمال يارب يوفقكم فى كل مناحى الحياة ** جمال دغيدى
Sherif Hamouda قام بنشر أبريل 24, 2011 قام بنشر أبريل 24, 2011 السلام عليكم مشكور اخى الحسامى على هذا العمل ممكن الشرح
عبدالله المجرب قام بنشر أبريل 24, 2011 قام بنشر أبريل 24, 2011 الاستاذ الفاضل الحسامي الحمدلله عالسلامة وبالفعل فكرة جديدة وجميلة وابداع متميز تقبل مروري ابواحمد
saad abed قام بنشر أبريل 24, 2011 قام بنشر أبريل 24, 2011 اخى عماد الحسامى كلمة الابداع كلمة قديمة سابحث فى مفردات اللغة عن كلمة اقوى منها جزاك الله خيرا وارجو الا تغيب علينا وحنى يعلم اخوتى لماذا قلت ان وجود الحسامى بيننا احسن وافضل من برنامج الفواتير لاننا كل يوم نتعلم منه الجديد اخوك/ سعد عابد
خير الايمان قام بنشر أبريل 24, 2011 الكاتب قام بنشر أبريل 24, 2011 (معدل) السلام عليكم ورحمة الله وبركاته سيدي المحترم / الحسامي عجز حرفي ان يوفي شكر سيادتكم على هذا الرقي والابداع وتم تطبيق العمل بنجاح على اكثر من عمل ولكن وجهتنى مشكلة في التطبق على هذا المرفق فهل اطمع في حلها دمت بحفظ الله وامنه ونفعك الله بدعائي لك بظهر الغيب تقديري واحترامي Book22.rar تم تعديل أبريل 24, 2011 بواسطه خير الايمان
الحسامي قام بنشر أبريل 24, 2011 قام بنشر أبريل 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 كذلك ارجو ان وفقت بشرح الخلل
خير الايمان قام بنشر أبريل 25, 2011 الكاتب قام بنشر أبريل 25, 2011 ســــــــــيدي جزاك الله كل الخير وجعله في ميزان حسناتك دمت برعاية الله وامنه تقديري واحترامي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.