osamram

لقد بدأت أشعر أن ما اطلبه مستحيلاً . أين الحل ؟

يبدو أنك أنشغلت عنا يا استاذ محمد لعل المانع خيراً إن شاء الله عموما لازلت انتظر ردك الكريم على موضوعى هذا ؟

أخى ابو اسامة العينبوسي أرسل لك الملف الذى به المشكلة مرة أخرى وبه توضيح ما أريد فى الشيت الثانى منه وأرجو أن يصل ما اريد وأن يتسع صدرك لى أنت وكل خبرائنا وكل من يستطيع حل هذه المشكلة .CONTROL1.rar

أين انتم يا خبرائنا لقد مللت النداء ولا أعتقد أن الامر صعب على من يفهم فى الأكواد أو الفيجوال بيسك كل ما أطلبه هو أن يكون الفرز فى عمود B يشمل الخلايا التى قيمتها أكبر من الصفر فقط والكود موجود جاهز فى المرفقات ولكنى لم أستطع عمله أملى كبير فى أخوانى بهذا المنتدى العظيم .

أين أنت يا عزيزى محمد عسكر ؟

اين أنت يا استاذ نزار ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أين أنت يا عزيزى محمد عسكر ؟

يا خبرائنا الغوث ؟؟؟؟؟؟؟؟؟؟؟؟؟

شكراً على اهتمامك بالرد يا استاذ محمد عسكر وارجو سرعة الحل إن أمكن

إذا كان الاستاذ نزار مشغول عنا هل من مجيب لهذه المشكلة ؟

???????????????????????????????????

أنا لا زلت منتظر ردك يا استاذ محمد عسكر ارجو أن ترى الملف المرفق

اين أنت يا استاذ نزار ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

كان الأخ محمد عسكر قد تفضل وقدم طريقة لإدراج الطلاب فى اللجان وهى طريقة جبارة ولكنى عجزت عن فهمها لهذا ارسل له هذا الملف الجاهز وفيه صفحة ( List03 ) تحتاج إلى هذه الطريقة بنفس هذا المتغير طبعا لجلب الطلاب من الصفحتان السابقتان لها فى كشوف المناداة مع الحفاظ على تنسيق وشكل الصفحات الموجودة بالملف المرفق . كما اطمع فى أصعب طلب من الاستاذ محمد عسكر والاستاذ أبو أسامة وكل عباقرة المنتدى فى حل المشكلة الثانية بنفس هذا الملف المرفق وهى جلب درجات الطلاب وبياناتهم هلى اساس الفصل وادراجها تلقائياً فى الشيت الأخير بالملف أيضا مع الحفاظ على التنسيقات الموجودة به . اتمنى من الله ان تساعدنى عباقرة المنتدى سريعا فى هذا العمل المتواضع . وللجميع جزيل الشكر والتقدير منى . ____.rar

استاذنا ومشرفنا الغالى الاستاذ نزار :كنت قد اثقلت عليك من فتره فى موضوع فرز مع الحماية وتفضلت حضرتك بحلها بطريقة سحرية ولكنى لم استوعبها فى ذلك الوقت ونظراً لإنشغالى فى كنترول المدرسة والامتحانات لم ادرسها بوضوح إلا الأن والحمد لله استوعبتها بنجاح وللك جزيل الشكر والعرفان على هذا العمل الغالى . وواجهتنى الان مشكله صغيره أعرف أنك ( إن شاء الله ) سوف تحلها لى وهى أن الكود السابق فى الملف يجعل الفرز على أساس العمود B وهذا جيد ولكنى حينما اربط عدة صفحات ببعضها ( وقد ارفقت لك مثالى السابق وحديثى هنا اقصد به الشيت الثانى فى هذا الملف ) أجد أن الفرز يدخل رقم الصفر الدال على ربط الصفحات ببعضها ضمن الفرز وهذا يخل بشكل الفرز . باختصار حتى لا أطيل عليك أريد طريقة لاضافة جملة ( الفرز فى عمود B يشمل الخلايا التى قيمتها أكبر من الصفر فقط ) هذا طبعا على شكل تكملة للكود الموجود حالياً بالملف المرفق الذى تفضلت انت بتصميمه . ولك وافر الشكر والعرفان واتمنى ان يكون الرد سريعاً وعموما هذا هو الكود الذى تفضلت وارسلته : Sub Rectangle1_Click() ' ' Rectangle1_Click Macro ' Macro recorded 4/17/2007 by neid ' ' MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet Dim myTable As Range Dim myColToSort As Long Dim curWks As Worksheet Dim mySortOrder As Long Dim LastRow As Long Dim iCol As Integer Dim strCol As String iCol = 20 '10 columns strCol = "B" ' column to check for last row Set curWks = ActiveSheet With curWks myColToSort = .Shapes(Application.Caller).TopLeftCell.Column LastRow = .Cells(.Rows.Count, strCol).End(xlUp).Row Set myTable = .Range("A9:B" & LastRow).Resize(, iCol) If .Cells(myTable.Row + 1, myColToSort).Value _ < .Cells(LastRow, myColToSort).Value Then mySortOrder = xlDescending Else mySortOrder = xlAscending End If myTable.Sort key1:=.Cells(myTable.Row, myColToSort), _ order1:=mySortOrder, _ header:=xlYes End With End Sub CONTROL1.rar

أخى العزيز نزار : حاولت مرارا ان افعل ما اخبرتنى به ولم افلح ولهذا ارسل لك صفحه من صفحات ملف الكنترول الخاص بى لكى تتكرم بتنفيذ ما ذكرته ثم سأحاول تطبيقها على باقى صفحات الملف عندى . ارجو الا اكون قد اثقلت عليك أسامة ارجو ان يكون الفرز لكل عمود سواء كان ماده بالكامل أو فرع من فروعها CONTROL.rar

الله ينور عليك يا استاذنا العظيم عمل رائع رائع رائع هذا هو المقصود بل واكثر من المطلوب ايضاً تسلم ايديك وبارك الله فيك . اطمع فى شرح تفصيلى جدا للكود ( لاننى لم اتعامل بالاكواد قبل ذلك الا قليلا ) لكى اطبق هذه الطريقة فى كل صفحات ملف الكنترول التى تصل إلى 30 صفحة فى ملف واحد ويصل عدد أعمدة بعض الشيتات داخل الصفحة إلى 40 عمود لهذا اتمنى فهم الكود فاعذرنى وكن طويل البال معى لاننى بحثت فى الكود الذى ارسلته مثلا ولم اجد مثلا اين كتبت المدى ( b2 : q22 ) وغيره من طريقة جعل الفرز تصاعدى وتنازلى على كل عمود . اتمنى الا تخذلنى فى طلبى الاخير وان يكون الشرح تفصيلى . ومرة اخرى اكرر تقديرى واحترامى لك أسامة

أخى العزيز نزار : اعتذر عن التأخير فى الرد نظرا لسفرى . ثانيا عملك هذا جبااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااار بكل معنى الكلمة ، لهذا ارسل لك كل شكرى وتقديرى واحترامى وادعو الله ان يكثر من امثالك وان يزيد من علمك بارك الله فيك يا أخى . انا رأيت ملفك الخاص بالفرز وهو أكثر من رائع ولكنك نسيت شيئا فى طلبى ان اساس طلبى هو وجود خلايا بها دوال ومعادلات لا اريد التعديل بها أو رؤيتها ( لم ارسل هذه الدوال فى الملف السابق ) ولهذا ارغب فى طريقة الفرز التى ارسلتها سيادتكم مع وجود حماية لخلايا من التعديل أو مشاهدة الدوال داخل الورقة فهل هذا ممكن ( إن كانت هناك طريقة ارجو ان تتكرم وترسلها ولكن اعذرنى اريد شرح الكود الخاص بها لتطبيقها فى ملف الكنترول الذى اعمل به منذ شهور لانه يصل إلى 30 ورقة كلها تحتاج هذا الأمر . ومرة أخرى وثالثة ورابعة اكرر شكرى العميق لاهتمامك بشكواى . أسامة

أخى نزار فى اعمال الكنترول بالمدارس لابد من تظليل الشيت كله وفرزه كله على حسب عمود معين قد يكون حالة القيد او الاسم او الفصل أو غيره وهذا لا يحدث فى الملف السابق بعد عمل حماية للورقه ارجو ان تكون قد وصلتك الفكره واتمنى ان اجد حل عند عباقرة المنتدى أخى نزار فى اعمال الكنترول بالمدارس لابد من تظليل الشيت كله وفرزه كله على حسب عمود معين قد يكون حالة القيد او الاسم او الفصل أو غيره وهذا لا يحدث فى الملف السابق بعد عمل حماية للورقه ارجو ان تكون قد وصلتك الفكره واتمنى ان اجد حل عند عباقرة المنتدى

أخى العزيز نزار : أولاً شكرا جزيلا لك على الرد السريع ، وبخصوص ما ارسلته أعلم جيدا عزيزى طريقة الحماية التى قمت انت بتوضيحها وحاولت سابقا اتمامها وايضا كما فى مثالك المرفق ولكننى للأسف لم اجد ما اريد لانى لا اريد عمل تصفية بل اريد ان اقوم بعمل فرز ( sort ) لشيت به اعمدة تم عمل تأمين أو حماية لها واعمدة أخرى لا توجد بها حماية فى الوسط وذلك طبعا بعد وضع باسورد لورقة العمل ولكنه يرفض الفرز ( sort ) ويطلب إلغاء الحماية للورقة أولا والسؤال هل هناك طريقة أو كود لحل هذه المشكله . أخى العزيز Aymz077 : انا شاكر جدا لك على ما قدمته من ابداعات الاستاذ تامر ولكنى للأسف لم اجد وسيلة فى ما قدمته من أكواد خاصة بالماكرو لأنى لا افضل وجود زر خاص بالماكرو ولم اجد حل فى هذه الطريقة لما اوضحته سابقا عن مشكلتى . ومرفق لكل الاخوة مثال يوضح المطلوب والملف به باسورد للورقة الأولى والباسورد هو 123 والمثال المرفق به اعمدة لها حماية واخرى ليس لها ارجو سرعة الرد من منتدانا الكريم Book2.rar

الى الاخوة الاعزاء فى منتدانا الكريم : ابحث عن وسيلة لإمكانية عمل فرز لشيت طلاب مع وجود حماية للورقة نظرا لوجود خلايا بها معادلات محمية وارغب فى حمايتها مع السماح بالفرز بعد حماية الورقة . ولقد جربت كل الوسائل واختيار السماح بالفرز من اختيارات حماية ورقة ولكنها تطلب إلغاء الحماية أولا قبل الفرز . هل هناك أحد من خبرائنا الغاليين يدلنى سريعا على طريقة لحل هذه المشكله .[/co lor]

:') :') :') :') :') :') :')

مرة أخرى ارسل طلبى للأخ كريم بشرط طريقته السابقة فى جلب بيانات الطلاب حسب الفصل لأننى لم افهمها رغم اظهار المخفى فى ملفه . كما اشكر الاخ حسام على الاهتمام بموضوعى واعده اننى سوف ارسل العمل كاملا فور الانتهاء منه كله لاننى اعد برنامج كنترول متكاملا للمرحلة الاعدادية للصف الاول والثانى يصل إلى 1000 طالب وهو يشمل ( ادخال البيانات - كشوف المناداة - ارقام الجلوس وبها جدول الامتحانات - كل الاوراق التى يحتاجها الكنترول من محاضر واقرارات - شيت الترم الأول - الشهادات - احصائيات ونسب المواد والمدرسة - الشيت الذى يسلم للإدارة التعليمية - كشوف نتائج الفصول ) كل هذا للفصلين الدراسيين وايضا للصفين الأول والثانى معا ووصل إلى 30 ورقة عمل فى ملف واحد واحاول اضافة اعمال الدور الثانى أيضا ولك أن تتخيل حجم البرنامج وصل حتى 7 ميجا ولم يتبقى سوى المشكلات التى ارسلتها فى الملف السابق . اكرر ندائى للأخ كريم ولكل الخبراء فى حل هذه المشكلات .

الاخ الرائع كريم : عملك رائع رائع رائع للغاية واعجز للغاية عن شكرك واتمنى منك أن تشرح لى بالتفصيل طريقة جلب هذه الصفوف على اساس الفصل لانها ناجحة جدا بعد تجربتها حيث اننى اذا فهمتها سوف تساعدنى كثيرا فى عملى لأننى احيانا احتاج جلب الصفوف على اساس كلمة ناجح مثلاً بدلا من رقم الفصل فى شيت خاص بالناجحين أو فى الشهادات . وأخيراً أكرر شكرى العميق لك وادعو الله ان يجعل هذه المساعدات فى ميزان حسناتك وادعوه أيضا أن يكون ردك سريعا كما فعلت لتعطلى ويأسى من حل المشكلات الأخرى فى الملف السابق .

هل من مجيب على اسئلتى ؟ الا يوجد أى حل لها أو بعضها على الاقل ؟