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

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


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



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





البحث بمجرد كتابه اول حرف

السلام عليكم جميعاً الى كل ( النوابغ والمبدعين وكبرائنا فى هذا السرح الكبير ) ارجوا من حضراتكم تصحيح الكود الخاص بالفورم ..



22-10-2018 01:59 صباحا
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 161
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 212
الاعجاب : 6
 offline 

السلام عليكم جميعاً
الى كل ( النوابغ والمبدعين وكبرائنا فى هذا السرح الكبير )
ارجوا من حضراتكم تصحيح الكود الخاص بالفورمه فى الملف المرفق لكى يعمل بصورة سليمة

توضيح بسيط
عند البحث عن اى اسم يقوم بكتابه التسلسل لهذا الإسم وليس الكود المرفق له بجوارة فى العمود الأول موفق صورة توضح بشكل اكثر للمشكلة
ارجوا من حضراتكم عدم البخل علينا بالمساعدة وهذا ليس بجديد عليكم
الف شكر مقدماَ .... تقبلوا تحياتى   111142 

 

 
  بحث بكتابة اول حرف.jpg   تحميل jpg بحث بكتابة اول حرف.jpg مرات التحميل :(6)
الحجم :(114.995) KB
 
  البحث بمجرد كتابه اول حرف من خلال ليست بوكس .rar   تحميل rar مرات التحميل :(8)
الحجم :(103.96) KB







22-10-2018 03:54 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1068
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4571
الاعجاب : 271
 Online 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
وعليكم السلام-تفضل عليك كتابة رقم الكود فى التكست بوكس ثم الضغط على ايقونة Search سيتم عرض البيانات فى الليست بوكس
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  البحث بمجرد كتابه اول حرف من خلال ليست بوكس .rar   تحميل rar مرات التحميل :(14)
الحجم :(103.631) KB


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


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


22-10-2018 07:36 صباحا
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 161
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 212
الاعجاب : 6
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
الف شكر يا استاذ/ على محمد  يا مبدع
ولكن اخى الكريم ( كده الكود فقد خاصيته المطلوبه منه ) الا وهو بمجرد كتابة حرف او جزء من اسم الموظف يأتى بكل المتشابه او الإسم بالكامل
لهذا الموظف فى الليست بوكس لأنه ممكن يكون عندى اكثر من 40000 موظف وطبعاً انا مش هاكون حافظ اكوادهم والا لماذا عملت كود البحث هذا
برجاء من حضرتك تفعيل خاصية البحث بمجرد كتابة جزء من الإسم .
انا عارف ان اسئلتى كثيرة بس انا طامع فى كرم حضرتك ومتشكر لحضرتك ولو لم ترد على طلبى هذا .
تقبل تحياتى يا عبقرى  ... ونهارك زى الفل ان شاء الله   3





22-10-2018 11:17 صباحا
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 148
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 23
قوة السمعة : 1241
الاعجاب : 10
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
السلام عليكم ورحمة الله
استخدم هذا الكود فى حدث الفورم
Private Sub TextBox1_Change()
   ListBox1.Clear
   ListBox1.RowSource = ""
Dim C As Range, i As Integer
For Each C In Range("b5:b10000")
If Left(C.Value, Len(Me.TextBox1)) = Me.TextBox1.Value Then
         Me.ListBox1.AddItem
         Me.ListBox1.List(i, 0) = C.Offset(0, -1)
         Me.ListBox1.List(i, 1) = C.Value
                  i = i + 1

    End If
Next C
If Me.TextBox1.Value = "" Then Me.ListBox1.Clear
End Sub

 

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




22-10-2018 12:00 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1068
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4571
الاعجاب : 271
 Online 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
احسنت استاذ ابراهيم بارك الله فيك وأكثر من امثالك



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


22-10-2018 03:34 مساء
مشاهدة مشاركة منفردة [5]
yehya mahmoud
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 53
الاعجاب : 0
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
بارك الله فيكم وأكثر من امثالكم





22-10-2018 06:05 مساء
مشاهدة مشاركة منفردة [6]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 161
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 212
الاعجاب : 6
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
روعه وابداع والف مليون شكر يا استاذ / ابراهيم الحداد 
تم المطلوب والحمد لله بعد إضافة بسيطة للكود 
وجعل الله تعالى هذا العمل فى مبزان حسناتك وأدام الله عليك فضلك وعلمك
وللإساتذه / على محمد على  & ياسر خليل وكل الخبراء الكرام بهذا المنتدى الكبير لكم جميعاً منى ارق الأمنيات والتحيات وجعلكم الله دائماً
عوناً وسنداً لكل محتاج مساعدة او نصيحه لقضاء حوائج الأعضاء .
والحمد لله الذى بنعتمه تتم الصالحات  11114281


 





13-07-2019 10:52 صباحا
مشاهدة مشاركة منفردة [7]
هاشم بركات
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 708
المشاركات : 12
الجنس : ذكر
تاريخ الميلاد : 15-1-1968
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 1
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
بارك الله فيكم جميعا





14-07-2019 05:46 صباحا
مشاهدة مشاركة منفردة [8]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 356
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 14
قوة السمعة : 3029
الاعجاب : 133
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
بارك الله بكم اصدقائي
لكن الا ترون ان البحث عن حرف الاف المرات من 1 الى 10000 (كيف اذا كان هناك 40000) صف مع كل تغيير بسيط (حرف واحد للـ  TextBox1 )هو عمل مرهق للبرنامج ويأخذ وقتا ليس بالقليل.
لذلك اقترح استبدال الحلقات التكرارية بدالة رائعة يتمتع بها الـ VBA  في الاكسل وهي Find    &  FindNext 
لان هذه الدوال تضع يدها راساَ على الاسم المطلوب دون البحث عنه في كل الصفوف  

(سأحاول كتابة هكذا كود اذا سمح لي الوقت)

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




14-07-2019 07:01 صباحا
مشاهدة مشاركة منفردة [9]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 356
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 14
قوة السمعة : 3029
الاعجاب : 133
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
   مثلاً تصور حالك بين جمهور من 40000 شخص و تريد ان تفرز من من الاشخاص اسمه محمد بين هذا  الجمهور
 هناك حلان:
1- ان تذهب و تسأل كل شخص هل اسمك محمد  اذا قال نعم     تسجل اسمه ورقمه في ListBox
2- ان تنادي بالميكروفون : كل شخص اسمه محمد فليقف جانبا لتسجيل اسمه ورقمه في ListBox
      أي الحلين هو الأفضل ؟؟؟؟
      الدالة Find  تختار الحل الثاني
                        الكود المقترح  (يتم البحث فقط   بالأحرف الاولى من كل اسم)

Private Sub TextBox1_Change()
   ListBox1.Clear
   ListBox1.RowSource = ""
   Dim k#: k = 0
   Dim laste_row#
   Dim All_Rg As Range 'Range when we saecrh
   Dim Fd_Rg As Range  'Range to find
   Dim F_row#, A_row#  'First row by saerch,Actual row by saerch
   With Sheets("data")
    laste_row = .Cells(Rows.Count, 1).End(3).Row
    Set All_Rg = .Range("a5:B" & laste_row)
    Set Fd_Rg = All_Rg.Find(Left(TextBox1.Value, Len(TextBox1.Value)), lookat:=2)
       If Not Fd_Rg Is Nothing Then
          F_row = Fd_Rg.Row: A_row = F_row
            Do
               If Left(Fd_Rg, Len(TextBox1.Value)) = _
                  TextBox1.Value Then
                  ListBox1.AddItem .Cells(F_row, 1)
                  ListBox1.List(k, 1) = .Cells(F_row, 2)
                  k = k + 1
               End If
               Set Fd_Rg = All_Rg.FindNext(Fd_Rg)
                F_row = Fd_Rg.Row
                If F_row = A_row Then Exit Do
            Loop
        End If
   End With
    Me.TextBox_num = k
End Sub

الملف مع الكود الجديد
 
 
  Simple_Saech.rar   تحميل rar مرات التحميل :(10)
الحجم :(107.423) KB


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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث عن دالة عكس الدمج lazharbensaci
2 25 ali mohamed ali
فورم البحث بالرقم بطريقتين مع عدم اغلاق الفورم الا بعد الموافقة مجدى يونس
4 90 مجدى يونس
تسريع كود البحث محمد الخازمي
3 129 محمد الخازمي
البحث بشرطين mo7mad2008
4 195 مجدى يونس
مشكلة في تنفيد كود البحث في لليست بوكس المبتدأ
3 218 YasserKhalil

الكلمات الدلالية
البحث ، بمجرد ، كتابه ،


 







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



الساعة الآن 11:26 صباحا

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