كود احفاء صفوف واظهار

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الافاضل 

هلى يمكن عمل كود اخفاء واظهارعدد من الصفوف على اساس ان الخليه M2 تساوى صفر

اى 

ان الخليه M1 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 40

والخليه M 41 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 80

 والخليهM 81 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة

اى الى الصف 120 وهكذا  

ويمكن اظهار جميع الصفوف المخفيه مره اخرى عند الضغط على الزر مره اخرى 

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

 

كود اخفاء واظهار.rar

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[شوقي ربيع]

السلام عليكم

Dim Lr As Long, I As Long

Sub Test1() ' áÇÎÝÇÁ ÇáÕÝæÝ ÚäÏ ÊÍÞíÞ ÇáÔÑØ
With Feuil1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For I = 1 To Lr Step 40
If .Range("M" & I) = 0 Then
Rows(I & ":" & I + 39).EntireRow.Hidden = True
End If
Next
End With
End Sub

Sub Test2() ' áÇÖåÇÑ ÇáÕÝæÝ ÇáãÎÝíÉ
With Feuil1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For I = 1 To Lr
 If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False
Next
End With
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب  شوقى ربيع .... كعادتك ... 

معك حل لكل شئ

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

اخى الحبيب ... استسمحك تطبيق الكود على المرفق ...

لكونه بعطى خطاء معى 424

او لعل الخطاء عندى لا استطيع تطبيقه

[شوقي ربيع]

غير عبارة    With Feuil1

في كلا الكودين الى اسم الشيت لديك

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى االعزيز شوقى

مع الاسف تم تغير المطلوب ليصبح الامر

على اساس ان اسم الشيت  لدى اسمة 1  الا انه لم تعمل ظهر خطاء اخر

 

Dim Lr As Long, I As Long

 

Sub Test1() ' áÇÎÝÇÁ ÇáÕÝæÝ ÚäÏ ÊÍÞíÞ ÇáÔÑØ

1

Lr = .Cells(.Rows.Count, 1).End(xlUp).Row

For I = 1 To Lr Step 40

If .Range("M" & I) = 0 Then

Rows(I & ":" & I + 39).EntireRow.Hidden = True

End If

Next

End With

End Sub

 

Sub Test2() ' áÇÖåÇÑ ÇáÕÝæÝ ÇáãÎÝíÉ

1

Lr = .Cells(.Rows.Count, 1).End(xlUp).Row

For I = 1 To Lr

 If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False

Next

End With

End Sub

ارجو اضافه الكود على المرفق

جزاك الله خير

تم تعديل أبريل 5, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[شوقي ربيع]

السلام عليكم

مازلت تكتب الكود بطريقة خاطائة

الكود يكون هكذا

Sub Test1() ' ?CI?C? C????? ??I E???? C?O??
With 1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For I = 1 To Lr Step 40
If .Range("M" & I) = 0 Then
Rows(I & ":" & I + 39).EntireRow.Hidden = True
End If
Next
End With
End Sub

Sub Test2() ' ?C??C? C????? C??I??E
With 1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For I = 1 To Lr
 If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False
Next
End With
End Sub

.انا لم ارفقه في الملف لكي تتعلم طريقة التركيب

[حمادة عمر]

بعد اذن اخي الحبيب: شوقي .. جزاه الله خيرا

جرب اخي الكريم

With Sheets("1")

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

اخى العزيز شوقى غريب ... الاخ الفاضل حماده عمر

جزاكم الله خيرا .... تم  الامر

لجعل الامر بصوره افضل ...

خل يمكن جعل الامر بكود واحد ... بمعنى الضعط على الزر يخفى الصفوف .... ثن الضغط على الز مره الزر

مره اخرى يظهر الضفوف المخفيه ...

وكيف الامر اذا ارت ان يعمل الكود على اكثر من شيت 

جزاكم الله كل الخير على المساعده 

[شوقي ربيع]

السلام عليكم

اولا انشاء في ورقة العمل CommandButton وليس Button

و اجعل (Caption)  تسميته Hide  ثم دبل كليك عليه ثم انسخ فيه هذا الكود

If Me.CommandButton1.Caption = "Hide" Then
With 1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For I = 1 To Lr Step 40
If .Range("M" & I) = 0 Then
Rows(I & ":" & I + 39).EntireRow.Hidden = True
End If
Next
End With
Me.CommandButton1.Caption = "Show"
Else
With 1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For I = 1 To Lr
 If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False
Next
End With
End If

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

يرجاء شرح كيفيه عمل امر CommandButton

لانى لم اعمل به من قبل

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

[شوقي ربيع]

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب  شوقى ربيع .... 

جزاك الله خيرا سلمت يداك ... تم الامر بصورة جيده 

 

اخى الحبيب  حماده عمر .... 

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

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب  شوقى ربيع .... 

اخى الحبيب  حماده عمر .... 

هل يمكن جعل الكود عن طريق زر بدلا من CommandButton

لانه يوجد 12 شيت واريد ان اطبق الاخفاء والاظهار عليهم من خلال زر فى كل شيت

على اساس ان زر واحد يقوم بعمليه الاخفاء وعند الظغط عليه مره اخرى يتم الاظهار

**** ملحوظة عن استخدام كود الاظهار ... توميض الشاشه .. وتنبض حتى ينتهى الكود من العمل

 

مثل هذا الكود 

 

Sub dahmour()

If ActiveSheet.FilterMode = True Then

ActiveSheet.ShowAllData

Else

Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row).AutoFilter field:=1, Criteria1:="<>0", visibleDropDown:=False

End If

End Sub

تم تعديل أبريل 6, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب  شوقى ربيع .... 

اخى الحبيب  حماده عمر .... 

هل يمكن جعل الكود عن طريق زر بدلا من CommandButton

لانه يوجد 12 شيت واريد ان اطبق الاخفاء والاظهار عليهم من خلال زر فى كل شيت

على اساس ان زر واحد يقوم بعمليه الاخفاء وعند الظغط عليه مره اخرى يتم الاظهار

**** ملحوظة عن استخدام كود الاظهار ... توميض الشاشه .. وتنبض حتى ينتهى الكود من العمل

 

مثل هذا الكود 

 

Sub dahmour()

If ActiveSheet.FilterMode = True Then

ActiveSheet.ShowAllData

Else

Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row).AutoFilter field:=1, Criteria1:="<>0", visibleDropDown:=False

End If

End Sub

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب شوقى غريب

اخى الحبيب حماده عمر

هلى يمكن جعل الكود عن طريق رز  .... ويكون الكود به حاصيه الاخفاء والاظهار ( كود واحد )

ارجو المساعده 

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

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[شوقي ربيع]

Sub Test()
Dim i As Long
For i = 1 To 4798 Step 40
    If Range("M" & i) = "A" And Rows(i).EntireRow.Hidden = False Then
    Rows(i & ":" & i + 39).EntireRow.Hidden = True
    Else
    Rows(i & ":" & i + 39).EntireRow.Hidden = False
    End If
Next
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الحبيب شوقى غريب ... 

جزاك الله خيرا على اهتمامك ...

اخى العزيز عن تطبيق الكود ... يظل الكود قيد التنفيذ ولا ينتهى 

واجد الشاشه تنبض ويستغرق دقيقه ونصف

الا ان لا يتم شئ ... 

لا تختفى الصفوف المطلوب لن تختفى 

مرفق الملف بعد اضافه الكود

ارجو المساعده 

كود اخفاء واظهار2.rar

تم تعديل أبريل 8, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

ارجو المساعده اكرمكم الله 

للرفع

للرفع

للرفع

تم تعديل أبريل 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[أم عبد الله]

الأستاذ / أبو حنين

 

السلام عليكم ورحمة الله وبركاته

 

إليك الملف به كود يعمل على إخفاء وإظهار الصفوف جزاه الله خيراً على من قام بعمله وعدلت فيه فقط ا العمود M إذا احتوى على الصفر يتم اخفاء الصف بالكامل وتضغط عليه مرة أخرى يظهر جميع الصفوف لعله يؤدي الغرض.

كود اخفاء واظهار11.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخت الفاضله ام عبد الله

جزاكى الله خيرا  ...وحعل سعيك فى ميزان حسناتيك

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

عندما تكون الخليه   M 1 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 40

عندما تكون الخليه M 41 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 80

عندما تكون الخليه M 81 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 120 وهكذا  

الى انتهاء 120 كارت المتواجدين

ويمكن اظهار جميع الصفوف المخفيه مره اخرى عند الضغط على الزر مره اخرى 

هذا هو المطلوب 

تم تعديل أبريل 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[طارق محمود]

السلام عليكم
بعد إذن احبابي وإخواني الأفاضل : شوقي ربيع  ، وحمادة عمر
الكود كان مضبوط فقط الشرط الذي علي أساسه يخفي الخلية ويظهرها أن خلية العمود M شرطها أن تحتوي علي 0 وليس A

 

تفضل أخي الملف وبه الكود بعد تعديل طفيف 

Sub TestSub Test_TAREQ()
    Dim i As Long
For i = 1 To 4798 Step 40
    If Range("M" & i) <> 0 Then GoTo 10
        If Rows(i).EntireRow.Hidden = False Then
            Rows(i & ":" & i + 39).EntireRow.Hidden = True
        Else
            Rows(i & ":" & i + 39).EntireRow.Hidden = False
        End If
10 Next i
End Sub

 

كود اخفاء واظهار3.rar

[طارق محمود]

معذرة للأخت الفاضلة المجتهدة / أم عبدالله

لم أر الصفحة الثانية من المشاركات قبل الرد
علي أي حال أرجو أن يكون هذا الحل مايريده أبا حنين