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

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


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





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

السلام عليكم الاستاذة الكرام اريد عمل كود لمسح خلايا لعدد من الجدول ذات نطاق ثابت ولكن الفاصل بين كل جدول وجدول خمس صفوف ..


موضوع مغلق


27-08-2021 08:01 مساء
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 

السلام عليكم الاستاذة الكرام اريد عمل كود لمسح خلايا لعدد من الجدول ذات نطاق ثابت ولكن الفاصل بين كل جدول وجدول خمس صفوف و عدد الجداول 34 جدول

 

النطاق هو Range("h5:q13,z5:ai13")


 
 

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

 
 
  vbaleg.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(150.17) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي
Sub Clear_Tables()
    Dim ws As Worksheet, r As Long, c As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        With ws
            For r = 5 To .Cells(Rows.Count, 1).End(xlUp).Row Step 14
                For c = 8 To 35 Step 18
                    .Range(.Cells(r, c), .Cells(r + 8, c + 9)).ClearContents
                Next c
            Next r
        End With
    Application.ScreenUpdating = True
    MsgBox "Tables Cleared", 64
End Sub
عرض الإجابة




28-08-2021 11:54 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif عمل كود لمسح خلايا متععدة
وعليكم السلام
جرب الكود التالي
Sub Clear_Tables()
    Dim ws As Worksheet, r As Long, c As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        With ws
            For r = 5 To .Cells(Rows.Count, 1).End(xlUp).Row Step 14
                For c = 8 To 35 Step 18
                    .Range(.Cells(r, c), .Cells(r + 8, c + 9)).ClearContents
                Next c
            Next r
        End With
    Application.ScreenUpdating = True
    MsgBox "Tables Cleared", 64
End Sub

28-08-2021 12:20 مساء
مشاهدة مشاركة منفردة [2]
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 
look/images/icons/i1.gif عمل كود لمسح خلايا متععدة

جزاك الله كل خير استاذى ياسر دائما مبدع



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



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


 










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

الساعة الآن 06:43 مساء