أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لمسح بيانات اعمدة مختلفة

السلام عليكم ورحمة الله وبركاته ... بعد اذن حضراتكم التكرم على حل مشكلتى فى ايجاد كود لمسح بيانات أعمدة معينة مع الاحتفا ..


موضوع مغلق


09-09-2021 11:04 مساء
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 

السلام عليكم ورحمة الله وبركاته ... بعد اذن حضراتكم التكرم على حل مشكلتى فى ايجاد كود لمسح بيانات أعمدة معينة مع الاحتفاظ بالهد



يعني مثلا عايز امسح (   h6 الي نهاية العمود ) ... وكمان (     j6 الي نهاية العمود ) ... وكمان (    m6 الي نهاية العمود )


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب








 
 
  ايمن.xlsx   تحميل xlsx مرات التحميل :(9)
الحجم :(3634.696) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم
جرب الكود بهذا الشكل
Sub Test()
    Dim lr As Long
    Application.ScreenUpdating = False
        With ThisWorkbook.Worksheets(1)
            lr = .Cells(Rows.Count, 4).End(xlUp).Row
            Union(.Range("H6:H" & lr), .Range("J6:J" & lr), .Range("M6:M" & lr)).ClearContents
        End With
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




10-09-2021 04:06 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لمسح بيانات اعمدة مختلفة
السلام عليكم
جرب الكود بهذا الشكل
Sub Test()
    Dim lr As Long
    Application.ScreenUpdating = False
        With ThisWorkbook.Worksheets(1)
            lr = .Cells(Rows.Count, 4).End(xlUp).Row
            Union(.Range("H6:H" & lr), .Range("J6:J" & lr), .Range("M6:M" & lr)).ClearContents
        End With
    Application.ScreenUpdating = True
End Sub

10-09-2021 10:21 صباحا
مشاهدة مشاركة منفردة [2]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif كود لمسح بيانات اعمدة مختلفة
شكرا جزيلا وجعله الله في ميزان حسناتك

10-09-2021 01:31 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لمسح بيانات اعمدة مختلفة
بارك الله فيك أخي الكريم ومشكور على دعائك الطيب المبارك



الكلمات الدلالية
لمسح ، بيانات ، اعمدة ، مختلفة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:50 صباحا