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

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


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



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





تعديل في الفورم 3

الفورم شغال كويس لما ضفت عليه بعض التكست بوكس كل الاوامر تمام بس لما اكتب فى تكست بوكس البحث مش بيظهر شيءفى اللست بوكس ..



14-07-2019 05:46 مساء
عصام حنيش
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 03-02-2018
رقم العضوية : 4177
المشاركات : 5
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 1
 offline 

الفورم شغال كويس لما ضفت عليه بعض التكست بوكس كل الاوامر  تمام بس لما اكتب فى تكست بوكس البحث مش بيظهر شيءفى اللست بوكس وبيدي رسالة خطأ وبصراحة مش عارف الخطأ فين بالضبط ؟؟ ارجو الافادة 
 
 
  form listbox.rar   تحميل rar مرات التحميل :(18)
الحجم :(356.387) KB







14-07-2019 08:14 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 611
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 523
قوة السمعة : 6755
الاعجاب : 192
 offline 
look/images/icons/i1.gif تعديل في الفورم 3
الأخ الكريم / عصام
يمكن استخدام الكوديين التاليين فى حدث 
TextBox11_Change   و    ListBox1_Click

الكود الأاول خاص بالتكست بوكس للبحث

Private Sub TextBox11_Change()
Sheets("البيانات").Activate
ListBox1.clear
ListBox1.RowSource = ""

For Each c In Range("D14:D1000")

M = InStr(c, TextBox11.Value)
If M > 0 Then
ListBox1.AddItem (c)
End If
Next c

If TextBox11 <> "" Then
For i = 14 To 1000
If Cells(i, 4) = TextBox11.Text Then
Cells(i, 4).Select
Exit For
End If
Next i
'-----------------------------------
TextBox1.Value = ActiveCell
TextBox2.Value = ActiveCell.Offset(0, 1).Value
'Me.ComboBox1 .Text = ActiveCell.Offset(0, 8).Value
TextBox4.Value = ActiveCell.Offset(0, 9).Value
TextBox5.Value = ActiveCell.Offset(0, 10).Value
TextBox6.Value = ActiveCell.Offset(0, 11).Value
TextBox7.Value = ActiveCell.Offset(0, 12).Value
TextBox8.Value = ActiveCell.Offset(0, 13).Value
TextBox9.Value = ActiveCell.Offset(0, 14).Value
TextBox10.Value = ActiveCell.Offset(0, 15).Value
TextBox13.Value = ActiveCell.Offset(0, 16).Value
TextBox14.Value = ActiveCell.Offset(0, 17).Value
TextBox15.Value = ActiveCell.Offset(0, 18).Value
TextBox16.Value = ActiveCell.Offset(0, 19).Value
TextBox17.Value = ActiveCell.Offset(0, 20).Value
End If


End Sub


الكود التالى خاص باليست بوكس
Private Sub ListBox1_Click()
    TextBox11.Value = ListBox1.Value
End Sub


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




14-07-2019 10:50 مساء
مشاهدة مشاركة منفردة [2]
عصام حنيش
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 03-02-2018
رقم العضوية : 4177
المشاركات : 5
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 1
 offline 
look/images/icons/i1.gif تعديل في الفورم 3
جزاكم الله كل خير استاذ محمد على الاهتمام ...
ولكن المشكلة فى تكست بوكس البحث لا يظهر اى بيانات فى  تكست بوكس13 ، 15 ،14  ،16 ،17





14-07-2019 11:07 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 611
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 523
قوة السمعة : 6755
الاعجاب : 192
 offline 
look/images/icons/i1.gif تعديل في الفورم 3
أخى الكريم
عفوا نسيت أضع الأسطر الخاصة بهذه المحتويات
فى الكود الأول الخاص بـ  حدث  TextBox11_Change

يمكن اضافة هذه الأسطر التالية قبل End If
TextBox13.Value = ActiveCell.Offset(0, 16).Value
TextBox14.Value = ActiveCell.Offset(0, 17).Value
TextBox15.Value = ActiveCell.Offset(0, 18).Value
TextBox16.Value = ActiveCell.Offset(0, 19).Value
TextBox17.Value = ActiveCell.Offset(0, 20).Value


وقد تم التعديل على الكود الكلى فى المشاركة الأولى

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




15-07-2019 07:43 صباحا
مشاهدة مشاركة منفردة [4]
عصام حنيش
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 03-02-2018
رقم العضوية : 4177
المشاركات : 5
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 1
 offline 
look/images/icons/i1.gif تعديل في الفورم 3
رينا يبارك فيكم ويزدكم علم يا رب العالمين

أثارت هذه المشاركة إعجاب: محمد الدسوقى،




15-07-2019 05:55 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 611
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 523
قوة السمعة : 6755
الاعجاب : 192
 offline 
look/images/icons/i1.gif تعديل في الفورم 3
الحمد لله الذى بنعمه تتم الصالحات

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في دالة معرفة لفصل القيم النصية hassona229
14 76 محمود ابو الدهب
تعديل كواد msgbox احمد 9598
18 112 محمود ابو الدهب
مساعدة في تعديل صيغة الارقام بالتيكست بوكس المبتدأ
11 91 محمود ابو الدهب
ضبط كود التعديل والبحث بالفورم مهند محسن
28 234 محمود ابو الدهب
مساعدة في تعديل كود خاص i*nputBOX المبتدأ
10 82 محمود ابو الدهب

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


 







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



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

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