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

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


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





مسح صف عن طريق الليست بوكس

السلام عليكم ورحمة الله مرفق شيت اكسيل عند الضغط على استعلام يظهر لنا ليست بوكس ولو بحثنا ب العمود d فى شيت data2 هيظه ..


موضوع مغلق


18-10-2021 10:30 مساء
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 

السلام عليكم ورحمة الله
مرفق شيت اكسيل
عند الضغط على استعلام يظهر لنا ليست بوكس 
ولو بحثنا ب العمود d  فى شيت data2
هيظهر نتيجة البحث

المطلوب
عن الضغط على اى صف داخل الليست بوكس والضغط على مسح يتم مسح الصف المناظر له فى شيت data2
واريد ان يظهر داخل الليست بوكس عناوين رؤس الاعمدة عن البحث

ولكم جزيل الشكر
 
 
  مسح صف من الليست بوكس.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(101.209) KB



أفضل إجابة مقدمة من hassona229 وهي:
تفضل اخى الكريم

ضع هذا الكود في ملفك


Private Sub CommandButton7_Click()
If ListBox4.ListIndex = -1 Then Exit Sub
Dim ws As Worksheet, ro%, rg
Set ws = Sheets("data2")
Set rg = ws.Columns(2).Find(ListBox4.List(ListBox4.ListIndex, 0), lookat:=1)
     If Not rg Is Nothing Then
     ro = rg.Row
       ws.Cells(ro, 1).EntireRow.Delete
     Call TextBox48_Change
     End If
End Sub
عرض الإجابة




19-10-2021 02:03 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif مسح صف عن طريق الليست بوكس
وعليكم السلام ورحمة الله وبركاته 
يمكنك الاستفاده من الشرح الجميل في هذا الموضوع للأستاذ الكبير ابو البراء 
رابط لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

19-10-2021 03:37 صباحا
مشاهدة مشاركة منفردة [2]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif مسح صف عن طريق الليست بوكس

اخى وحبيبى الفاضل
انا حرفيا بعشق الاستفاده والشرح من المنتدى

ووضعت اكثر من كود حذف بس فى حاجه غلط
اكيد من عندى

ف انا محتاج الملف بعد اللتعديل


19-10-2021 11:06 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif مسح صف عن طريق الليست بوكس
تفضل اخى الكريم

ضع هذا الكود في ملفك


Private Sub CommandButton7_Click()
If ListBox4.ListIndex = -1 Then Exit Sub
Dim ws As Worksheet, ro%, rg
Set ws = Sheets("data2")
Set rg = ws.Columns(2).Find(ListBox4.List(ListBox4.ListIndex, 0), lookat:=1)
     If Not rg Is Nothing Then
     ro = rg.Row
       ws.Cells(ro, 1).EntireRow.Delete
     Call TextBox48_Change
     End If
End Sub

20-10-2021 06:04 مساء
مشاهدة مشاركة منفردة [4]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif مسح صف عن طريق الليست بوكس
اخويا وحبيبى 
جزاك الله كل خير 
ووفيت المطلوب وأكثر
 

20-10-2021 07:06 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif مسح صف عن طريق الليست بوكس
وجزاكم مثله اخى الكريم 
الحمد لله الذي بنعمته تتم الصالحات 



الكلمات الدلالية
الليست ، طريق ، بوكس ،


 










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

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