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

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


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





مسح جزء من نطاق

الساده الافاضل عندى نطاق معين مثال B10:U500 و عند المسح يمسح فقط الصف النشط من النطاق و ليس الصف كله [code]KClTdWIgQUFBP ..



25-02-2020 10:12 صباحا
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 

الساده الافاضل
عندى نطاق معين مثال B10:U500
و عند المسح يمسح فقط الصف النشط من النطاق و ليس الصف كله

()Sub AAA

Sheets("123").Range("A1:A500")
active row..ClearContents

End Sub


25-02-2020 11:37 صباحا
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif مسح جزء من نطاق
الأستاذ خالد
حضرتك استخدمت تعليمة ( تحديد الصف النشط فقط (
active row )
جرب الكود التالى يقوم بتحديد النطاق المراد مسح بياناته
Sub AAA()
 
 ActiveSheet.Range("A1:A500").Select
Selection.ClearContents

End Sub


 

25-02-2020 12:14 مساء
مشاهدة مشاركة منفردة [2]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مسح جزء من نطاق
اشكرك استاذ محمد

انا اريد فى نطاق هذه المعلومات
يمسح الصف اللى انا وقف عليه فى الشيت فى حدود النطاق

25-02-2020 02:02 مساء
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 237
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 34
قوة السمعة : 2349
عدد الإجابات: 31
 offline 
look/images/icons/i1.gif مسح جزء من نطاق
السلام عليكم ورحمة الله
اذا اردت ازالة الصف بالكامل فعليك بهذا الكود
Sub Delete1()
Cells(ActiveCell.Row, 1).EntireRow.Delete
End Sub

اما اذا اردت مسح محتويات صف فى جدول دون ازالة الصف بالكامل فعليك بهذا الكود
Sub Clear2()
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).ClearContents
End Sub

25-02-2020 02:09 مساء
مشاهدة مشاركة منفردة [4]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مسح جزء من نطاق
اشكرك استاذ ابراهيم 

انا اريد مسح جزء من الصف ال active فى المحتوى فى نطاق معين مثال A10:U500

وليس كل الصف

25-02-2020 08:53 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مسح جزء من نطاق
جرب هذا الكود
اذا اردت صفا واحدً اختر Howmany_Row = 1

Option Explicit

Sub Del_Part_Of_Range()
Dim Rg As Range
Dim RO%, Col%, Howmany_Row, Howmany_Col
Set Rg = Range("A10:U500")
 Howmany_Row = 3: Howmany_Col = 2
 RO = 2: Col = 2
 Rg.Cells(RO, Col).Resize(Howmany_Row, Howmany_Col) = vbNullString
End Sub





الكلمات الدلالية
نطاق ،


 










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

الساعة الآن 02:21 صباحا