dah_med قام بنشر أكتوبر 14, 2010 قام بنشر أكتوبر 14, 2010 السلام عليكم ورحمة الله بركاته أولا معذرة لهذا الإنقطاع عن منتدانا الغالي وذلك لأسباب إجتماعية هذا طلب لتكملة عمل سابق وهو قوائم التلاميذ أريد أن أن تتغير الخلية التي بها مدير المؤسسة في الأسفل على حسب طول القائمة مثلاإذا كان حدود القائمة في السطر 33 تأتي كلمة مدير المؤسسة في الخلية 35 وإذا إذا كان حدود القائمة في السطر 40 تأتي كلمة مدير المؤسسة في الخلية 42 وهكذا على حسب طول قائمة التللميذ وجزاكم الله خيرا مسبقا التعداد والقوائم 2010-2011.rar
بن علية حاجي قام بنشر أكتوبر 14, 2010 قام بنشر أكتوبر 14, 2010 السلام عليكم ورحمة الله أخي الكريم أهلا بك من جديد بيننا وبين إخوانك... قمت ببعض التغييرات على كود الترحيل وأضفت معادلة تضع عدد تلاميذ القسم في الخلية K1 (مخفية تحت زر الطباعة) للضرورة... أرجو أن يكون التغيير مناسبا للمطلوب... أخوك بن علية التعداد والقوائم 2010-2011.rar
ياسر خليل أبو البراء قام بنشر أكتوبر 14, 2010 قام بنشر أكتوبر 14, 2010 بارك الله فيك يا بن علية أنت السهل الممتنع.. زادك الله علماً
بن علية حاجي قام بنشر أكتوبر 14, 2010 قام بنشر أكتوبر 14, 2010 السلام عليكم ورحمة الله أخي الكريم، تم تصحيح بعض الخطأ(تمديد نطاق المسح) والاستغناء عن الخلية K1 في الكود... ألق نظرة على الملف المرفق... أخوك بن علية التعداد والقوائم 2010-2011.rar
dah_med قام بنشر أكتوبر 14, 2010 الكاتب قام بنشر أكتوبر 14, 2010 السلام عليكم ورحمة الله أخي بن علية جزاك الله كل خير على المساعدة
عبد الفتاح كيرة قام بنشر أكتوبر 24, 2010 قام بنشر أكتوبر 24, 2010 (معدل) مع الشكر الجزيل للأخ بن علية فى الملف الأول قبل التعديل يمكن معرفة نهاية القائمة وطباعة مدير المؤسسة بالكود التالى Cells(Application.WorksheetFunction.CountA(Range("a7:a" & Rows.Count)) + 8, 6) = "مدير المؤسسة" و الفكرة هى عد العناصر فى العمود الأول بعد انتهاء الترحيل ونزيد عليه 8 صفوف مع الشكر لك و إن كنت أفضل أن يضع السائل عبارة مدير المؤسسة بتذييل الصفحة تم تعديل أكتوبر 24, 2010 بواسطه kemas
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.