دغيدى قام بنشر يوليو 18, 2012 مشاركة قام بنشر يوليو 18, 2012 مطلوب من السادة الأفاضل عمل كود يقوم بإخفاء صفوف تحدد من خلال خلايا محددة للبداية والنهاية اخفاء واظهار.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة الخالدي قام بنشر يوليو 18, 2012 أفضل إجابة مشاركة قام بنشر يوليو 18, 2012 الفاضل / دغيدى جرب الكود التالي Sub AL_KHALEDI() Rows.EntireRow.Hidden = False Rows([J2]).Resize([K2] - [J2] + 1).EntireRow.Hidden = True End Sub واذا تعني بان الصفوف تبدأ من بداية الجدول (الصف رقم 4) جرب الكود التالي Sub AL_KHALEDI() Rows.EntireRow.Hidden = False Rows([J2]).Offset(3, 0).Resize([K2] - [J2] + 1).EntireRow.Hidden = True End Sub اتمنى ان يكون المطلوب رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 19, 2012 مشاركة قام بنشر يوليو 19, 2012 السلام عليكم حل موفق استاذ الخالدي === ويمكن استخدام هذا السطر لنفس الغرض Rows([J2] & ":" & [K2]).EntireRow.Hidden = True رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر يوليو 19, 2012 الكاتب مشاركة قام بنشر يوليو 19, 2012 أخى الفاضل الخالدى أثـــــابكم الله كل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر يوليو 19, 2012 الكاتب مشاركة قام بنشر يوليو 19, 2012 أخى الفاضل أبو عبد الله شكرا لله ولكم كل عام وانتم بخير رمضان كريم رابط هذا التعليق شارك More sharing options...
seao قام بنشر مارس 26, 2013 مشاركة قام بنشر مارس 26, 2013 السلام عليكم اخوانى الافاضل اعجبنى الموضوع و جزاكم الله خيرا وكنت اريد تنفيذه على ملفى ولكن بشكل اخر ان يكون هناك زر بكود برمجى لاخفاء جميع الصفوف التى تحتوى على صفر موجود فى عمود معين و زر اخر لاظهار الجميع وجزاكم الله خيرا حيث ان الامر سوف يوفر الكثير من الوقت والمجهود رصيد المخزن رقم 5 ب.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 26, 2013 مشاركة قام بنشر مارس 26, 2013 السلام عليكم الاخ الكريم / seao بارك الله فيك جرب استخدام الاكواد التاليه لعمل المطلوب علي ملفك هذا الكود لاخفاء الصفوف بناءا علي الشرط المطلوب Sub SAMA_6565() On Error Resume Next Application.ScreenUpdating = False Dim LR As Long LR = Range("I" & Rows.Count).End(xlUp).Row For i = 3 To LR With Range("I" & i) If .Value = 0 Then .EntireRow.Hidden = True End If End With Next i Application.ScreenUpdating = True End Sub وهذا الكود لاظهار جميع الصفوف Sub SAMA() On Error Resume Next Application.ScreenUpdating = False Rows("3:1000").Select Selection.EntireRow.Hidden = False Range("B3").Select Application.ScreenUpdating = True End Sub واليك ملف 2003 به الكود والازرار جزاك الله خيرا رصيد المخزن رقم 5 ب.rar 1 رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر مارس 26, 2013 مشاركة قام بنشر مارس 26, 2013 السلام عليكم هذا حل اخر لاثراء الموضوع . ملاحظة : نفس الزر يفلتر و يلغي الفلترة . تحياتي رصيد المخزن رقم 5 ب+.rar 1 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مارس 26, 2013 مشاركة قام بنشر مارس 26, 2013 السلام عليكم<br /><br />حلول اكثر من رائعة<br /><br />تدل على أننا في حضرة عباقرة بكل معنى للكلمة<br /><br />جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 26, 2013 مشاركة قام بنشر مارس 26, 2013 السلام عليكم اخي واستاذنا العزيز / خالد القدس بارك الله فيك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 بارك الله فيك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر يونيو 12, 2013 الكاتب مشاركة قام بنشر يونيو 12, 2013 أخى الكريم / احمد عبد الناصر كود جميل وخفيف أثابكم الله رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 شكرا لك استاذ دغيدي , تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر يوليو 29, 2013 مشاركة قام بنشر يوليو 29, 2013 بسم الله الرحمن الرحيم يا جماعة ممكن تعديل نف كود اعلى على سبيل منع نسخ و حذف و ادراج و الى اخره علة مجموعة عمود معينة مثلا عمود x z aa ab ad bd bo bx رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان