زر اظهار واخفاء الصفوف الفارغة

[ابوصلاح]

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

نرجو من حضراتكم

زر واحد لاظهار واخفاء الصفوف الفارغة

اي بالضغط مرة للاظهار واخري للاخفاء

اظهار واخفاء الصفوف.zip

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم / ابو صلاح

جرب هذا الكود للإظهار والإخفاء

وينقلك للمعاينه مباشرة ومن خلال اغلاق المعاينة تعود للوضع الطبيعى

لأننى لم أقم بتجربته على الملف المرفق من قبلكم 

 

الكود

Private Sub CommandButton1_Click()
Application.ScreenUpdating = True
Dim Cl As Range
    For Each Cl In Range("b8:b213")
        If Cl.Value = 0 Then
            Cl.EntireRow.Hidden = True
        End If
    Next Cl
ActiveWindow.SelectedSheets.PrintPreview
    For Each Cl In Range("b8:b214")
        Cl.EntireRow.Hidden = False
    Next Cl

Application.ScreenUpdating = True
End Sub

 

وتقبل منى وافر الاحترام والتقدير

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

الأخ أبو صلاح جرب المرفق التالي

 

اظهار واخفاء الصفوف.rar

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

الأخ الحبيب محمود الشريف

أعتذر لعدم رؤية مشاركتك ..

حيث أنني لم أقم بتحديث الصفحة منذ بداية الموضوع تقريبا ...

عموما الحلول المختلفة تثري الموضوع

[ابوصلاح]

بارك الله فيكم جميعا

بصراحة حلول جميلة

لكن المراد زر واحد

مثال للملف المرفق مع اختلاف المضمون

وانا حاولت تطبيقها علي الصفوف الفارغة ولم استطع لقلة خبرتي

اخفاء واظهار.zip

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

تفضل يا أبو صلاح ويا ريت يبقا الشغل على ملف واحد

 

Hide Empty Rows.rar

[ابوصلاح]

استاذ ياسر شكرا علي وقتك

بارك الله فيك

الملف الثاني هو مثال للتوضيح وليس ملف للعمل عليه لكن اظهار زر CommandButton

تم تعديل الكود للملف الاصلي

مرة اخرى شكرا لك

تقبل مني

تم تعديل أكتوبر 20, 2014 بواسطه ابوصلاح

[محمود_الشريف]

أخى فى الله

الأستاذ القدير // ياسر خليل

بارك الله فيكم وجزاكم الله خير الخير

انتم أساتذتى وتعلمت منكم الكثير أخى الحبيب وما زلت أتعلم 

وهذا من طيب أصلكم وكرمكم

والكود المرفق من قبلكم اكثر دقه 

 

ملحوظة 

فيما يختص بالكود المرفق من قبلى بالمشاركه الأولى به خطأ

بدلا من جعل القيمة = 0

المفروض انها تكون = ""

واعتذر لعدم الإنتباه لذلك لأننى لم أقم بتجربة الكود

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

Private Sub CommandButton1_Click()
Application.ScreenUpdating = True
Dim Cl As Range
    For Each Cl In Range("b8:b213")
        If Cl.Value = "" Then
            Cl.EntireRow.Hidden = True
        End If
    Next Cl
ActiveWindow.SelectedSheets.PrintPreview
    For Each Cl In Range("b8:b214")
        Cl.EntireRow.Hidden = False
    Next Cl

Application.ScreenUpdating = True
End Sub

وتقبلوا منى وافر الاحترام والتقدير

[ابوصلاح]

بالتاكيد استاذ محمود

بس الكود رائع وانا عموما استخدمت هذا الكود في عمل اخر وتمت تجربته

شكرا اخي محمود

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم // ابو صلاح

بارك الله فيكم ..والشكر لله 

وتقبل منى وافر الاحترام والتقدير

[الفرس]

الاخ ياسر خليل

اخوانى الكرام

 

اريد ان انقل هذا الكود بالاضافة الى الزر

ولكن الزر لايتحرك

 

اريد طريقة لنقل الكود والزر الى الملف الخاص بى

 

Hide Empty Rows.rar

[ابوصلاح]

الاخ ياسر خليل

اخوانى الكرام

 

اريد ان انقل هذا الكود بالاضافة الى الزر

ولكن الزر لايتحرك

 

اريد طريقة لنقل الكود والزر الى الملف الخاص بى

 

Hide Empty Rows.rar

اضغط علي المطور ثم  وضع التصميم

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

اضغط Alt + F11

ستجد الكود التالي ، قم بنسخه إلى ملفك

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
        Dim cel As Range
        If CommandButton1.Caption = "إخفاء" Then
            For Each cel In Range("A2:A200")
                If cel.Value = 0 Or cel.Value = "" Then
                    cel.EntireRow.Hidden = True
                End If
            Next cel
            CommandButton1.Caption = "إظهار"
        Else
             Range("A2:A200").EntireRow.Hidden = False
             CommandButton1.Caption = "إخفاء"
        End If
    Application.ScreenUpdating = True
End Sub

قم بالذهاب الى التبويب Developer ثم Insert وأدرج زر أمر Command Button (ActiveX Control على أن يكون زر الأمر باسم CommandButton1 أو إذا لم يكن بهذا الاسم وكان باسم آخر قم باستخدام الاسم الآخر للتعديل داخل الكود ليناسب طلبك

[الفرس]

جزاكم الله خيرا اخوانى الكرام

وجعل كل اعمالكم ونصائحكم خالصة لوجهه الكريم وزادكم الله من علمه