logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





06-11-2017 08:35 مساءً
الأخوة الكرام
السلام عليكم ورحمة الله وبركاته

------------------------------------------------------
رجاء المساعدة فى كود بحث بالاسم أو برقم الجلوس فى الملف المرفق
المطلوب : ** فورم البحث عند اختيار اسم الطالب من Combobox والضغط على زر ( عرض النتيجة ) يقوم البرنامج بعرض شهادة الطالب المحدد
** وكذلك عند البحث برقم الجلوس : عند كتابة رقم الجلوس يعطى النتيجة

** و فى حالة عدم وجود رقم الجلوس ضمن أرقام الجوس بالشيت يعطى رسالة تفيد ( عدم وجود رقم الجلوس والمحاولة مرة أخرى ) EXit sub
وعودة إلى Activesheet( الشهادات ) وجعل قيمة الخلية P1 = 1

------------------------------------------------------
ولكم وافر الاحترام والتقدير
السؤال من الاستاذ محمد الدسوقي




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  06-11-2017 08:43 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
هذا الحل من المحترم زيزو العجوز .. حفظه الله
attachSearch By Name _By Seat.rar

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



look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  06-11-2017 08:45 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
CODE
Private Sub CommandButton1_Click()
Dim ws As Worksheet, SC As String
Dim y As Range, x As Range
Set ws = Sheets("SH")
SC = Search.ComboBox1.Text
RG = Search.TextBox2.Value
If SC = "" Then Shihada.Show
If SC = "" Then Exit Sub
For Each y In ws.Range("C12:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)
If y.Value = SC Then
ws.Activate
y.Select
Search.TextBox2.Value = ActiveCell.Offset(0, -1)
Shihada.Label1.Caption = ActiveCell.Offset(0, -1)
Shihada.Label2.Caption = ActiveCell.Offset(0, 0)
Shihada.Label3.Caption = ActiveCell.Offset(0, 2)
Shihada.Label4.Caption = ActiveCell.Offset(0, 8)
Shihada.Label5.Caption = ActiveCell.Offset(0, 18)
Shihada.Label6.Caption = ActiveCell.Offset(0, 28)
Shihada.Label7.Caption = ActiveCell.Offset(0, 39)
Shihada.Label8.Caption = ActiveCell.Offset(0, 51)
Shihada.Label9.Caption = ActiveCell.Offset(0, 59)
Shihada.Label10.Caption = ActiveCell.Offset(0, 63)
Shihada.Label11.Caption = ActiveCell.Offset(0, 68)
Shihada.Label12.Caption = ActiveCell.Offset(0, 73)
Shihada.Label13.Caption = ActiveCell.Offset(0, 78)
Shihada.Label14.Caption = ActiveCell.Offset(0, 83)
Shihada.Label15.Caption = ActiveCell.Offset(0, 89)
Shihada.Label16.Caption = ActiveCell.Offset(0, 99)
Shihada.Label17.Caption = ActiveCell.Offset(0, 109)
Shihada.Label18.Caption = ActiveCell.Offset(0, 9)
Shihada.Label19.Caption = ActiveCell.Offset(0, 19)
Shihada.Label20.Caption = ActiveCell.Offset(0, 29)
Shihada.Label21.Caption = ActiveCell.Offset(0, 40)
Shihada.Label22.Caption = ActiveCell.Offset(0, 52)
Shihada.Label23.Caption = ActiveCell.Offset(0, 60)
Shihada.Label24.Caption = ActiveCell.Offset(0, 64)
Shihada.Label25.Caption = ActiveCell.Offset(0, 69)
Shihada.Label26.Caption = ActiveCell.Offset(0, 74)
Shihada.Label27.Caption = ActiveCell.Offset(0, 79)
Shihada.Label28.Caption = ActiveCell.Offset(0, 84)
Shihada.Label29.Caption = ActiveCell.Offset(0, 90)
Shihada.Label30.Caption = ActiveCell.Offset(0, 100)
Shihada.Label31.Caption = ActiveCell.Offset(0, 110)
Shihada.Label32.Caption = ActiveCell.Offset(0, 117)
Search.ComboBox1.Text = ""
Search.TextBox2.Value = ""
End If
Next
Shihada.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Set ws = Sheets("SH")
ws.Range("C12:C" & ws.Range("C" & Rows.Count).End(xlUp).Row).Name = "Sors"
ComboBox1.RowSource = "Sors"
End Sub



وهذا كود المحترم زيزو العجوز .. بارك الله له




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  06-11-2017 08:52 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
وهذا اثراء للاستاذ المحترم محمود الشريف لنفس الموضوع

attachSearch By Name _By Seat_5.rar




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  01-02-2019 06:08 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 01-08-2018
رقم العضوية : 7471
المشاركات : 109
الجنس :
تاريخ الميلاد : 15-10-1973
قوة السمعة : 176
الاعجاب : 0
موضوع مهم بارك الله فيك ممكن استخدم الرقم القومي مع الاسم




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  04-02-2019 09:45 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 04-02-2019
رقم العضوية : 11342
المشاركات : 104
الدولة : Burkina Faso
الجنس :
تاريخ الميلاد : 14-1-1989
قوة السمعة : 102
الاعجاب : 0
مبادرة طيبة
جزاكم الله خيرا




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  17-02-2019 06:28 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 14-12-2018
رقم العضوية : 10142
المشاركات : 63
الجنس :
تاريخ الميلاد : 7-4-1975
قوة السمعة : 78
الاعجاب : 0
بارك الله فيك




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  17-02-2019 07:19 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 169
الدولة : سورية
الجنس :
تاريخ الميلاد : 10-2-1968
قوة السمعة : 280
الاعجاب : 0
جزاكم الله خيرا




look/images/icons/i1.gif كود بحث بالاسم او برقم الجلوس
  27-03-2019 12:43 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 09-01-2019
رقم العضوية : 10911
المشاركات : 49
الجنس :
تاريخ الميلاد : 1-1-1972
قوة السمعة : 54
الاعجاب : 0
شكرا جزيلا وبارك الله فى علم الاساتذة الافاضل اعضاء المنتدى الكرام ونغعنا الله بعلمهم العظيم




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عمل كود للبحث بالاسم ورقم الجلوس لاحضار شهادة معينة saad mohamed
1 181 saad mohamed
بحث بالاسم محمد العاجيمي
2 1026 محمد العاجيمي
بحث بالاسم في جميع الشيتات عن طريق اليوزر فورم شبل
3 1237 مهند محسن
بحث بالاسم وتعبئة باقي الخلايا علي بطيخ سالم
4 1341 علي بطيخ سالم
تعبئة الكمبوبوكس بالاسماء المفلترة Khairi
0 661 Khairi

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









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

الساعة الآن 09:02 AM