أخفاء الصف عندما تكون صفر

[أبوحازم]

السلام عليكم ورحمة الله وبركاته . هذا المصنف المرفق أدناه لوتكرمتم أريد فيه أخفاء الصف التي تكون صفر وأظهار الصف التي تكون واحد والمصنف يشرح نفسه وشكر جزيلا جدا للمنتدى وجميع الاعضاء.

تجميع1.rar

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

[جمال عبد السميع]

أخى الحبيب هناك طرق عدة لعمل ذلك لعل أطرفها هذه الطريقة

ولألغاء الصفر من الظهور أستخدم FORMAT  وظلل المدى " D5 : F263" ثم " CUSTEM " ثم  0;-0;;@

تقبل تحياتى

تجميع1.rar

[يحيى حسين]

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

أولا أخي قم بتغيير معادلتك و لا داعي لوضع الرقم و احد و صفر بين "" Double Coutation

و استخدم المعادلة التالية 

=IF(E5>1,"1",IF(D5>1,1,0))

و بعدها قم بتحديد العامود A

و رايت كليلك من خلال خيارات تنسيق الخلايا اختر مخصص و استخدم التنسيق التالي :

#;#;

دمتم في حفظ الله 

[أبوحازم]

لعلها المعلوم لم توصلة حسبما  أردت أنا .

أقصد أن تختفي الصفوف كامل إذا كان في الخلية صفر ولكن تختفي بزر وتظهر بزر

أقصد هذا الكود بس لم أعرف كيف أجعله ينفذ

Option Explicit

Sub RG_Hide()
Dim LR As Integer, i As Integer
LR = Cells(Rows.Count, 2).End(xlUp).Row
'=======================================
Application.ScreenUpdating = False
For i = LR To 8 Step -1
    If Cells(i, 7).Value = "0" Or IsEmpty(Cells(i, 7)) Then
        Rows(Cells(i, 7).Row).Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub
Sub RG_Show()
Cells.Rows.Hidden = False
End Sub

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

لعلها المعلوم لم توصلة حسبما  أردت أنا .

أقصد أن تختفي الصفوف كامل إذا كان في الخلية صفر ولكن تختفي بزر وتظهر بزر

أقصد هذا الكود بس لم أعرف كيف أجعله ينفذ

Option Explicit

Sub RG_Hide()

Dim LR As Integer, i As Integer

LR = Cells(Rows.Count, 2).End(xlUp).Row

'=======================================

Application.ScreenUpdating = False

For i = LR To 8 Step -1

    If Cells(i, 7).Value = "0" Or IsEmpty(Cells(i, 7)) Then

        Rows(Cells(i, 7).Row).Hidden = True

    End If

Next

Application.ScreenUpdating = True

End Sub

Sub RG_Show()

Cells.Rows.Hidden = False

End Sub

أخي الكريم جرب المرفق التالي

وأي استفسار أنا في الانتظار

Show-Hide Rows If Value Is Zero.rar

[أبوحازم]

شكرا هذا المصنف أريد نفس الذي عندك بس في الصف الذي يكون يكون صفر يخفي الصف كامل ويظهرالذي يكون واحد والمرفق أمامك وشكرا جزيلا

تجميع1.rar

[أبو محمد عباس]

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

الشكر والعرفان موصول للاساتذة ابو محمود جزاه الله خيرا

الاستاذ الكبير يحيى حسين جزاه الله خيرا

وبعد اذن الاستاذ الفاضل ياسر خليل ربما مشغول هذه الاوقات  جزاه الله خيرا

هذا كود الاستاذ ياسر خليل عدلت فيه لما تريد

وكذلك اضفت كود اخر في ورقة اخرى لاخفاء الصف الذي فيه القيمة صفر او فارغ

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

 

اخفاء الصفوف ذات القيمة صفر والفارغة.rar

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

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

الأخ الغالي أبو محمد عباس

اسمح لي بتصحيح بسيط في الكود الذي تفضلت به

Sub HideRows()
    Dim rng As Range
    Dim cell As Range
    Application.ScreenUpdating = False
        Set rng = Range("A5:A263")
          For Each cell In rng
            If cell.Value = 0 Or cell.Value = "" Then
               cell.EntireRow.Hidden = True
            End If
          Next cell
    Application.ScreenUpdating = True
End Sub

[أبوحازم]

شكرا جزيلا جدا للأعظاء هذا هو المطلوب

[king77]

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

الشكر والعرفان موصول للاساتذة ابو محمود جزاه الله خيرا

الاستاذ الكبير يحيى حسين جزاه الله خيرا

وبعد اذن الاستاذ الفاضل ياسر خليل ربما مشغول هذه الاوقات  جزاه الله خيرا

هذا كود الاستاذ ياسر خليل عدلت فيه لما تريد

وكذلك اضفت كود اخر في ورقة اخرى لاخفاء الصف الذي فيه القيمة صفر او فارغ

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

 

اخفاء الصفوف ذات القيمة صفر والفارغة.rar

  السلام عليكم يا ابومحمد

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

 

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

[أبو محمد عباس]

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

الاخ العزيز King77  اهلا بك في منتدانا الرائع

لاحظ هذا الرابط فيه اجابة  للاخ العزيز ابن مصر المبدع , ربما فيه ما تريد

http://www.officena.net/ib/index.php?showtopic=57133#entry362735

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

[king77]

 

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

الاخ العزيز King77  اهلا بك في منتدانا الرائع

لاحظ هذا الرابط فيه اجابة  للاخ العزيز ابن مصر المبدع , ربما فيه ما تريد

http://www.officena.net/ib/index.php?showtopic=57133#entry362735

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

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

 

 لقد جربت هذه فعلا و لكن ليس هذا المطلوب اريد الصفوف أن تختفي و تظهر تلقائيا بدون  اضافة اي زر لذلك

 

 

 و إليك الملف  و مليون شكر لكم .

ملف خاص.rar

تم تعديل نوفمبر 30, 2014 بواسطه king77

[الصـقر]

استاذى الفاضل 

انظر المرفق 

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

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

ملف خاص.zip

[king77]

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

 

 أستاذي الفاضل حسام عيسى

 

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

 

     والله 

مليــــــــــــــــــــــــــــــــــــــــــــون شكــــــــــــــــــــــر

 

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

 وكل أعضاء المنتدى المحترمين

تم تعديل نوفمبر 30, 2014 بواسطه king77

[أبو محمد عباس]

الاخ العزيز حسام عيسى

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

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