عبدالله باقشير قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم شهر مبارك وكل عام وانتم بخير سنبدا هنا موضوع توزيع الطلبة على الفصول وسيكون عبارة عن مشروع يتكون من عدة ملفات كل ملف له آلية عمل تختلف عن الاخرى سنبدا الموضوع وهو مثل ملف الاستاذ نور وهو اذا كان الملف عندك جاهز وعارف المعطيات وستقوم بوضعها بداية الكود هذه المرة الكشوفات ستكون في ملف جديد منفصل على الملف الاساسي وجاهزة للطباعة المطلوب منك اعداد الكشف الاول في الملف الاساسي ومنه ستضع معطياتك بداية الكود الكود حيكون في حدث الورقة اللي فيها نسخة الكشف الاول علشان يتم نقلها مباشرة الى ملفك بمعية اكواده هذه المعطيات المطلوبة بداية الكود '============================================================ '============================================================ ' نطاق البيانات اما ان يكون اسم لنطاق ' او عنوان النطاق مع اسم الورقة Private Const My_Date As String = "MyRng" '============================================================ ' اول صف في الجدول لوضع البيانات Private Const FirstRow As Integer = 9 ' عدد صفوف البيانات المنقولة في الكشف Private Const MyCount As Integer = 30 ' عدد صفوف التذييل Private Const MyCountEndRow As Integer = 5 ' عدد اعمدة الكشف بداية من العمود 1 Private Const MyPagColumn As Integer = 6 ' عدد الفصول Private Const MyCountClass As Integer = 32 '============================================================ '============================================================ وهذا المرفق ملف اكسل 2003 توزيع على الفصول م1.rar 1 رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 الأستاذ / عبدالله كل عام وانت باتم صحة وخير رمضان كر يم الملف في غاية الجمال ويدل على مهارة وخبرة منفذه بارك الله فيك جزاك الله خيراً على مجهودك الكبير في هذا المنتدى 1 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 الاستاذ الفاضل خبور خير عمل جبار وكالعادة متقن ومرتب سلمت يداك يا ابا علي لم تخيب لاظن في هداياك تقبل مروري ابواحمد رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 فكرة الكود روعة أخي عبد الله الله ينور عليك بالمزيد من العلم رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 بعض الإستفسارات 1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو (اعلم ان الكود يتم تنفيذه من الزر الخاص بإضافة فصول في الشيت 2) سبب السؤال عندما اردت تنفيذ الماكرو FormulaToValue لم أجده بمربع الحوار Macros 2 - في الفصل 32 بالشيت الأساسي يوجد لدينا 66 طالب تنتهب بالإسم يوسف 22 لكن في الشيت الذي تم اعداده بالكود نجد ان كششف الفصل 32 يشتمل على 60 طالب وينتهي بالطالب يوسف 16 لتمنى ان يتسع صدركم للإستفسارات التي قد تبدو امور بسيطة لديكم شكراً مرة اخرى على الملف رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 الاستاذ الكبير " خبـــــــــــــــــــور خيــــــــــــــــــــــر " : ماشاء الله ... موهبة وخبرة ....حماك الله ننتظر البقية بالتوفيق ياسر الحافظ رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 العالم العلامه والبحر الفهامه خبور خير وعليكم السلام ورحمة الله وبركاته كل عام وانتم بخير ***** ماشاء الله .. عمل ولاأروع حفظك الله ورعاك رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم لا حرمنا الله من إبداعاتك أستاذنا خبور ونفع بك المسلمين رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 جزاك الله خيرا وبارك فيك (( وسيكون عبارة عن مشروع يتكون من عدة ملفات كل ملف له آلية عمل تختلف عن الاخرى )) .. اقتباس ونعم المشروع رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 بعض الإستفسارات 1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو لتمنى ان يتسع صدركم للإستفسارات التي قد تبدو امور بسيطة لديكم شكراً مرة اخرى على الملف اذهب لصندوق الماكرو Alt + F11 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 استاذى خبور تسلم ايدك و رمضان كريم جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 6, 2011 الكاتب مشاركة قام بنشر أغسطس 6, 2011 الاخ الحبيب/ معتصم محمد __________حفظه الله الاخ الحبيب/ عبد الله المجرب__________حفظه الله الاخ الحبيب/ نادر__________حفظه الله الاخ الحبيب/ ياسر الحافظ__________حفظه الله الاخ الحبيب/ محمدي __________حفظه الله الاخ الحبيب/ كيماس__________حفظه الله الاخ الحبيب/ قصي __________حفظه الله الاخ الحبيب/ khhanna__________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري خبور خير 1 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 مبدع كالعادة أخى خبور جازاك الله خيراً رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 6, 2011 الكاتب مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم الاخ الحبيب / معتصم محمد شهر مبارك وكل عام وانتم بخير 1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو (اعلم ان الكود يتم تنفيذه من الزر الخاص بإضافة فصول في الشيت 2) سبب السؤال عندما اردت تنفيذ الماكرو FormulaToValue لم أجده بمربع الحوار Macros اي كود له تابع لن تجده بالطريقة هذه لانه يجب تعريف التابع في كود منفصل في حالة ان الكود موجود في حدث الورقة مثل كودنا هذا ممكن الوصول اليه باضافة كود في موديل جديد او موديل الورقة Sub vv() ورقة2.FormulaToValue ActiveSheet End Sub اذا كان الكود موجود بموديل مثلا Module1 Sub vv() Module1.FormulaToValue ActiveSheet End Sub او Sub vv() FormulaToValue ActiveSheet End Sub 2 - في الفصل 32 بالشيت الأساسي يوجد لدينا 66 طالب تنتهب بالإسم يوسف 22 لكن في الشيت الذي تم اعداده بالكود نجد ان كششف الفصل 32 يشتمل على 60 طالب وينتهي بالطالب يوسف 16 انت اخي الكريم شديد الملاحظة وسؤالك يدل على ذكاء وتركيز ملحوظ لقد اوردت سابقا: سنبدا الموضوع وهو مثل ملف الاستاذ نور وهو اذا كان الملف عندك جاهز وعارف المعطيات وستقوم بوضعها بداية الكود Private Const MyCount As Integer = 30 معناه ان الكشف مجهز ليسع 30 صف *2 60 طالب وهذه الزيادة التي تراها للفصل 32 انا عملتها قاصدا ذلك وجربت الكود وتحصلت على رسالة خطأ وصححت الكود باضافة If N > (MyCount * 2) Then Exit For علشان اوقف الكود عند هذا العدد المجهز له للاستيعاب ولا يعطيك رسالة خطأ ويوقف التنفيذ ------------------------ حاول ان تجهز كشف آخر يستوعب مثلا 40 وغير ذلك في المعطيات وشاهد ماذا سيعمل الكود ارجو ان يكون شرحي مفهوما تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 6, 2011 الكاتب مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم الاخ الحبيب يوسف عطا _______حفظه الله بارك الله فيك وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 الأستاذ عبدالله جزاك الله خيراً على التوضيح لكن اسمح لي سؤال اخر اي كود له تابع لن تجده بالطريقة هذه هل تقصد بالتابع وهو ما تم تحديده باللون الأحمر Sub FormulaToValue(she As Worksheet) لانه يجب تعريف التابع في كود منفصل وهل عملية تعريف التابع هي عمبلية تعريف متغير بواسطة الكلمة DIM اعتذر للإطالة رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 6, 2011 الكاتب مشاركة قام بنشر أغسطس 6, 2011 الأستاذ عبدالله جزاك الله خيراً على التوضيح لكن اسمح لي سؤال اخر اي كود له تابع لن تجده بالطريقة هذه هل تقصد بالتابع وهو ما تم تحديده باللون الأحمر Sub FormulaToValue(she As Worksheet) نعم لانه يجب تعريف التابع في كود منفصل وهل عملية تعريف التابع هي عمبلية تعريف متغير بواسطة الكلمة DIM اعتذر للإطالة بجانب اسم الاجرائية FormulaToValue التابع رابط هذا التعليق شارك More sharing options...
نورانور قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 أخى الأستاذ خبور عمل أكثر من رائع وتعلمت منه كثيرا واشتغلت على الملف وأنا فاهمه وسع الله فى رزقك ويعطيك الصحة والعافية آمين رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم ورحمة الله وبركاتة شكرا جزيلا أستاذ / عبدالله جزاك الله خير اخوك / ابو الحسن والحسين رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 6, 2011 الكاتب مشاركة قام بنشر أغسطس 6, 2011 لسلام عليكم الاخ الفاضل نور انور _______حفظه الله الاخ الفاضل ابو الحسن والحسين _______حفظه الله بارك الله فيكم وشهر مبارك وكل عام وانتم بخير تقبلوا تحياتي وشكري رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 الاخ الحبيب و الاستاذ الفاضل "خبور" هدية جميلة و بداية موفقة ان شاء الله ...على بركة الله رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 6, 2011 الكاتب مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم الاخ الحبيب يحياوي _______حفظه الله بارك الله فيك وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 السلام عليكم ===== اخى الحبيب خبور رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أغسطس 6, 2011 مشاركة قام بنشر أغسطس 6, 2011 اخي الحبيب خبور بارك الله فيك وازادك من علمه خالص تحياتي و تقديري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 7, 2011 الكاتب مشاركة قام بنشر أغسطس 7, 2011 السلام عليكم الاخ الحبيب هشام شلبي_______حفظه الله الاخ الحبيب عادل يحي _______حفظه الله بارك الله فيكم وشهر مبارك وكل عام وانتم بخير تقبلوا تحياتي وشكري رابط هذا التعليق شارك 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.