اخفاء الورقة إذا كانت قيمة الخلية تساوي صفر

[محمد الزريعي]

الأخوة الأعزاء  أنني قمت بعمل كود يقوم بإخفاء  الصفوف  التي لا تحتوي على قيم في عمود معين

حيث أن الخلايا الموجودة في هذا العمود تمثل ( كل خلية تمثل شيت ) يعني عندي 50 خلية  و50 شيت   .. اسماء الشيت مرقم من 1 الي 50

 

قمت بإخفاء الصفوف  ولكن  لم استطيع اخفاء الشيتات  كما هو في التالي :

Dim rng As Range
Dim cell As Range
If ToggleButton1.Value = True Then
   ToggleButton1.Caption = "S H O W"
    Set rng = Range("j6:j55")
      For Each cell In rng
        If cell.Value = 0 Or cell.Value = "" Then
           cell.EntireRow.Hidden = True
        End If
      Next cell
Else
ToggleButton1.Caption = "H I D  E "
    Set rng = Range("j6:j55")
      For Each cell In rng
        If cell.Value = 0 Or cell.Value = "" Then
           cell.EntireRow.Hidden = False
        End If
      Next cell
End If

المطلوب   كيف اخفي الشيت  بناء على قيمة الخلية  في عمود معين

 

 

يعني الخلية  j6   أذا كانت صفر تختفي  الورقة  التي اسمها  "3"

والخلية j7  أذا كانت صفر تختفي الورقة التي اسمها  "4"

والخلية j8 إذا كانت صفر تختفي الورقة التي اسمها "5"

[الـعيدروس]

السلام عليكم

ارفق مثال وبه الجدول الذي تعمل عليه

توفير للوقت والجهد