omar elhosseini قام بنشر يناير 15, 2007 مشاركة قام بنشر يناير 15, 2007 الاخ عادل جلال تحياتى لك نفذ الاتى اخى حتى يمكننى مساعدتك 1 - احفظ الملف بأى اسم اخر 2 - انسخ هذا الكود الاتى الى الملف وقم بتنفيذة Sub ListRangeName() Set NewSheet = Worksheets.Add i = 1 For Each nm In ActiveWorkbook.Names NewSheet.Cells(i, 1).Value = nm.Name NewSheet.Cells(i, 2).Value = "'" & nm.RefersTo i = i + 1 Next NewSheet.Columns("A:B").AutoFit NewSheet.Name = "omar" End Sub 3 - نتيجة تنفيذ الكود ستكون رقة جديدة بأسم (omar) تتم اضافتها الى الملف 4 - احذف جميع اوراق الملف ماعدا الورقتين الاتيتين الورقة الجديدة التى اضيفت الى الملف واسمها (omar) + الورقة الرئيسية التى بها جدول اسماء الطلاب 5 - احفظ الملف وارفقة بالمنتدى رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر يناير 16, 2007 الكاتب مشاركة قام بنشر يناير 16, 2007 الأخ/ تامر السلام عليكم ورحمة الله وبركاته أشكرك على مدى تعاونك مع أعضاء المنتدى وأثقل الله موازينك أود شرح مفصل اليك الملف المطلوب تحياتى ______.rar رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 16, 2007 مشاركة قام بنشر يناير 16, 2007 الاخ عادل جلال تحياتى لك اولا : بالنسبة للشرح سأقوم بعمل مشاركة خاصة بكيفية عمل (Dynamic Range) بإذن الله ثانيا : بالنسبة لطلبك قم بتنفيذ الاتى :-- 1 - احفظ الملف الخاص بك فى مكان اخر احتياطيا حتى اذا لم تضبط الامور معك يكون عندك نسخة احتياطية . 2 - الملف المرفق به كود ماكرو انسخة الى ملفك . 3 - نفذ الكود وبعد التنفيذ الغى هذا الكود وايضا الغى الكود السابق فى المشاركة السابقة . كيف اعرف ان الامدية او النطاقات السابقة تحولت من النظام الثابت الى النظام المتحرك او الديناميكى . 1 - اضغط (F5) واكتب اسم مدى وليكن (all) ستجد انه تم تظليل المدى حتى اخر اسم فقط . 2 - فى نهاية هذا النطاق اضف عددا من الطلاب حتى نرى هل سيتغير المدى ويحتوى البيانات الجديدة ام لا . 3 - كرر الخطوة (1) ستجد انه تم احتواء البيانات الجديدة داخل النطاق . .............. وخلاف ذلك يكون هناك خطأ ما ؟ 4 - يمكن التجربة على نطاق اخر او تجربة كل النطاقات للتأكد من صحة عملها . وخلاف ذلك يكون هناك خطأ ما ؟ مع ملاحظة انه تم تحديد الحد الاقصى لعدد الطلاب ب 1000 الف طالب . تحياتى لك ______2.rar رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر يناير 17, 2007 الكاتب مشاركة قام بنشر يناير 17, 2007 الأخ/تامر السلام عليكم ورحمة الله وبركاته أشكرك شكراَ كثيراَ ، وجزاك الله خيراَ ، وجعله فى ميزان حسناتك لقد قمت بتنفيذ الخطوات التى ارسلتها فى المشاركة السابقة والحمد لله كله على ما يرام. ولكن لى عدة إ ستفسارات 1- يوجد بالبرنامج كود واحد محدود المدى هل يمكن تعديل مداه ليصبح على الخلايا المطلوبة فقط - ديناميكياَ دون تدخل مدخل الدرجات - فكيف يكون ذلك ؟ الكود هو Sub MacroFil1() Sheets("sheet1").Range("B7:ev7").Select Selection.AutoFill Destination:=Range("B7:ev306") Range("A4").Select End Sub 2- هل يمكن ترحيل درجات طلاب الدور الثانى ( الملاحق ) من ورقة إلى ورقة جديدةغير موجودة ( تنشأ هذه الورقة أثناء الترحيل وتسمى بالدورالثانى ) بشرط يترك صف علوى لكل طالب توضع فية الدرجة الجديدة ( درجة امتحان الدور الثانى ) هذه الدرجة الجديدة يتم التعامل معها لاحقاَ ؟ نعم أم لا . لان الإجابة ( نعم ) يلزمها إعداد شروط الكنترول من طرفنا ، والإجابة ( لا ) ننسى موضوع الدور الثانى 3- إذا كان لايوجد لديك مانع أود محادثتكم عبر الأميل الأتى:- almokhtaser@yahoo.com بارك الله فيكم تحياتى رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر يناير 18, 2007 الكاتب مشاركة قام بنشر يناير 18, 2007 للرفع رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر يناير 19, 2007 الكاتب مشاركة قام بنشر يناير 19, 2007 للرفع رابط هذا التعليق شارك 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.