علي المصري قام بنشر ديسمبر 8, 2019 مشاركة قام بنشر ديسمبر 8, 2019 السلام عليكم ورحمة الله وبركاته هل يمكن عمل كود لحذف البيانات داخل الخلايا في نطاق معين مع عدم حذف المحتويات الخاصة بالخلية في حالة وجود دوال في هذه الخلايا وعدم حذف محتويات الخلايا الملونة بلون معين ( اللون الاصفر مثلا ) شاكرا لكم تعاونكم Book1.xlsx رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر ديسمبر 8, 2019 مشاركة قام بنشر ديسمبر 8, 2019 عليك السلام ورحمة الله وبركاته اتبع الخطوات التي بالصور المرفقة رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 11, 2019 الكاتب مشاركة قام بنشر ديسمبر 11, 2019 شكرا جزيلا على اهتمام حضرتك تم تحويل الخطوات التي ارسلتها الى الكود التالي Range("A2:G13").Select Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.ClearContents Range("B2").Select ولكن باقي الجزء الاخير وهو عدم حذف محتويات الخلايا الملونة باللون الأصفر مثلا رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 11, 2019 الكاتب مشاركة قام بنشر ديسمبر 11, 2019 المفروض الجزء الثاني يكون كالتالي For Each Cell In Selection If Cell.Interior.Color = Excel.XlRgbColor.rgbWhite Then 'rgbYellow Cell.ClearContents End If Next ولكن كيف يمكن تشغيل الكودين مع بعض بحيث اذا كان اللون مخالف للون الابيض لا يتم حذف مكوناتها واذا كانت تحتوي على معادلات لا يتم حذف مكوناتها رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد بدره قام بنشر ديسمبر 11, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 11, 2019 (معدل) جرب هذا لعله يفي الغرض Bookأ.xlsm تم تعديل ديسمبر 11, 2019 بواسطه احمد بدره 1 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 11, 2019 الكاتب مشاركة قام بنشر ديسمبر 11, 2019 شكرا جزيلا جزاك الله خيرا اذا فيه وقت عند حضرتك اشرح لي مكونات هذا الكود رابط هذا التعليق شارك 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.