م.مهند القانوع قام بنشر يوليو 26, 2015 قام بنشر يوليو 26, 2015 الاخوة الاحباب ارجو المساعدة في المطلوب داخل الملف المرفق و بارك الله فيكم test.rar
علي الشيخ قام بنشر يوليو 26, 2015 قام بنشر يوليو 26, 2015 السلام عليكم أتفضل أخي شوف الملف المرفق الورقة 5 الجدول Evening اللي تم عمله إنك بمجرد إضافة قيم للجدول Evening باستخدام الصفحات الأولى طبعا سيتم عمل الجدول تلقائيا لكل القيم المضافة ويتم حذف الجدول بحذف القيم والملف للتجربة ان شاء الله يكون المطلوب واذا كان سيتم عمله لباقي الجداول بنفس الطريقة test.rar
م.مهند القانوع قام بنشر يوليو 26, 2015 الكاتب قام بنشر يوليو 26, 2015 الاخ الكريم /على الشيخ هذا ما اريد فعلا و لكن لم ارى اكواد ..نود منك الافادة حيث ان المرفق هو ملف مبسط من البرنامج و اريد تطبيق الموضوع على البرنامج الاصلي و بارك الله فيك
علي الشيخ قام بنشر يوليو 26, 2015 قام بنشر يوليو 26, 2015 الاخ الكريم /على الشيخ هذا ما اريد فعلا و لكن لم ارى اكواد ..نود منك الافادة حيث ان المرفق هو ملف مبسط من البرنامج و اريد تطبيق الموضوع على البرنامج الاصلي و بارك الله فيك السلام عليكم أخي الفاضل تم استخدام التنسيق الشرطي Conditional Formatting ولم يتم استخدام أكواد في التنسيق الشرطي يتم استخدام هذه المعادلة =IF($F6<>"",COUNTA($F6:$J6)>0,"") حيث إن F6 الأولى التي على أساسها يتم عمل إطار للخلايا والنطاق من F6:J6 هو الذي يتم عمل الإطار له وبعد ذلك في نافذه التنسيق الشرطي هتضغط على Format ثم Border لتحدد شكل الإطار كما تشاء ويمكنك نسخ التنسيق إلى أي عدد من الصفوف تحت نفس النطاق كما تشاء وبتطبيق الخطوة السابقة على كل الجداول مع تغيير الخلية التي على اساسها يتحدد الإطار وأيضا تغيير النطاق ستعمل معك بدون مشاكل ان شاء الله لو مش واضح بالنسبة لك التنسيق الشرطي ممكن أوضحلك الخطوات كلها بالتفصيل بالصور ومن الأول وبالله يوفقك 1
م.مهند القانوع قام بنشر يوليو 27, 2015 الكاتب قام بنشر يوليو 27, 2015 التطبيق واضح تماما و بارك الله فيك استفسار آخر و اخير ان شاء الله اذا امكن نطاق الطباعة الحالي 3 صفحات و قد يصل الى اربعة صفحات او خمسة و قد يصل الى صفحة او صفحتين ..كل ذلك يرجع الى حجم البيانات المدخلة و يترتب عليها عدد صفحات الطباعة السؤال : كيف يمكن طباعة محتوى النتائج بشكل تلقائي دون طباعة صفحات فارغة او اذا زاد عدد الورقات عن الاطار المحدد و هو حاليا 3 صفحات ان يقوم بطباعة كافة النتائج و بارك الله فيكم جميعا
علي الشيخ قام بنشر يوليو 27, 2015 قام بنشر يوليو 27, 2015 السلام عليكم ورحمة الله مرحبا أخي تقدر تجرب التالي أولا هنعمل Dynamic Range للجدول والطريقة كالتالي من Formula Define a Name واكتب اسم الجدول زي ما تحب وليكن MyTable واكتب في خانة الـ Refers To المعادلة التالية =OFFSET(A1,0,0,COUNTA(A:A)-1,COUNTA(1:1)) واضغط اوكي وأخيرا هتضيف الكود التالي وتعمله زر للطباعة Sub Myprint() ActiveSheet.PageSetup.PrintArea = "MyTable" End Sub وشوف ان شاء الله يمشي الحال 1
م.مهند القانوع قام بنشر يوليو 28, 2015 الكاتب قام بنشر يوليو 28, 2015 اخى الكريم على قمت بكتابة الكود حسب الخطوات التى ذذكرتها كما تلاحظ في الملف المرفق لكن للاسف لم يعمل الكود الرجاء تطبيق الكود على الملف المرفق اذا امكن و بارك الله فيك test.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.