ibra قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 (معدل) السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا سلفا لما تقدموه من مجهود اريد طلب لو تفضلتم في الجدول المرفق اريد اخفاء السطور الفارغة اعتمادا على وجود اسم في خانة الاسم او عدم وجود اسم ودمتم جدول.rar تم تعديل يونيو 29, 2011 بواسطه ibra
عبدالله المجرب قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 في 29/6/2011 at 12:14, aah_aah2008 said: تفضل سلمت الايادي استاذ عادل وهذه مساهمة لجعل الزر يعمل بحالتين للاخفاء والاظهار Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "اخفاء الفارغ" Then For i = 7 To 51 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = True End If Next CommandButton1.Caption = "اظهار الفارغ" Else CommandButton1.Caption = "اظهار الفارغ" For i = 7 To 51 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = False End If Next CommandButton1.Caption = "اخفاء الفارغ" Application.ScreenUpdating = True End If End Sub استبدل هذا الكود بكود الاستاذ عادل (هو نفس الكود بس تعديل بسيط) ابواحمد 1
ibra قام بنشر يونيو 29, 2011 الكاتب قام بنشر يونيو 29, 2011 (معدل) في 29/6/2011 at 12:14, aah_aah2008 said: تفضل أشكركم كل الشكر ولكن إذا اتسعت قلوبكم أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول ليصل عدد الصفوف إلى 50 صف بدل 45 وسامحوني إن أثقلت عليكم تم تعديل يونيو 29, 2011 بواسطه ibra
عبدالله المجرب قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 في 29/6/2011 at 12:52, ibra said: في 29/6/2011 at 12:14, aah_aah2008 said: تفضل أشكركم كل الشكر ولكن إذا اتسعت قلوبكم أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول ليصل عدد الصفوف إلى 50 صف بدل 45 وسامحوني إن أثقلت عليكم اخي اذا اردت زيادة الصفوف غير هذه الجزئية في الكود For i = 7 To 51 لتصبح For i = 7 To 56 وذلك بعد اضافة الخمسة الاسطر الزيادة والله اعلم
ibra قام بنشر يونيو 29, 2011 الكاتب قام بنشر يونيو 29, 2011 في 29/6/2011 at 12:52, ibra said: في 29/6/2011 at 12:14, aah_aah2008 said: تفضل أشكركم كل الشكر ولكن إذا اتسعت قلوبكم أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول ليصل عدد الصفوف إلى 50 صف بدل 45 وسامحوني إن أثقلت عليكم شكرااخي الكريم لتفضلك بالرد انا غيرتها ولكن اريد الكود أن يعمل بمجرد تغيير قيمة الخانة المذكورة(ُِِAE52)
عادل حنفي قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 سلمت يا ابو احمد اخي الملف المرفق عند التغيير في الخلية المطلوبة يتم اخفاء الخلايا و عند التغيير فيها مرة اخري يتم اظهارها ملحوظة راجع معادلات العشرة صفوف الاخرة لانه تم اضافة صفوف دون النظر للمعادلات تحياتي جدول.rar
ibra قام بنشر يونيو 29, 2011 الكاتب قام بنشر يونيو 29, 2011 (معدل) في 29/6/2011 at 14:00, aah_aah2008 said: سلمت يا ابو احمد اخي الملف المرفق عند التغيير في الخلية المطلوبة يتم اخفاء الخلايا و عند التغيير فيها مرة اخري يتم اظهارها ملحوظة راجع معادلات العشرة صفوف الاخرة لانه تم اضافة صفوف دون النظر للمعادلات تحياتي انا اسف للآزعاج مرة اخرى الخلية المذكورة تعني عدد طلاب الصف اريد ان تختفي السطور الفارغة بالاعتمادعلى عدد طلاب الصف ولا اريد اظهار واخفاء. في الخلية (ُِAE57) بمجرد تغيير عدد الطلاب تتغير السطور اذا زاد العدد زادت السطور واذا نقص العدد نقصت السطور شكرا مرة اخرى لتفضلكم بالرد السريع وإعطائي الكثير من وقتكم واريد بنفس الوقت حذف زر اخفاء واظهار لانني لم اعرف كيف يحذف وبارك الله فيكم تم تعديل يونيو 29, 2011 بواسطه ibra
عبدالله المجرب قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 في 29/6/2011 at 14:16, ibra said: انا اسف للآزعاج مرة اخرى الخلية المذكورة تعني عدد طلاب الصف اريد ان تختفي السطور الفارغة بالاعتمادعلى عدد طلاب الصف ولا اريد اظهار واخفاء. في الخلية (ُِAE57) بمجرد تغيير عدد الطلاب تتغير السطور اذا زاد العدد زادت السطور واذا نقص العدد نقصت السطور شكرا مرة اخرى لتفضلكم بالرد السريع وإعطائي الكثير من وقتكم واريد بنفس الوقت حذف زر اخفاء واظهار لانني لم اعرف كيف يحذف وبارك الله فيكم هل تقصد ان يكون الكود مرن (يعني يزيد بزيادة الصفوف) ام ماذ في 29/6/2011 at 14:16, ibra said: واريد بنفس الوقت حذف زر اخفاء واظهار لانني لم اعرف كيف يحذف وبارك الله فيكم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
يوسف عطا قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 بالفعل أعتقد أنه يريد الكود أكثر مرونة بحيث يظهر فقط عدد الأسطر التى تتساوى مع عدد الطلاب الذى سيكون موجود فى الخلية المذكورة ويقوم تلقائياً بإخفاء باقى الاسطر وإذا أراد أن يزيد عدد الأسطر فيكفى أن يقوم بزيادة العدد الموجود فى الخلية التى ذكرها والفكرة عاجبانى قوى وسوف استفيد بها إن شاء الله فى ملف أستعد لإتمامه خاص بكنترول الدور الثانى
عبدالله المجرب قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 في 29/6/2011 at 17:20, يوسف عطا said: والفكرة عاجبانى قوى وسوف استفيد بها إن شاء الله فى ملف أستعد لإتمامه خاص بكنترول الدور الثانى اخي يوسف جرب المرفق ان شاء الله يفي بالغرض جدول يوسف عطا.rar
الـعيدروس قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 السلام عليكم الاستاذ عادل والاستاذ عبدالله مشكورين على هذا الابداع بارك الله فيكم دروس نتعلمها من اعمالكم
عبدالله المجرب قام بنشر يونيو 29, 2011 قام بنشر يونيو 29, 2011 في 29/6/2011 at 18:12, يوسف عطا said: الماكرو غير موجود بالملف اخي يوسف الميكرو موجود في زر باسم اخفاء الفارغ اقتباس السلام عليكم الاستاذ عادل والاستاذ عبدالله مشكورين على هذا الابداع بارك الله فيكم دروس نتعلمها من اعمالكم اخي ابو نصار شكراً لمرورك وهذه الدروس انا تعلمتها من الاستاذ عادل حفظه الله ابواحمد
ibra قام بنشر يونيو 29, 2011 الكاتب قام بنشر يونيو 29, 2011 في 29/6/2011 at 17:33, عبدالله المجرب said: في 29/6/2011 at 17:20, يوسف عطا said: والفكرة عاجبانى قوى وسوف استفيد بها إن شاء الله فى ملف أستعد لإتمامه خاص بكنترول الدور الثانى اخي يوسف جرب المرفق ان شاء الله يفي بالغرض اخي الكريم عبد الله المجرب شكرا لاهتمامكم ولكن الملف لا يعمل ولا يوجد به مايكرو وبنفس الوقت لا أريده أن يعمل بكبسة زر أريدة ان يعمل تلقائيا عند نقصان او زيادة الخلية الهدف AE78 وشكرا لتعاونكم المستمر
ibra قام بنشر يونيو 29, 2011 الكاتب قام بنشر يونيو 29, 2011 وحتى يكون الأمر أوضح أنا عندي ملف يعمل بهذه الطريقة ولكن لم أستطع تعديل الكود عدلت معطيات الكود فلم يعمل في الجدول الجديد وإليكم الملف وشكرا اخفاء الصفوف الفارغة.rar
عادل حنفي قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 السلام عليكم اخي بالفعل انت لم تستطع توصيل المعلومة الصحيحة و لم افهمها الا من الملف الثاني مشكور مجهودك يا ابو احمد تم عمل الملفان بفكرة الملف الثاني تحياتي إخفاء القوائم الفارغة.rar
ibra قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 في 30/6/2011 at 00:39, aah_aah2008 said: السلام عليكم اخي بالفعل انت لم تستطع توصيل المعلومة الصحيحة و لم افهمها الا من الملف الثاني مشكور مجهودك يا ابو احمد تم عمل الملفان بفكرة الملف الثاني تحياتي بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير مجهود رائع ولك مني جزيل الشكر
عبدالله المجرب قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 في 30/6/2011 at 01:48, ibra said: بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير مجهود رائع ولك مني جزيل الشكر بالفعل مجهو رائع نشكر الاستاذ عادل عليه وكل يوم نتعلم اشياء جديدة من ردوده هذه اضافة بسيطة لجعل الكود مرن بحيث يتم ربطه بالصف الاخير المكتوب فيه (معلم المادة والمشرف التربوي) حيث يمكن قص هذا الصف ولصقه باي مكان (لزيادة عدد الصفوف ) ولا حاجة لتعديل الكود (شاهد المرفق) والله اعلم إخفاء القوائم الفارغة.rar
ibra قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 (معدل) السلام عليكم ورحمة الله وبركاته إخواني الكرام الأعزاء الكود اشتغل بشكل ممتاز ولكن عندما وضعت البيانات وعملت حماية على الورقة حتى لا يتم التغيير في المعادلات اعطاني الكود رسالة خطأ وعندما أزلت الحماية عن الورقة ااشتغل الكود بشكل طبيعي فهل هناك حل لهذه المشكة؟ جدول يوسف عطا.rar تم تعديل يونيو 30, 2011 بواسطه ibra
عبدالله المجرب قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 في 30/6/2011 at 11:53, ibra said: السلام عليكم ورحمة الله وبركاته إخواني الكرام الأعزاء الكود اشتغل بشكل ممتاز ولكن عندما وضعت البيانات وعملت حماية على الورقة حتى لا يتم التغيير في المعادلات اعطاني الكود رسالة خطأ وعندما أزلت الحماية عن الورقة ااشتغل الكود بشكل طبيعي فهل هناك حل لهذه المشكة؟ اخي الحل بسيط اضف هذا الكود في بداية الكود ActiveSheet.Unprotect وهذا الكود في النهاية ActiveSheet.protect ويمكك ان تعدل شروط الحماية بواسطة تسجيل ماكرو او ارفق ملف
ibra قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 في 30/6/2011 at 11:53, ibra said: السلام عليكم ورحمة الله وبركاته إخواني الكرام الأعزاء الكود اشتغل بشكل ممتاز ولكن عندما وضعت البيانات وعملت حماية على الورقة حتى لا يتم التغيير في المعادلات اعطاني الكود رسالة خطأ وعندما أزلت الحماية عن الورقة ااشتغل الكود بشكل طبيعي فهل هناك حل لهذه المشكة؟ بوركت سيدي تم المطلوب جزاك الله خيرا ونشكركم على الرد السريغ
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.