طارق زكريا حسين جاه الرسول قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 بسم الله الرحمن الرحيم بعد التحية ارجوا من سيادتكم كود لحذف جميع الخلايا ماعدا الخلايا التى بها معادلات ولكم جيل الشكركود حذف خلايا معينة.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 استاذ طارق اليك هذا الكود عسى ان ينال اعجابك Sub del_without_function() Dim wh As Worksheet Dim myrange As Range Set wh = ActiveSheet Set myrange = wh.Range("b2:z100") For Each cel In myrange If cel.HasFormula = False Then cel.ClearContents End If Next End Sub 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 23, 2014 أفضل إجابة مشاركة قام بنشر مايو 23, 2014 استاذ طارق الحل مرفق طارق.rar 1 رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 رائع يا ا\ سليم يا سلام لو يحذف كمان التعليقات يبقى perfect رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 اخي صلاح ()Sub Remove_All_Comments_From_Worksheet Cells.ClearComments End Sub لحذف التعليقات استعمل الكود التالي 1 رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 (معدل) اخى و استاذى \ سليم هل يمكن دمج الكودين ام سيكونوا منفصلين بمعنى ان يحذف الزر البيانات و التعليقات ( زر واحد فقط ) تم تعديل مايو 24, 2014 بواسطه صلاح الصغير رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 استاذ سليم رائع لا بل في قمة الروعة جزاك الله خيرا على هذا الكود الاكثر من رائع والذي سيوفر الكثير من الوقت والجهد جعله الله في ميزان حسناتك 10 /10 لا بل 10000000000000000 / 10 :fff: :fff: :fff: رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 وباذن اذنك طبعا لدمج الكود سيكون هكذا Sub del_without_function() Dim wh As Worksheet Dim myrange As Range Application.ScreenUpdating = False Set wh = ActiveSheet Set myrange = wh.Range("a2:z100") For Each cel In myrange If cel.HasFormula = False Then cel.ClearContents End If Next Application.ScreenUpdating = True Cells.ClearComments End Sub 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 استاذ محمد في هذه الحالة سوف تحذف التعليقات من جميع الخلايا /بما فيها التي تحتوي على معادلات 1 رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 وهو المطلوب يا ا \ محمد بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان