رجب جاويش

أخى الحبيب / عباس السماوي جزاك الله كل خير على كلماتك الطيبة

أخى الفاضل تم تعديل الملف ليناسب طلبك ورقة1.rar

تفضل بعد تعديل الفورم لم يعمل اضافة سجلات جديدة.rar

تفضل بعد تعديل الفورم لم يعمل اضافة سجلات جديدة.rar

بعد اذن أخى الحبيب / عباس السماوى تفضل أخى ملحوظة : جميع أكواد الدوائر الحمراء التى يتم العمل بها فى المنتدى من عمل المبدع الكبير الأستاذ / عبد الله باقشير فله منا كل التحية والإعزاز والتقدير ونتمنى من الله أن يجعل هذا العمل فى ميزان حسناته ان شاء الله Book1.rar

تفضل بعد تعديل الفورم لم يعمل اضافة سجلات جديدة.rar

تفضل بعد تعديل الفورم لم يعمل اضافة سجلات جديدة.rar

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

أخى الفاضل / سعد عابد وفقنا الله وإياكم الى ما يحب ويرضى تقبل تحياتى وشكرى

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

L و T هى متغيرات رقمية تم تعريفها كلاتى dim L as integer , T as integer فتم حل المشكلة

جزاك الله كل خير أخى عبد الله فعلا الموضوع الذى أشرت اليه مميز جدا فعلا وسر تميزه هو أنه من ابداع أستاذنا الكبير / عبد الله باقشير

تفضل أخى هذه بعض التعديلات اضافة وبحث وتعديل وتكبير في فورم واحد للمكتبة الي النت.rar

أخى الفاضل / amfouad555 جزاك الله كل خير على مرورك العطر وكلماتك الطيبة

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

أخى الفاضل /jjebril أرجو توضيح المطلوب أكثر

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

أخى الفاضل تجد فى هذا الرابط دورة متكاملة فى شرح الفيجول بيسك للتطبيقات VBA http://www.officena.net/ib/index.php?showtopic=39323

أخى الفاضل يجب ألا تزيد البيانات الى هذا الحد ( الصف الأخير 65536 ) فهذا يؤثر على عمل الكود وعموما أنا جربت حتى الصف 30000 تقريبا والكود يعمل تمام أما بالنسبة للتكبير والتصغير تم تصغير نسبة التكبير قليلا كما فى الملف المرفق ويمكن التحكم فى نسبة التكبير كما تريد Me.Height = Me.Height + Me.Height * 0.25 Me.Width = Me.Width + Me.Width * 0.25 وذلك عن طريق التغيير فى الرقم 0.25 الموجود فى السطرين السابقين اضافة بحث لاي كلمة في الجملة.rar

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

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

M هى النص المكتوب فى مربع النص الذى يتم البحث عنه b5 وليس p5 أى الخلية التى توجد فى العمود b الصف الخامس q هى الخلية التى تمثل نتيجة البحث عن M

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

أخى الفاضل للبحث باستخدام بداية الكلمة يكون الكود كلآتى 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

تفضل أخى اضافة بحث لاي كلمة في الجملة.rar