اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil شيت كنترول ابتدائى 2019 ـ برنامج كنوز اكسيل اسئله واجابات




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





بحث وتعديل وحذف

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



11-10-2018 02:38 صباحا
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 145
الاعجاب : 66
 offline 

السلام عليكم احبائى الكرام
برجاء من أحد العباقرة والنوابغ ان يقوم بتصحيح الكود المرفق مع الموضوع
نبذه صغيره عن المشكلة
1- عند تفعيل اليوزرفورم لا يقوم بكتابة الترتيب الصحيح للأرقام الحالات بشيت الأكسيل .
2- عند اختيار اى حالة من الليست بوكس تظهر الرسالة المرفقه صورتها مع الموضوع .
3- لو عند حضرتك ( اقصد المبدع الذى سوف يقوم بالرد على موضوعى ) كتابة كود الحذف لأى حالة اقوم بإخيارها .
اعلم جيداً ان كل النوابغ والمبدعين ليس لديهم الوقت الكافى للرد على طلبات الأعضاء وخاصة اللى مش بيبطلوا طلبات مثلى
اشكركم مقدماً على كل ما تقدموه لنا ولجميع الأعضاء المحترمين فى هذا المنتدى الكبير من مساعدات ونصائح.
جعل الله تعالى هذه الأعمال فى ميزان حسناتكم الى يوم القيامة
وفقكم الله لما يحبة ويرضاه  ... تقبلوا تحياتى 142

 
 
  بحث وتعديل.jpg   تحميل jpg بحث وتعديل.jpg مرات التحميل :(0)
الحجم :(166.856) KB
 
  تعديل وبحث.rar   تحميل rar مرات التحميل :(6)
الحجم :(26.519) KB







11-10-2018 03:50 مساء
مشاهدة مشاركة منفردة [1]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 164
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 274
الاعجاب : 118
 offline 
look/images/icons/i1.gif بحث وتعديل وحذف
 
 
  تعديل وبحث.rar   تحميل rar مرات التحميل :(6)
الحجم :(27.2) KB


أثارت هذه المشاركة إعجاب: Eslam Abdullah،




11-10-2018 10:45 مساء
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 145
الاعجاب : 66
 offline 
look/images/icons/i1.gif بحث وتعديل وحذف
جزاك الله خيرا استاذى الكريم / مهند محسن
حضرتك عند اختيار رقم لائحة من الليست بوكس وقمت بالضغط على زر تعديل يتم اضافته مرة آخرى ولا يقوم بعملية التعديل
وفى حالة اختيار رقم لائحة من الليست بوكس وقمت بالضغط على زر حذف يقوم بالحذف لكن لا يقوم بحذف الصفوف الفارغة
وارجوا عند الضغط على زر اضافة يقوم بمعرفة آخر رقم حالة ويقوم بالإضافة الى الرقم الذى يلية دون تكرار
اشكر حضرتك على المشاركة الجميلة والمجهود الرائع
جعل الله هذا العمل فى ميزان حسناتك 
وتقبل تحياتى  142

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




12-10-2018 12:42 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1214
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 60
قوة السمعة : 7271
الاعجاب : 2063
 Online 
look/images/icons/i1.gif بحث وتعديل وحذف
جزاك الله خيرا أستاذ مهند مشكور حلولك المميزه
وهذا حل مقترح منى للاستاذ اشرف

بالنسبة للترتيب الصحيح فى اليوزر فورم استخدم الكود التالى فى الحدث UserForm_Activate

Private Sub UserForm_Activate()
ListBox1.Clear
TextBox12.SetFocus
For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.AddItem
        ListBox1.List(i - 2, 0) = i - 1
        ListBox1.List(i - 2, 1) = Cells(i, 2).Value
Next i
End Sub

بالنسبة للرسالة التى تظهر عند الضغط على اليوزر فورم استخدم الكود التالى فى الحدث ListBox1_Click
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
        TextBox1.Value = ListBox1.List(i, 0)
        TextBox2.Text = ListBox1.List(i, 1)
        Exit For
    End If
Next i
End Sub

بالنسبة لكود الحذف استخدم الكود التالى فى الحدث CommandButton3_Click​
Private Sub CommandButton3_Click()
'كود حذف بيانات موظف
'**************************************************
For i = 0 To ListBox1.ListCount
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
    If ListBox1.Selected(i) = True Then
        Range("A" & i + 2).EntireRow.Delete
        Range("A2").Value = 1
        Range("A2").DataSeries 2, , , , lrw - 2
        Call UserForm_Activate
        Exit For
    End If
Next i
End Sub

وهذا تعديل لكود الاضافة فى الحدث CommandButton2_Click
Private Sub CommandButton2_Click()
'كود اضافة بيانات موظف جديد
'**************************************************
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
Sheets(1).Cells(lrw + 1, 1) = TextBox1.Value
Sheets(1).Cells(lrw + 1, 2) = TextBox2.Text
TextBox1.Value = "": TextBox2.Text = ""
Call UserForm_Activate
End Sub

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




12-10-2018 01:14 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 617
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2980
الاعجاب : 959
 offline 
look/images/icons/i1.gif بحث وتعديل وحذف
أحسنت استاذ اسلام بارك الله فيك

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


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


12-10-2018 04:22 صباحا
مشاهدة مشاركة منفردة [5]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 9
يتابعونه : 1
قوة السمعة : 145
الاعجاب : 66
 offline 
look/images/icons/i1.gif بحث وتعديل وحذف
الف مليون شكر على الإهتمام الزائد من الأخوة العباقرة الكرام وهذا ليس بجديد عليهم  وهم الأساتذه
الأستاذ / مهند محسن 
والأستاذ المبدع العبقرى والنابغة / اسلام عبدالله
ملحوظه صغيرة 
1- عند الحذف يحذف اسم الحاله فقط ويترك رقم الحاله للحالة التالية لكننى اريد حذف الصف بالكامل
2- لو تكرتم وضع كود تعديل البيانات للزر CommandButton1 
3- عند البحث فى تكست بوكس 12 يتجاهل الحالة رقم 1 ويكتبها رقم 2 للحاله الاولى التى من المفترض تأخذ رقم 1 لماذا ؟ 
جزاكم الله خيرا وجعل الله هذه المساعدات صدقة جارية لكم الى يوم القيامه
وفقكم الله لما يحبه ويرضاه 111

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




13-10-2018 11:50 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1214
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 60
قوة السمعة : 7271
الاعجاب : 2063
 Online 
look/images/icons/i1.gif بحث وتعديل وحذف
ارجوا ارفاق ملف بعد التطبيق حيث لم اجد مشاكل بتطبيق الكود الذى ارفقته






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل علي كود بحث manola_mr
2 21 manola_mr
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
34 358 مالك ماريه
بحث كامل عن محاسبة سلف الموظفين - حسام خطاب الصقر
38 745 abdulwahed catran
فورم إضافة وبحث وتعديل يحتاج خبير yehya mahmoud
3 75 YasserKhalil
فورم مميز للبحث mohamedmomtaz
29 868 هانى حرحش

الكلمات الدلالية
وتعديل ، وحذف ،


 







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



الساعة الآن 10:00 مساء

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