طلب كود إظهار وإخفاء قيم الصفر

[KHMB]

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

طلب كود إظهار وإخفاء قيم الصفر

[KHMB]

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

معذرة علي التكرار Out side my hand

علق معي واعطاني رسالة انه ليس لديك الاذن .....

[ياسر أحمد الشيخ]

ارفق ملف أخى

[الصـقر]

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

Sub اخفاء()
Dim Ln As Long
Dim Rng As Range
Dim cell As Range
فى السطر التالى قم باستبدال 
a بالعمود اللى فيه الارصده عندك
Ln = .Cells(.Rows.Count, "a").End(xlUp).Row
فى السطر التالى غير اسم الشيت وظبط النطاق بما يتناسب معك
Set Rng = Sheets("اسم الصفحه المراد العمل عليه").Range("a1:a" & Ln)
For Each cell In Rng
If cell.Value = 0 Then
cell.EntireRow.Hidden = True

End If

Next cell
End Sub

وهذا الكود لارجاء اظهار القيم الصفرية

Sub اظهار()
 اكتب اسم الصفحه كما هو مبين ثم حدد الصفوف المراد العمل عليها حاليا هى من 1 الى 1000
 Sheets("اسم الصفحه المراد العمل عليها ").Rows("1:1000").Select
    Selection.EntireRow.Hidden = False
End Sub

لو حضرتك مش هتعرف تطبقها ارفق ملف وانا اطبقه لك 

تقبل تحياتى

[KHMB]

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

اخي حسام جزاك الله خير

عندي هذا الكود من 2009 بس الملاحظ انه لابد من تنسيق الخلايا

لما تحولها نص ممتاز فأي معادلة حسابية لاتتم علي الارقام التي تنسيق خلاياها نص

بارك الله فيك

[سليم حاصبيا]

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

formnumber.rar

[KHMB]

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

شكرا اخي الاستاذ سليم وجزاك الله خير

هل من الممكن يكون على كامل الصفحة عند حدث نشاط الصفحة ومن دون ربط ذلك بالخلية

[سليم حاصبيا]

 الكود يعمل على كامل الصفحة و في الخلايا التي تختوي على ارقام فقط

ما عدا الخلية A1  التي تحتوي على الشرط 

[KHMB]

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

 

طبعا انا ذكرت اعلاة انة دون الشرط

هل من الممكن يكون على كامل الصفحة عند حدث نشاط الصفحة ومن دون ربط ذلك بالخلية

[سليم حاصبيا]

انسخ هذا الكود فقط

و ضعه في حدث الصفحة

Private Sub Worksheet_Activate()
 Cells.NumberFormat = "_( #,##0_);_( -#,##0_);_( """"_)"
End Sub

[احمد ابوزيزو]

مشاركة بسيطه

بدون كود

من قائمة ادوات - خيارات - عرض - علامه (صح ) عند  قيم الصفر  لاظهار قيم الصفر

                                           بدون علامه (صح ) عدم اظهار القيم الصفريه

[KHMB]

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

اخي الاستاذ سليم نعم عملتها اخذتها من كودك السابق بعد كلمة Else  جزاك الله خير

اخي احمد زيزو نعم اعرف الطريقة لكـــــــــن لااريد التدخل يدوي .جزاك الله خير

 

الاستاذ سليم حاصبيا / إذا وجد كود آخر غير هذا فلاتنساني بارك الله فيك