اريد ان اجعل هذا الفورم ان يبحث في الجملة

[جمال جبريل]

اريد ان اجعل هذا الفورم ان يبحث في الجملة وليس في بدايتها فقط ، اي يبحث سواء في بداية الجملة او وسطها او نهايتها، اي البحث في اي موقع في الجملة.

تعديلل الكود بحيث يبحث عن الكلمة في الجملة.rar

[رجب جاويش]

تفضل أخى

اضافة بحث لاي كلمة في الجملة.rar

[جمال جبريل]

وفقكم الله في خدمة الشاب العربي وتعليمهم وتطويرهم.

فارجو شرح فقط الكود الذي يجعل للبحث عن بداية الكلمة ، او اي جزء من الجملة ، كا اود توضيح كيف الكود الخاص الذي يجعله يبحث في عمود ما او ورقة ما او عدة اوراق ، وزادكم الله علما.

[رجب جاويش]

أخى الفاضل

للبحث باستخدام بداية الكلمة يكون الكود كلآتى

If Application.WorksheetFunction.Search(M, q, 1) = 1 Then

أما عندما تريد البحث فى أى مكان فى الجملة يكون كلاتى

If Application.WorksheetFunction.Search(M, q, 0) = 1 Then

أى تغير الرقم 1 الى الرقم صفر والجزء الاتى هو الخاص بعمود البحث

Set q = .Range("b5:b" & LastRow).Find(M)

حيث عمود البحث هنا هو العمود B

[جمال جبريل]

وان اردت ان اجعله ابحث في عدة اوراق وكل الخلايا.

[رجب جاويش]

البحث فى عدة أوراق يحتاج تعديلات أكثر على الكود

[جمال جبريل]

ما معنى : q - p5 - M

[رجب جاويش]

M هى النص المكتوب فى مربع النص الذى يتم البحث عنه

b5 وليس p5 أى الخلية التى توجد فى العمود b الصف الخامس

q هى الخلية التى تمثل نتيجة البحث عن M

[جمال جبريل]

هذا الفروم يبحث الي حد معين من الصفوف واريد ان اجعله ان يبحث الي اكبر حد ممكن 65000 صف مثلا ، واجعله يبحث في اكثر من عمود

[رجب جاويش]

عدد الصفوف مرتبط بالبيانات الموجودة

يمكنك اضافة بيانات فى أى عدد من الصفوف ( آلاف الصفوف ) وسوف يتم البحث فيها

أما جعلة يبحث فى أكثر من عمود يحتاج بعض الوقت لعمل اللازم

[طائع]

استاذ رجب السلام عليكم

رجاء صغير ما هى كيفية عمل دائرة حول الدرجة التى أقل من 40 بالمعادلات وليس بالأكواد

[رجب جاويش]

وعليكم السلام

على حد علمى لا يمكن ذلك بالمعادلات

[جمال جبريل]

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

[رجب جاويش]

أخى الفاضل

يجب ألا تزيد البيانات الى هذا الحد ( الصف الأخير 65536 ) فهذا يؤثر على عمل الكود

وعموما أنا جربت حتى الصف 30000 تقريبا والكود يعمل تمام

أما بالنسبة للتكبير والتصغير تم تصغير نسبة التكبير قليلا كما فى الملف المرفق

ويمكن التحكم فى نسبة التكبير كما تريد

Me.Height = Me.Height + Me.Height * 0.25

Me.Width = Me.Width + Me.Width * 0.25

وذلك عن طريق التغيير فى الرقم 0.25 الموجود فى السطرين السابقين

اضافة بحث لاي كلمة في الجملة.rar

[جمال جبريل]

ربنا يزيدك من علمك ، واشكر جدا على التواصل معنا.

فهل يمكن ان تساعدنا في دخول وتعليم في الاكواد وخلاف ، اما ارشادنا عن كتب او مواقع تعليمية ... وجزاكم الله الف خير.

[رجب جاويش]

أخى الفاضل

تجد فى هذا الرابط دورة متكاملة فى شرح الفيجول بيسك للتطبيقات VBA

http://www.officena.net/ib/index.php?showtopic=39323

[جمال جبريل]

آسف ، اريد خدمة اخرى :

عند الاختيار اسم ما من ListBox1 اريد ان يتقلص ارتفاعه الي طول 596

[أبو ردينة]

الأخ الحبيب الأستاذ / رجب جاويش

بيض الله وجهك يوم تبيض وجوه و تسود وجوه - آمين

[رجب جاويش]

أخى الحبيب / أبو ردينة

جزاك الله كل خير أخى الحبيب على هذا الدعاء المبارك والكلمات الطيبة

[رجب جاويش]

أخى الفاضل /jjebril

أرجو توضيح المطلوب أكثر

[جمال جبريل]

بعد تنسيق الملف حدث خطا لا افهم ما هو وياتي الخطا على L1 ، فهل يمكن تصليح الخطا مع الشرح.

اضافة وبحث وتعديل وتكبير في فورم واحد للمكتبة الي النت.rar

[رجب جاويش]

تفضل أخى

هذه بعض التعديلات

اضافة وبحث وتعديل وتكبير في فورم واحد للمكتبة الي النت.rar

[جمال جبريل]

طيب علمنا الخطا كان فين علشان ما نتعبك في المستقبل ، مع الملاحظة انه يعمل مع الحرف الاول فقط.

[جمال جبريل]

وما معنى حرف الـــ L

[رجب جاويش]

L و T هى متغيرات رقمية تم تعريفها كلاتى

dim L as integer , T as integer

فتم حل المشكلة