المحموم قام بنشر أكتوبر 3, 2012 مشاركة قام بنشر أكتوبر 3, 2012 أخواني الأعزاء أرجو مساعدتي في ايجاد حل لهذه المشكله عندي جدول أكسل وكل الخلايا فيها منزلتين عشريتين مثل : ( ٨.٥٠ ) ( ١٦.٧٥ ) ( ٩٣.٠٠ ) المطلوب تجاهل المنازل العشريه إ ذا كانت أصفاراً تلقائياً كما هو الحال في المثال ( ٩٣.٠٠ ) ليصبح ( ٩٣ ) فقط ولجهودكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 3, 2012 مشاركة قام بنشر أكتوبر 3, 2012 السلام عليكم على افتراض ان الصف المعني بالتغيير هو Range("K2:K34") فيكون الكود كالتالي : Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim c As Range For Each c In Range("K2:K34") With c If Right(.Text, 2) = "00" Or .Value = 0 Then .NumberFormat = "General" Exit Sub Else .NumberFormat = "0.00" End If End With Next End Sub رابط هذا التعليق شارك More sharing options...
المحموم قام بنشر أكتوبر 3, 2012 الكاتب مشاركة قام بنشر أكتوبر 3, 2012 شكراً أخي أبو حنين ، بارك الله فيك رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 3, 2012 مشاركة قام بنشر أكتوبر 3, 2012 العفو اخي الكريم رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 3, 2012 مشاركة قام بنشر أكتوبر 3, 2012 أخى الغالى ابا حنين هل يمكن التعديل فى الكود هكذا ليكون الكسر العشرى ذو منزلة واحدة والحفاظ على خاصية منع ظهور الصفر والعلامة العشرية لو كان الرقم بدون كسر عشرى ؟؟ علماً بأن الكود سيطبق فى مدى 2000 سطر كاملين Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim c As Range For Each c In Range("A1:IV2000") With c If Right(.Text, 2) = "00" Or .Value = 0 Then .NumberFormat = "General" Exit Sub Else .NumberFormat = "0.0" End If End With Next End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان