عبدالسلام علي قام بنشر ديسمبر 17, 2013 مشاركة قام بنشر ديسمبر 17, 2013 عندي كشف به 80 طالب واريد ان اطبع هذا الكشف بحيث يكون في كل صفحة 10 طلاب فقط على ان يكون هناك بيانات في اسفل الصفحة داخل جدول السؤال هل هناك طريقة لتكرار هذا الجدول في جميع الصفحات لاني حاولت في تذيل الصفحة وما نجحت رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر ديسمبر 17, 2013 مشاركة قام بنشر ديسمبر 17, 2013 اخى العزيز ارفق الملف الخاص بك وسيتم العمل عليه ان شاء الله رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 17, 2013 الكاتب مشاركة قام بنشر ديسمبر 17, 2013 تفضل اخي الملف مشكور الأول أساسي تجربة.rar رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر ديسمبر 18, 2013 مشاركة قام بنشر ديسمبر 18, 2013 اخى العزيز اليك الملف بعد التعديل الأول أساسي تجربة.rar رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 18, 2013 الكاتب مشاركة قام بنشر ديسمبر 18, 2013 مشكور اخي على اهتمامك ولكن الجدول الذي يحوي البيانات غير موجد رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر ديسمبر 18, 2013 مشاركة قام بنشر ديسمبر 18, 2013 اخى الحبيب كل بيانات الجدول موجود فى تزييل الصفحة وستظهر فى كل الصفحات رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر ديسمبر 18, 2013 مشاركة قام بنشر ديسمبر 18, 2013 اثراءا للموضوع :- ده حل عن طريق الاكواد اتمني ان يفي بالغرض الأول أساسي تجربة.rar رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 18, 2013 مشاركة قام بنشر ديسمبر 18, 2013 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ العزيز قنديل الصياد الاستاذ والاخ العزيز حسين العصلوجي جزاكم الله خيرا تنوع بالحلول ومشاركات رائعة جعلها الله في ميزان حسناتكم وفقكم الله وزادكم من فضله علما وخيرا كثيرا دمتم بحفظ الله ورعايته رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر ديسمبر 18, 2013 مشاركة قام بنشر ديسمبر 18, 2013 رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 18, 2013 الكاتب مشاركة قام بنشر ديسمبر 18, 2013 مشكورين جميعاً وياريت يا اخ حسين تعلمني الطريقة لاني عندي كشوفات اخرى اريد ان اعمل عليها نفس الطريقة على راي المثل لاتعطيني سمكة وفي ميزان حسناتك رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر ديسمبر 19, 2013 مشاركة قام بنشر ديسمبر 19, 2013 فكرة الكود تقوم علي نسخ 10 اسماء من الورقة 1 الي ورقة 2 بناءا علي الرقم الذي تقوم انت بادخاله X = ((ws2.Cells(2, 24) - 1) * 3) + 10 Set srng = ws2.Range("a9:v38") srng.Clear Set srng2 = ws.Cells(X, 1).Resize(29, 22) حيث ان قيمة ال x تعتمد علي القيمة التي قمت بادخالها بالورك شيت ومنها يتم تحديد المدي المطلوب ونقله الي صفحة الطباعة راجع الكود مره اخري وحدد الاجزاء التي صعب عليك فهمها وستجد الشرح مني ومن كافة اعضاء المنتدي الكرام رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 19, 2013 الكاتب مشاركة قام بنشر ديسمبر 19, 2013 مشكور اخي الطريقة التي استخدمتها انك نسخت بداية الجدول ونهاية الجدول في ورقة الطباعة وجعلتها ثابتة اليس كذلك وانك قمت بتسمية نطاق لكن ياريت تفسرلي هذا الجزء من الكود X = ((ws2.Cells(2, 24) - 1) * 3) + 10 Set srng = ws2.Range("a9:v38") srng.Clear Set srng2 = ws.Cells(X, 1).Resize(29, 22) رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 20, 2013 الكاتب مشاركة قام بنشر ديسمبر 20, 2013 اخي حسين ماهي الاخطا التي وقت فيها لاني نسخت الكود وتدربت عليه فوجدت انه لا يتم النسخ بصورة جيدة الا بعد تعديل الرقم من 10 الى 14 وباقي الملاحظات تجدها في الورقة الطباعة 2 ومشكور اخي على مجهوداتك الأول الثانوي.rar رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 اخي حسين ماهي الاخطا التي وقت فيها لاني نسخت الكود وتدربت عليه فوجدت انه لا يتم النسخ بصورة جيدة الا بعد تعديل الرقم من 10 الى 14 وباقي الملاحظات تجدها في الورقة الطباعة 2 ومشكور اخي على مجهوداتك الخطاء في الكود هو في هذا السطر:- X = ((ws2.Cells(2, 23) - 1) * 3) + 11 حيث ان الخلية المرجعية هي w2 وليس x2 كما اضفت 14 في المرة الاولي لان عدد صفوف رؤوس الجدول 14 سطر لكن في حالتك 11 سطر فقط H-الأول الثانوي.rar مشكور اخي الطريقة التي استخدمتها انك نسخت بداية الجدول ونهاية الجدول في ورقة الطباعة وجعلتها ثابتة اليس كذلك وانك قمت بتسمية نطاق لكن ياريت تفسرلي هذا الجزء من الكود X = ((ws2.Cells(2, 24) - 1) * 3) + 10 Set srng = ws2.Range("a9:v38") srng.Clear Set srng2 = ws.Cells(X, 1).Resize(29, 22) السطر الاول : لتحديد اول سطر في الجزء المطلوب نسخه لورقة الطباعه حيث ان الاسم مكون من 3 صفوف وتضيف عدد الصفوف المكونة لراس الجدول ------------------- السطر الثاني : لمس محتويات صفحة ورقة الطباعة التي سبق نسخها من قبل ------------------- السطر الثالث : لتحديد الجزء الذي سيتم نسخه حيث x اول سطر ويتم زيادة 30 صف (10 اسماء * 3 بنو للاسم ) و22 عمود الموجودين بالجدول ------------------- ارجو ان اكون وفقت في توضيح الفكرة لك رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 20, 2013 الكاتب مشاركة قام بنشر ديسمبر 20, 2013 (معدل) وفقت اخي العزيز ولكن سؤال اخير الخلية w2 هل هي مرجع لنطاق لخلايا لم افهمها جيدا اسمحلي اخي مازلت مبتدئ تم تعديل ديسمبر 20, 2013 بواسطه عبدالسلام علي رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 20, 2013 الكاتب مشاركة قام بنشر ديسمبر 20, 2013 كفيت وفيت لكن الخلايا w2 هل قمت بتسمية نطاق لها او انها تعمل مع الكود لاني جربتها عندما اقوم بتغير الرقم نجده ثابت 1 الى 10 على طول ومشكور مقدما رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 ws2.Cells(2, 23) هي الخلية w2 وهي الخلية التي تقوم بادخال برقم اول اسم فيها ومنها يقوم الكود بتحديد بداية الجدول الذي سيتم نسخه رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر ديسمبر 20, 2013 الكاتب مشاركة قام بنشر ديسمبر 20, 2013 مشكور اخي الذي كان موش واضح معي هو 23 و 24 هو عدد الاعمدة ولك شكري وتقديري واسمحلي مرة اخرة على جهدك وسعة صدرك اللهم ما اجعله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 منتهي الجمال اخي الحبيب / حسين العصلوجى وبالفعل متميز دائما احب دائما كما قلت لك سابقا متابعة ردودك تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان