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

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


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





حذف نقس المادة من كل الأوراق ب زر أمر

لدينا ورقة بها قائمة بأسماء الأوراق التي نريد الحذف منها name_list لدينا عدة أوراق و لتكن 5 yy nn mm pp oo المطلوب عند ..



10-05-2020 06:01 مساء
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 

لدينا ورقة بها قائمة بأسماء الأوراق التي نريد الحذف منها name_list
لدينا عدة أوراق و لتكن 5
 yy nn mm pp oo
المطلوب عند التوقف في أي ورقة على خلية نشطة و لتكن الورقة  oo  و الخلية النشطة a15
المطلوب حذف الصنف الذي يوجد كوده في هذه الخلية النشطة من كل الأوراق الموجودة في قائمة الأوراق فقط name_list
شكرا    >>>> ليس هناك داعى لرفع الملف مضغوط طالما حجمه صغير , تجنباً لعدم اهدار وقت الأساتذة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 
 
 
  nyeftest.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(334.875) KB


10-05-2020 09:15 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 236
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2329
عدد الإجابات: 30
 offline 
look/images/icons/i1.gif حذف نقس المادة من كل الأوراق ب زر أمر
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub DelRows()
Dim ws As Worksheet, Sh As Worksheet
Dim StrDel As String, C As Range
Dim Lr As Long, Ls As Long
Dim NamShet As Variant, i As Integer
Set ws = Sheets("name_list")
Lr = ws.Range("A" & Rows.Count).End(xlUp).Row
StrDel = ActiveCell.Value
NamShet = ws.Range("A2:A" & Lr).Value
For i = 1 To UBound(NamShet, 1)
Set Sh = Sheets(NamShet(i, 1))
Ls = Sh.Range("A" & Rows.Count).End(xlUp).Row
For Each C In Sh.Range("A2:S" & Ls)
If C.Value = StrDel Then
C.Resize(1, 3).Delete
End If
Next
Next
End Sub

11-05-2020 09:47 صباحا
مشاهدة مشاركة منفردة [2]
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 
look/images/icons/i1.gif حذف نقس المادة من كل الأوراق ب زر أمر
رائع أخي الكريم
هو المطلوب بالضبط
بارك الله بك و ضاعف لك من الرزق و الصحة و أعطاك من عنده حتى يرضيك و جعل لك في ميزان حسناتك بقدر ما تعطي
أخي الكريم سؤال خارج الموضوع
عندما نغلق محرر الأكواد أجد أن كل اليوزرفورم قد أغلقت
ما هو الكود البرمجي لأعادة تشغيل اليوزرفورم الرئيسي بعد أغلاق محرر الأكواد
و شكرا

11-05-2020 01:21 مساء
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 236
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2329
عدد الإجابات: 30
 offline 
look/images/icons/i1.gif حذف نقس المادة من كل الأوراق ب زر أمر
السلام عليكم ورحمة الله
اخى الكريم بارك الله فيك على دعاءك الطيب لى جعل الله لك نصيبا منه
الحقيقة على حسب ما فهمت . قمت فتح ملفك الموجود بالمشاركة الاولى
وقمت بفتح محرر الاكواد و التنقل بين الاوراق ثم قمت بغلق محرر الاكواد
ولم يغلق اليوزر فورم . اعتقد يوجد سبب آخر لديك بالملف لا اعلمه
 هذا و الله اعلى و اعلم

11-05-2020 03:41 مساء
مشاهدة مشاركة منفردة [4]
nyfmpha
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 24
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 44
 offline 
look/images/icons/i1.gif حذف نقس المادة من كل الأوراق ب زر أمر
السلام عليكم
صحيح أخي الكريم الملف الذي أرسلته لا توجد به هذه المشكلة
أنا أستخدم كود لأضافة كود برمجي لورقة بمجرد الضغط على زر الأمر
المشكلة أنه يغلق كل اليوسرفورم المفتوح
Dim wb As Workbook
    Dim xPro As VBIDE.VBProject
    Dim xCom As VBIDE.VBComponent
    Dim xMod As VBIDE.CodeModule
    Dim xLine As Long
    Set wb = ThisWorkbook
    With wb
        Set xPro = .VBProject
        Set xCom = xPro.VBComponents(ActiveSheet.CodeName)
        Set xMod = xCom.CodeModule
        With xMod
         .DeleteLines 1, .CountOfLines
            xLine = .CreateEventProc("selectionChange", "Worksheet")
            xLine = xLine + 1
            .InsertLines xLine, "  on error resume next"
            xLine = xLine + 1
End With
End With
If Application.VBE.MainWindow.Visible = True Then
        Application.VBE.MainWindow.Visible = False
           End If
    End With
ActiveSheet.Range("a1").Select
With ALL
.Show
End With




الكلمات الدلالية
موضوع ، متجدد: ، المادة ، الأوراق ،


 










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

الساعة الآن 01:00 صباحا