اذهب الي المحتوي
أوفيسنا

اخفاء صفوف بمعلومية خلايا محددة


إذهب إلى أفضل إجابة Solved by الخالدي,

الردود الموصى بها

  • أفضل إجابة

الفاضل / دغيدى

جرب الكود التالي


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

اتمنى ان يكون المطلوب

رابط هذا التعليق
شارك

السلام عليكم

حل موفق استاذ الخالدي

===

ويمكن استخدام هذا السطر لنفس الغرض


Rows([J2] & ":" & [K2]).EntireRow.Hidden = True

رابط هذا التعليق
شارك

  • 8 months later...

السلام عليكم اخوانى الافاضل

 

اعجبنى الموضوع و جزاكم الله خيرا وكنت اريد تنفيذه على ملفى ولكن بشكل اخر

 

ان يكون هناك زر بكود برمجى لاخفاء جميع الصفوف التى تحتوى على صفر موجود فى عمود معين

 

و زر اخر لاظهار الجميع

 

وجزاكم الله خيرا حيث ان الامر سوف يوفر الكثير من الوقت والمجهود

رصيد المخزن رقم 5 ب.rar

رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم  / 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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

اخي واستاذنا العزيز / خالد القدس

 

بارك الله فيك

وجزاك الله خيرا

رابط هذا التعليق
شارك

  • 2 months later...
  • 1 month later...

بسم الله الرحمن الرحيم

 

يا جماعة ممكن تعديل نف كود اعلى على سبيل 

منع نسخ و حذف و ادراج و الى اخره علة مجموعة عمود معينة مثلا

عمود x    z     aa         ab    ad    bd    bo    bx

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information