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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil 2-طلب تحويل الكود من الحلقه التكراريه for الى array اكسيل اسئله واجابات


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



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





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

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



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

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

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

 

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







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


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


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


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





22-10-2018 11:17 صباحا
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 151
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 25
قوة السمعة : 1292
الاعجاب : 29
 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
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1311
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 53
قوة السمعة : 6071
الاعجاب : 843
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
احسنت استاذ ابراهيم بارك الله فيك وأكثر من امثالك



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


22-10-2018 03:34 مساء
مشاهدة مشاركة منفردة [5]
yehya mahmoud
menu_open
عضو نشيط
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
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 220
الاعجاب : 10
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
روعه وابداع والف مليون شكر يا استاذ / ابراهيم الحداد 
تم المطلوب والحمد لله بعد إضافة بسيطة للكود 
وجعل الله تعالى هذا العمل فى مبزان حسناتك وأدام الله عليك فضلك وعلمك
وللإساتذه / على محمد على  & ياسر خليل وكل الخبراء الكرام بهذا المنتدى الكبير لكم جميعاً منى ارق الأمنيات والتحيات وجعلكم الله دائماً
عوناً وسنداً لكل محتاج مساعدة او نصيحه لقضاء حوائج الأعضاء .
والحمد لله الذى بنعتمه تتم الصالحات  11114281


 





13-07-2019 10:52 صباحا
مشاهدة مشاركة منفردة [7]
هاشم بركات
menu_open
عضو
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
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 409
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3285
الاعجاب : 237
 offline 
look/images/icons/i1.gif البحث بمجرد كتابه اول حرف
بارك الله بكم اصدقائي
لكن الا ترون ان البحث عن حرف الاف المرات من 1 الى 10000 (كيف اذا كان هناك 40000) صف مع كل تغيير بسيط (حرف واحد للـ  TextBox1 )هو عمل مرهق للبرنامج ويأخذ وقتا ليس بالقليل.
لذلك اقترح استبدال الحلقات التكرارية بدالة رائعة يتمتع بها الـ VBA  في الاكسل وهي Find    &  FindNext 
لان هذه الدوال تضع يدها راساَ على الاسم المطلوب دون البحث عنه في كل الصفوف  

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

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




14-07-2019 07:01 صباحا
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 409
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3285
الاعجاب : 237
 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 مرات التحميل :(15)
الحجم :(107.423) KB


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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم السابق والتالى والبحث واضافة البيانات فيديو 3 مجدى يونس
5 38 ramous90
فورم السابق والتالى والبحث واضافة البيانات فيديو 2 مجدى يونس
4 27 مجدى يونس
البحث باليوزرفورم في جميع اوراق العمل ANASS1
5 38 محمود ابو الدهب
طلب كود ترحيل البيانات من الفورم الي الجدول مع كود البحث krimo145
8 152 krimo145
تعديل اخر نطاق البحث وجعله فى خلية ويكتب يدوى فى دالة countif Omar2
8 89 YasserKhalil

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


 







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



الساعة الآن 05:19 صباحا

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