sarab1618

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

فكرة حلوة وتستحق التقدير

مجهود جميل .... تابع ونحن معك ...

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

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

للرفع ... الملف الذي ارفقته سابقا فيه بعض المشاكل ولكنني رفعته على عجل ... لكن الفكرة يمكن تطبيقها عليه بحيث عند كتابة أي قيمة في التكست بوكس يتم تفعيل زر الامر بالضغط على زر انتر لتنفيذ كود زر الامر المعني به ... وشكرا سلفا

الملاحظ أن الوقت يبقى ثابتا على الفورم فما هو السبب

شكرا على الجهد الكبير

الملف المرفق للبحث عن اسم من مجموعة اسماء والمطلوب البحث عن الاسم في مربع النص بمجرد الضغط على زر الانتر ليقوم زر الامر ( البحث ) بايجاد النتائج في الليست بوكس الموجود ... البحث بجزئ من الاسم.rar

إذا كان لدي فورم يحوي textbox و commandbutton واشياء أخرى ... الكود المطلوب جعل زر الامر مفعل ليعمل بمجرد الضغط على Enter وذلك من خلال تغير قيمة textbox ( ادخال قيمة معينة ) ونضغط على enter ليعمل كود زر الأمر clik >>> وشكرا سلفا

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

وقد لاحظت بأن الأمر ( تفريغ ) يعطي رسالة خطا بسبب مشكلة في كود الليست بوكس ...

ألف شكر أستاذ أحمد وبجد مجهودك أكثر من رائع .... لكن قمت بتبديل الأكواد على قاعدة البيانات الأساسية - وهي أكبر من الفورم بكثير - وعملية البحث كانت تستغرق دقيقة أما بعد فكرتك الاخيرة أصبحت الفترة حوالي عشرون ثانية وهذا جيد ... وبالمناسبة ماذا تعني بعبارة ( اعتقد لو استخدم find سيصبح اسرع من loop ) أرجو ألا أكون مملا أو لحوحا لكن الفورم يأخذ كل تفكيري ...

الفورم المرفق يعمل علي البحث عن قيمة محددة واظهار كافة المعلومات المرتبطة بهذه القيمة والنية لدي على تطوير هذا الفورم شيئاً فشيئا لكن واجهتني مشكلة البطئ في إظهار النتائج بسبب كبر قاعدة البيانات فقد تصل إلى ( 50000 ) صف فما هو العمل لجعل الفورم يعمل بسرعة أكبر ... وشكرا على الردود والمرور مسبقاً ... 2222.rar

كيف نستخدم دالة البحث الجاهزة بالإكسل

السلام عليكم ... كنت أعمل على فورم بحث عن بيانات في ملف اكسيل يتضمن بياتات ضحمة ( أكثر من 10000 صف ) و من الممكن أن يزداد حجم البيانات مع الوقت ... والفورم الذي أعمل عليه يعطيني ما أريده لكن عند إعطائه أمر البحث فإن النتائج تأخذ وقتا طويلا للظهور في الفورم ( الشرح بالتفصيل لأني حائر وأحتاج لمشورة من أهل الخبرة والتجربة ) ولكم جزيل الشكر لكل من ساهم في هذا المنتدى الرائع .... أستودعكم الله

للرفع مع الاعتذار مسبقا

السلام عليكم ... الحقيقة هذه الدروس غاية في الروعة والافادة ... جعل الله ثواب هذا العلم في ميزان حسنات كاتبها وقارئها ومحب الخير أينما وجد ...

للرفع

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

عذرا مرة أخرى لكن واجهتني مشكلة في أن قاعدة البيانات كبيرة جدا ... وعندما أحاول البحث عن كلمة محددة يكون هناك بطئ شديد ... عند كتابة أي حرف علي الانتظار وقت طويل ليسمح لي الفورم بكتابة الحرف الثاني وهكذا ...ماذا علي أن أعدل في تعليمة البحث text box 35 حتى لا يبدأ البحث إلا بعد كتابة الكلمة المراد البحث عنها والضغط على زر الادخال ( الانتر) ...وشكرا

ألف شكر وجزيت عنا كل خير .................

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

للرفع

أعمل على فورم يساعدني في العمل والمطلوب بعد عملية البحث تحديد الخلية موضوع البحث ... الفورم يعمل بشكل ممتاز في عملية البحث ولكنه يعطي اشارة خطأ في تحديد الخلية أو الصف ... كود التحديد المعني مكتوب في آخر الكود الرئيسي ....فما هو الكود الصحيح لاتمام عملية التحديد.... ListBox1.ListIndex = ComboBox1.ListIndex End Sub Private Sub CommandButton17_Click() For i = 1 To 10 Me.Controls("TextBox" & i).Value = "" TextBox35.Text = "" TextBox33.Text = "" ComboBox1.Clear ListBox1.Clear Next For i = 1 To 10 Me.Controls("TextBox" & i).Value = "" Next For i = 1 To 10 Me.Controls("TextBox" & i).TabStop = True Next TextBox35.Text = "" TextBox33.Text = "" ComboBox1.Clear ListBox1.Clear End Sub Private Sub CommandButton18_Click() UserForm1.Left = -540 End Sub Private Sub CommandButton9_Click() UserForm1.Left = 70 End Sub Private Sub ListBox1_Change() ComboBox1.ListIndex = ListBox1.ListIndex lastrow = ورقة2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To lastrow For r = 1 To 10 If ورقة2.Cells(i, 1) = ComboBox1.Text Then Me.Controls("TextBox" & r).Value = ورقة2.Cells(i, r).Value End If Next Next End Sub Private Sub CommandButton6_Click() Workbooks.Application.Visible = True UserForm1.Hide End Sub Private Sub CommandButton7_Click() End End Sub Private Sub TextBox35_Change() lastrow = ورقة2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 10 UserForm1.ComboBox1.Clear UserForm1.ListBox1.Clear For T = 1 To lastrow If InStr(ورقة2.Cells(T, 3).Text, TextBox35.Text) > 0 Then Me.ComboBox1.AddItem ورقة2.Cells(T, 1) Me.ListBox1.AddItem ورقة2.Cells(T, 3) Me.Controls("TextBox" & i).Value = ورقة2.Cells(T, i).Value End If Next Next If TextBox35.Text = "" Then UserForm1.ComboBox1.Clear UserForm1.ListBox1.Clear End If End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True MsgBox "للخروج من البرنامج يرجى الضغط على خروج ", vbInformation, "ملاحظة" End Sub Private Sub TextBox33_Change() lastrow = ورقة2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 10 UserForm1.ComboBox1.Clear UserForm1.ListBox1.Clear For T = 1 To lastrow If Mid(TextBox33.Text, 1, Len(TextBox33.Text)) = Mid(ورقة2.Cells(T, 3).Text, 1, Len(TextBox33.Text)) Then Me.ComboBox1.AddItem ورقة2.Cells(T, 1) Me.ListBox1.AddItem ورقة2.Cells(T, 3) Me.Controls("TextBox" & i).Value = ورقة2.Cells(T, i).Value End If Next Next If TextBox33.Text = "" Then UserForm1.ComboBox1.Clear UserForm1.ListBox1.Clear End If End Sub Private Sub ListBox1_Click() 'Dim S_1 As String S_1 = ListBox1.List(ListBox1.ListIndex, 0) Range(S_1, 3).Select End Sub