إظهار وإخفاء صف بزر واحد

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

 

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

بارك الله في صيامكم

في المرفق جدول به صف-رقم 5- به مجاميع كلية أود ظهور واخفاء الصف بزر واحد مع تغيير عنوان الزر :فيكون مرة إظهار المجموع-وأخرى إخفاء المجموع
 

 

 

 

Aziz02.rar

[طارق محمود]

تفضل أخي الكريم

 

Aziz02.rar

[ياسر خليل أبو البراء]

الباشمهندس الحبيب طارق

كل عام وأنتم بخير

زيادةً في الخير وإثراءً للموضوع إليك أخي السائل الكود التالي ..

Sub HideUnideRow()
    With ActiveSheet.Buttons("Button 3")
        If .Caption = "إخفاء المجاميع" Then
            .Caption = "إظهار المجاميع"
            Rows("5:5").EntireRow.Hidden = True
        Else
            .Caption = "إخفاء المجاميع"
            Rows("5:5").EntireRow.Hidden = False
        End If
    End With
End Sub

حيث Button 3  هو اسم زر الأمر .. في حالة الملف المرفق من قبل الباشمهندس يتم تغيير كلمة Button 3 إلى Button 1

Hide & Unhide Specific Row Tarek & Yasser.rar