KHMB قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 السلام عليكم ورحمة الله طلب كود إظهار وإخفاء قيم الصفر
KHMB قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 السلام عليكم ورحمة الله معذرة علي التكرار Out side my hand علق معي واعطاني رسالة انه ليس لديك الاذن .....
الصـقر قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 استاذى الحبيب استخدم هذا الكود 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 قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 السلام عليكم ورحمة الله اخي حسام جزاك الله خير عندي هذا الكود من 2009 بس الملاحظ انه لابد من تنسيق الخلايا لما تحولها نص ممتاز فأي معادلة حسابية لاتتم علي الارقام التي تنسيق خلاياها نص بارك الله فيك
سليم حاصبيا قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 اليك هذا الملف ربما ينال اعجابك formnumber.rar
KHMB قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 السلام عليكم ورحمة الله شكرا اخي الاستاذ سليم وجزاك الله خير هل من الممكن يكون على كامل الصفحة عند حدث نشاط الصفحة ومن دون ربط ذلك بالخلية
سليم حاصبيا قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 الكود يعمل على كامل الصفحة و في الخلايا التي تختوي على ارقام فقط ما عدا الخلية A1 التي تحتوي على الشرط
KHMB قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 السلام عليكم ورحمة الله طبعا انا ذكرت اعلاة انة دون الشرط هل من الممكن يكون على كامل الصفحة عند حدث نشاط الصفحة ومن دون ربط ذلك بالخلية
سليم حاصبيا قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 انسخ هذا الكود فقط و ضعه في حدث الصفحة Private Sub Worksheet_Activate() Cells.NumberFormat = "_( #,##0_);_( -#,##0_);_( """"_)" End Sub
احمد ابوزيزو قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 مشاركة بسيطه بدون كود من قائمة ادوات - خيارات - عرض - علامه (صح ) عند قيم الصفر لاظهار قيم الصفر بدون علامه (صح ) عدم اظهار القيم الصفريه 1
KHMB قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 السلام عليكم ورحمة الله اخي الاستاذ سليم نعم عملتها اخذتها من كودك السابق بعد كلمة Else جزاك الله خير اخي احمد زيزو نعم اعرف الطريقة لكـــــــــن لااريد التدخل يدوي .جزاك الله خير الاستاذ سليم حاصبيا / إذا وجد كود آخر غير هذا فلاتنساني بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.