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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





طلب حذف صفوف شيت حسب رقم الصف

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



27-09-2019 03:51 مساء
خيثر يعقوب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2018
رقم العضوية : 3839
المشاركات : 14
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-1-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
 
  Capture.jpg   تحميل jpg Capture.jpg مرات التحميل :(2)
الحجم :(143.585) KB
 
  خيثر.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(19.328) KB





27-09-2019 04:09 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
تحميل الملف نفسه وليس صورة عنه 
لا احد يتعامل مع صورة 
ولا احد يقوم بوضع ملف لك كما تريد

أثارت هذه المشاركة إعجاب: خيثر يعقوب، YasserKhalil،



27-09-2019 08:00 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1413
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6390
الاعجاب : 989
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
يمكنك استخدام هذا الكود من أعمال الأستاذ حسين مأمون له منا كل المحبة والإحترام
Option Explicit

Sub test_DELETEROW()
'حسين مامون
Dim rng1, rng2, rng3, rng4, rng5, rng6, rng7
Dim lr, x, x2
Application.ScreenUpdating = False
With Sheet1
Set rng1 = .[e2]: Set rng2 = .[f2]: Set rng3 = .[g2]: Set rng4 = .[h2]: _
Set rng5 = .[i2]: Set rng6 = .[j2]: Set rng7 = .[k2]
lr = .Cells(Rows.Count, 1).End(3).Row
For x = 5 To lr
     .Cells(x, "n").Formula = "=ROW()"
Next x
For x2 = 5 To lr
If rng1 = .Cells(x2, "n") Or rng2 = .Cells(x2, "n") Or rng3 = .Cells(x2, "n") Or _
 rng4 = .Cells(x2, "n") Or rng5 = .Cells(x2, "n") Or rng6 = .Cells(x2, "n") Or _
rng7 = .Cells(x2, "n") Then
.[n5] = .Cells(x2, "n")
.Cells(x2, "a").EntireRow.Delete

End If
Next x2
.Range("n5:n10000") = ""
End With
Application.ScreenUpdating = True

End Sub

أثارت هذه المشاركة إعجاب: salim، خيثر يعقوب،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

27-09-2019 08:01 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
جرب هذا الكود

Option Explicit

Sub del_rows()
Dim arr(), y%, i%
Dim Rg As Range
With Sheets("ورقة1")
    y = .Cells(2, Columns.Count).End(1).Column
    If y < 5 Then Exit Sub
    arr = Application.Transpose(.Cells(2, 5).Resize(, y - 4))
    arr = Application.Transpose(arr)
     For i = LBound(arr) To UBound(arr)
        If IsNumeric(arr(i)) Then
            If Rg Is Nothing Then
             Set Rg = .Cells(arr(i), 1)
            Else
             Set Rg = Union(Rg, .Cells(arr(i), 1))
            End If
        End If
     Next i
     If Not Rg Is Nothing Then Rg.Rows.Delete
 End With
End Sub


أثارت هذه المشاركة إعجاب: ali mohamed ali، خيثر يعقوب، علي بطيخ سالم، YasserKhalil،



27-09-2019 08:20 مساء
مشاهدة مشاركة منفردة [4]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
يمكنك استخدام هذا الكود من أعمال الأستاذ حسين مأمون له منا كل المحبة والإحترام

عدد الصفوف المطلوب حذفها ليس من الضروري ان تكون 7 تمامأ ( ممكن ان تكون اكثر او اقل) 

دع الكود يعمل ديناميكياً من خلال الـــ Array


Option Explicit

Sub test_DELETEROW()
'حسين مامون
Dim rng1, rng2, rng3, rng4, rng5, rng6, rng7
Dim lr, x, x2
Application.ScreenUpdating = False
With Sheet1
Set rng1 = .[e2]: Set rng2 = .[f2]: Set rng3 = .[g2]: Set rng4 = .[h2]: _
Set rng5 = .[i2]: Set rng6 = .[j2]: Set rng7 = .[k2]
lr = .Cells(Rows.Count, 1).End(3).Row
For x = 5 To lr
     .Cells(x, "n").Formula = "=ROW()"
Next x
For x2 = 5 To lr
If rng1 = .Cells(x2, "n") Or rng2 = .Cells(x2, "n") Or rng3 = .Cells(x2, "n") Or _
 rng4 = .Cells(x2, "n") Or rng5 = .Cells(x2, "n") Or rng6 = .Cells(x2, "n") Or _
rng7 = .Cells(x2, "n") Then
.[n5] = .Cells(x2, "n")
.Cells(x2, "a").EntireRow.Delete

End If
Next x2
.Range("n5:n10000") = ""
End With
Application.ScreenUpdating = True

End Sub


أثارت هذه المشاركة إعجاب: خيثر يعقوب،



27-09-2019 08:55 مساء
مشاهدة مشاركة منفردة [5]
خيثر يعقوب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2018
رقم العضوية : 3839
المشاركات : 14
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-1-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
للأسف لا أعرف لماذا لم ينجح معي .




27-09-2019 10:34 مساء
مشاهدة مشاركة منفردة [6]
علي بطيخ سالم
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 74
الاعجاب : 31
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
ممتاز




28-09-2019 12:31 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif طلب حذف صفوف شيت حسب رقم الصف
جرب الكود التالي أخي خيثر

** لديك في الملف المرفق جدول في النطاق E6 إلى J55 وهذا يسبب مشكلة ، لذا حدد النطاق الذي به الجدول ومن التبويب Design الذي سيظهر معك بعد آخر تبويب نفذ الأمر Convert Table To Range لتحويل الجدول لنطاق عادي

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

أثارت هذه المشاركة إعجاب: ali mohamed ali، خيثر يعقوب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب مساعدة على ملف عملي تخص فورم رقم 2 malik
1 525 malik

الكلمات الدلالية
صفوف ، الصف ،


 







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

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

أعلن هنا
أعلن هنا
أعلن هنا