اكواد خاصة

[ياسرحسن]

الاخوة الزملاء بعد التحية

عندي ملف احتاج الي كود لحذف خلايا محددة في اعمدة معينة

وايضا اريد ترحيل التلاميذ من الصف الحالي للصف الاعلي

اليكم ملف بالمطلوب

المصنف1.rar

[احمد عبدالحليم]

وعليكم السلام ورحمه الله وبركاته

اولا : في الملف تريد حذف البيانات 

هل شرط الحذف هو أن يكون اللون اصفر ام ما هو شرط حذف بيانات الطالب 

واذا كان الشرط هو اللون الاصفر 

فإن حذف الصف يدويا اسرع من تلوين الخلايا 

تقبل تحياتى

 

تم تعديل سبتمبر 5, 2023 بواسطه احمد عبدالحليم

[أبومروان]

وعليكم السلام ورخمه الله

لحذف خلايا محددة في أعمدة معينة في Excel، يمكنك استخدام الكود التالي:

Sub DeleteCells()
    Dim rng As Range
    Dim cell As Range
    
    ' تعيين نطاق الخلايا التي ترغب في حذفها
    Set rng = Range("A1:A10") ' قم بتغيير "A1:A10" إلى نطاق الخلايا الذي ترغب في حذفه
    
    ' حلقة عبر كل خلية في النطاق المحدد
    For Each cell In rng
        cell.ClearContents ' حذف محتوى الخلية
    Next cell
End Sub

 

يمكنك استخدام الـ VBA في Excel لحذف الخلايا ذات اللون الأصفر. هنا هو مثال لكود VBA يقوم بحذف الخلايا ذات اللون الأصفر في ورقة العمل النشطة

Sub DeleteYellowCells()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell.Interior.Color = RGB(255, 255, 0) Then
            cell.ClearContents
        End If
    Next cell
End Sub

 

[ياسرحسن]

استاذ احمد عبد الحليم 

شكرا لردك 

الشرط هو كلمة منقول سياخذه من خلية af6

مطلوب حذف جميع البيانات بدون التأثير علي خلايا المعادلات

اللون الاصفر هو تحديد للخلايا التي اريد حذفها من الملف كله من اول b6 to u500

استاذ ابو مروان 

الف شكر لمساهمتك في حل مشكلتي

الجزء الاول هو المفصود وساقوم بتجربته واعلامك بالنتيجة