قصي قام بنشر يناير 27, 2015 مشاركة قام بنشر يناير 27, 2015 بسم الله الرحمن الرحيم الأساتذه العظام جزاكم الله كل الخير وبعد هنا يوجد مرفقين المرفق الاول به كود غاية في الروعه خاص بشهادات الطلاب أريد نقله الى الملف الآخر شهادات جديد.rar أرقام الجلوس.rar رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 جميل ملف الشهادات ده رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 الاكثر جمالا ومنفعه لكثير من المدارس هو ارقام الجلوس بنفس الكود السريع ورقة ارقام الجلوس تقسيمة الورقه فيها افضل تقسيم لانها اخدت 9 ارقام وهو اكبر عدد ممكن في الورقة رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 هذا الملف به كود سهل ورائع لجلب بيانات ارقام الجلوس ويؤدي الغرض بعد تعديل بسيط في عدد ارقام الجلوس في الملف 2 في ملف اخي قصي 3 وال 3 افضل لتوفير الورق بعد اذن اخي قصي المهم ان نصل لاحد الكودين لجلب بيانات ارقام الجلوس كود لجلب بيانات ارقام الجلوس.rar رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 هذا هو الكود Sub تنسيق() AA = Range("صف").Value E = Range("نصف_الطلبة").Value Range("B4:P12").Select Selection.Copy For R = 1 To E ActiveCell.Offset(9, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next Application.CutCopyMode = False Range("B13:P" & AA).RowHeight = 27 End Sub Sub ترحيل() On Error Resume Next Application.ScreenUpdating = False تنسيق Range("B4:P4503").ClearContents AA = Range("صف").Value E = Range("نصف_الطلبة").Value U = 5 R = 6 For M = 1 To E Y = 2 For N = 1 To 2 Cells(U - 1, Y) = " رقم جلوس طالب " Cells(U, Y) = " " & Range("المديرية").Value Cells(U, Y + 5) = " رقم اللجنة / " Cells(U + 1, Y) = " " & Range("الادارة").Value Cells(U + 2, Y) = " " & Range("المدرسة").Value Cells(U + 3, Y) = " الاسم / " & Sheets("بيانات أساسية").Cells(R, 5) Cells(U + 4, Y) = " رقم الجلوس / " & Sheets("بيانات أساسية").Cells(R, 2) Cells(U + 5, Y) = " رئيس الكنترول / " Cells(U + 6, Y) = " ناظر المدرسة / " Y = 10 R = R + 1 Next N U = U + 9 R = R Next M ActiveSheet.PageSetup.PrintArea = "$B$4:$P$" & AA Application.ScreenUpdating = True On Error GoTo 0 End Sub Sub مسح() AA = Range("صف").Value Range("B13:P" & AA).clear Range("B13:P" & AA).Rows.AutoFit ActiveSheet.PageSetup.PrintArea = "$B$4:$P$12" End Sub Sub معاينة() ActiveWindow.SelectedSheets.PrintPreview End Sub رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 شكرا اخي علي فاهم وفي انتظار الاحباب أساتذة المنتدى العظام رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر يناير 29, 2015 مشاركة قام بنشر يناير 29, 2015 الكود حاسس اته سهل لانه بيوزع رقمين جلوس لو تم التغديل على العدد ال2 يبقوا 3 على نفس الكود حاولت كذا مره ولم يحالفني الحظ لني مبتدئ ربنا يعيين احد الخوة المتمكنين رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 29, 2015 مشاركة قام بنشر يناير 29, 2015 ما زلت مش فاهم ايه الرابط بين الملفين وايه الكود المطلوب تطويعه للملف الثاني ؟؟؟ 1 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 29, 2015 الكاتب مشاركة قام بنشر يناير 29, 2015 الحمد لله . الحمد لله الذي شرفنا بالاستاذ العظيم والاخ الكريم الدرة ( الماس ) محمد صالح الكود المرفق في المشاركة رقم 5 يجلب بيانات ارقام الجلوس بدون كتابة اي معادلات في ورقة ارقام الجلوس ولكنه يستدعي البيانات لعدد 2 رقم جلوس في اعلا الصفحة ونحن نريدها 3 ارقام في اعلا الصفخة مثل الموجوده بالمرفق في المشاركة الاولى باسم ارقام الجلوس لكي نوفر في الورق ولان المرفق المشار اليه باسم ارقام الجلوس لو قطعنا صفحة الطباعه الى 9 ارقام لوجدتها متساويه المقاسات ... هذا و لشخصكم الكريم الف الف تحيه رابط هذا التعليق شارك More sharing options...
عبد الحميد شقير قام بنشر يناير 30, 2015 مشاركة قام بنشر يناير 30, 2015 بارك الله فيكم جميعاً موضوع مهم جداً ...راحة لرؤساء الكنترولات رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 30, 2015 مشاركة قام بنشر يناير 30, 2015 أخي الكريم لا يستعمل الكود في مثل هذه الأمور والأفضل من وجهة نظري استعمال المعادلات في جلب البيانات مع تثبيت قالب للطباعة بمعنى نكتب رقم في خلية معينة يتم جلب 9 أرقام جلوس ثم يتم الطباعة وهكذا يستعمل الكود في تغيير الرقم إلى الرقم مضاف عليه 9 حتى يتم جلب 9 أرقام أخرى رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 30, 2015 مشاركة قام بنشر يناير 30, 2015 أخي الكريم لا يستعمل الكود في مثل هذه الأمور والأفضل من وجهة نظري استعمال المعادلات في جلب البيانات مع تثبيت قالب للطباعة بمعنى نكتب رقم في خلية معينة يتم جلب 9 أرقام جلوس ثم يتم الطباعة وهكذا يستعمل الكود في تغيير الرقم إلى الرقم مضاف عليه 9 حتى يتم جلب 9 أرقام أخرى الدرة النادرة استاذ ماس استسمحك في تجربة المرفق الموجود في المشاركة 4 ستجد ان الكود يستدعي البيانات بدون كتابه اي معادلات فوق ارقام الجلوس عند المسح يمسح الجميع ماعدا عدد 2 رقم جلوس نريد نفس الغكره مع اختلاف بسيط هو عدد ارقام الجلوس في اعلا ورقتنا3 ارقام هذا هو الاختلاف الوحيد فإن تم تعديله اصبح راائع وهو المطلوب رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 30, 2015 الكاتب مشاركة قام بنشر يناير 30, 2015 هذا هو الكود الذي يجعل عدد ارقام الجلوس غي اعلا الصفحة 2 اين جزئيه التغيير لكي نجعل عدد ارقام الجلوس في اعلا الصفحة 3 Sub ترحيل() On Error Resume Next Application.ScreenUpdating = False Range("B13:P4503").ClearContents تنسيق AA = Range("صف").Value E = Range("نصف_الطلبة").Value U = 5 R = 6 For M = 1 To E Y = 2 For N = 1 To 3 Cells(U, Y + 5) = " رقم اللجنة / " & Sheets("بيانات أساسية").Cells(R, 20) Cells(U + 3, Y) = " الاسم / " & Sheets("بيانات أساسية").Cells(R, 5) Cells(U + 4, Y) = " رقم الجلوس / " & Sheets("بيانات أساسية").Cells(R, 2) Y = 10 R = R + 1 Next N U = U + 9 R = R Next M ActiveSheet.PageSetup.PrintArea = "$B$4:$P$" & AA Application.ScreenUpdating = True On Error GoTo 0 End Sub رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 30, 2015 الكاتب مشاركة قام بنشر يناير 30, 2015 احبابي الاساتذه الكرام المشركة رقم 4 بها الكود والصفحة جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 30, 2015 مشاركة قام بنشر يناير 30, 2015 اخوانى الكرام حسبت ما فهمت .. فهذه محاولة لجعل عدد بطاقات أرقام الجلوس الأساسية في الصفحة 3 بدلا من 2 وتوفيرا في الأوراق يتم طباعة 12 بطاقة في الصفحة الواحدة مرفق الملف لعل هذا يفى بالمطلوب تحياتي للجميع تقسيم الفصول حسب الاسماء وحسب الدرجات وحسب النوع.rar رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 31, 2015 الكاتب مشاركة قام بنشر يناير 31, 2015 يجزيك الله خير الجزاء يجزيك الله خير الجزاء يا ابن مصر ارجوك .. تطبيق كودك هذا على الورقة الموجودة بالمشاركة الاولى المسماه أرقام الجلوس ثانيا كرما منك ماهي التغييرات التي تمت في الكود حتى تصل الى هذه النتيجة المشرفه سينسب لك ان شاء الله عمل 3ارقام في اعلا الصفحة لانه لايوجد اي عمل من هذا النوع يجزيك الله خير الجزاء يجزيك الله خير الجزاء يا ابن مصر رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 استاذى الفاضل قصى راجع هذا الرابط ربما تجد طلبك http://www.officena.net/ib/index.php?showtopic=58385&hl= تصفح الموضوع الى اخره ستجد مبتغاك تقبل تحياتى رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 عشت يا إبن مصر .. عشت وعاش امثالك الذين يبتغون وجه الله في اعمالهم كرما منك اشرح الكود ظللت يومين اغير في الكود ولم اعرف التغيير فيه كيف اتي باسم رئيس الكنترول واسم ناظر المدرسه رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 الاستاذ الخلوق الصقر جزاك الله خيرا هذا الكود لانكتب في ارقام الجلوس اي معادله سريع جدا يظهر كل ارقام الجلوس مرة واحده فلا يرهق الطابعه اثناء الطباعه لانه عند طباعه ارقام الجلوس بفكرتك تجعل الطابعه تهنج جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 جميل رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 اعمال روعه يجعلها الله في كفة حسناتكم جزاك الله كل خير يا استاذ /ابن مصر جزاك الله كل خير استاذ / الصقر موضوع مهم رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 الاستاذ الفذ وقطب المنتدى ابن مصر لن اجد خيرا من هذه الكلمات التي ذكرها اخي ابن بنها عشت يا إبن مصر .. عشت وعاش امثالك الذين يبتغون وجه الله في اعمالهم رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 يجزيك الله خير الجزاء يجزيك الله خير الجزاء يا ابن مصر ارجوك .. تطبيق كودك هذا على الورقة الموجودة بالمشاركة الاولى المسماه أرقام الجلوس ثانيا كرما منك ماهي التغييرات التي تمت في الكود حتى تصل الى هذه النتيجة المشرفه سينسب لك ان شاء الله عمل 3ارقام في اعلا الصفحة لانه لايوجد اي عمل من هذا النوع يجزيك الله خير الجزاء يجزيك الله خير الجزاء يا ابن مصر أخى الفاضل أ.قصي جزانا الله واياك كل الخير أخى الكريم ... مرفق ملفك الموجود بالمشاركة الأولى مع تعديل الكود ليناسب طلبك .. كل ما عليك بورقة العمل "بيانات الطلبة" وفي الخلايا A1 و A2 و A3 ... قم بكتابة اسم الادارة والمدرسة والفصل ... وفي الخلايا J1 و J2 و F3 اكتب اسم رئيس النظام والمراقبة ومدير المدرسة والعام الدراسي ثم اذهب الى ورقة العمل "أرقام الجلوس" وفي الخلية C1 اكتب عدد الطلاب الذى تريد طباعتهم وفي الخلية E1 اختر رقم الجلوس الذي تود البدء به من القائمة المنسدلة واضغط استدعاء البيانات أخيرا : لا أريد أن ينسب لى شئ كل ما اريده الدعوة الصادقة من القلب بظهر الغيب ... وفقنا الله واياكم الى ما يحب ويرضي تقبل تحياتي كود رقم الجلوس.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 عشت يا إبن مصر .. عشت وعاش امثالك الذين يبتغون وجه الله في اعمالهم كرما منك اشرح الكود ظللت يومين اغير في الكود ولم اعرف التغيير فيه كيف اتي باسم رئيس الكنترول واسم ناظر المدرسه جزانا الله واياك كل الخير اخى الكريم وان شاء الله لو وجدت اى وقت هشرحله لحضرتك حاضر .. تقبل تحياتي جميل انت الأجمل أخى الفاضل أبو حازم .. شرفنى مرورك وتقبل تحياتي اعمال روعه يجعلها الله في كفة حسناتكم جزاك الله كل خير يا استاذ /ابن مصر جزاك الله كل خير استاذ / الصقر موضوع مهم خالص شكري وامتنانى لدعوتك الكريمة .. تقبل تحياتي الاستاذ الفذ وقطب المنتدى ابن مصر لن اجد خيرا من هذه الكلمات التي ذكرها اخي ابن بنها عشت يا إبن مصر .. عشت وعاش امثالك الذين يبتغون وجه الله في اعمالهم أخى الكريم ما نحن الا طلاب علم في هذا الصرح الضخم الذي استفدنا منه اكثر مئة مرة من افادتنا لغيرنا .. جزانا الله واياك كل الخير وخالص امتنانى لكلماتك الرقيقة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 31, 2015 الكاتب مشاركة قام بنشر يناير 31, 2015 شكرا لاخلاقك الكريمه وعلمك الي ادعو الله ان يزيدك من فيضه يارب عمل ولااروع جاري دراسة المرفق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.