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