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

اخفاء صف


jaffjaff

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

السلام عليكم ...

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

Sub HideRows()
  Application.ScreenUpdating = False
    For Each MyCell In Sheets("Sheet1").Range("C2:C100").Cells
      If MyCell = 0 Then
        MyCell.EntireRow.Hidden = True
      End If
    Next MyCell
  Application.ScreenUpdating = True
End Sub
Sub UnhideRows()
   Sheets("Sheet1").Range("C2:C100").EntireRow.Hidden = False
End Sub

بالتوفيق :fff:

HideRows.rar

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information