skyblue قام بنشر يناير 29, 2006 مشاركة قام بنشر يناير 29, 2006 بسم الله الرحمن الرحيم اخواني لدي في الرابط ادناه ملف به كود بحث لجميع اوراق العمل . ممكن احد يساعدني في التعديل على الكود ليقتصر البحث فقط على sheet1وشكرا لكمFind3.rar رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 29, 2006 مشاركة قام بنشر يناير 29, 2006 الملف بعد التعديل ليصير البحث فى ورقة العمل الفاعلة فقط ملحوظة الملف الاصلي للاخ محمد حجازي Find4.rar رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر يناير 30, 2006 الكاتب مشاركة قام بنشر يناير 30, 2006 استاذنا الكبير /محمد طاهر حفظه الله ورعاه السلام عليكم ورحمة الله وبركاته : كم انا سعيد لانك قمت بالرد على سؤالي وبالذات من سعادتكم انتم باعتبارك مؤسس هذا المنتدى الرائع . التعديل كان رائعا ولكنني اطمع في كرمك اكثر . هل يمكن جعل الكود يبحث في اوراق عمل انا احددها له . فمثلا بدلا من ان اجعل الكود يبحث في الورقة الفاعلة اريد اجعله يبحث في sheet1 , sheet2 معا . لانني اريد استخدام هذا الكود في برنامج لدي حيث انني اريد ان يكون زر البحث في ورقة مستقلة وليس في الورقة اللي بها بيانات البحث . وشكرا لكم رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 30, 2006 مشاركة قام بنشر يناير 30, 2006 اضف السطر التالي بعد جملة For For Each MySheet In ActiveWorkbook.Worksheets If MySheet.Name = "Sheet2" Then و ذلك لاضافة شرط بان ورقة العمل اسمها sheet2 ثم اضف ال end , قبل end if End If End If و اغلاق جملة الشرط Find5.rar رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر يناير 30, 2006 الكاتب مشاركة قام بنشر يناير 30, 2006 استاذي الفاضل لقد جربت الملف find5 ولكنني وجدت انه لايظهر ايه نتيجة في البحث ففي كل مرة يظهر لنا " لم يتم العثورعلى البيانات التي تبحث عنها " فما المشكلة وجزاك الله عنا وعن جميع المسلمين كل خير رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 31, 2006 مشاركة قام بنشر يناير 31, 2006 نعم هناك خطأ و تم تعديله و هو حذف exit for جرب الان رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر يناير 31, 2006 الكاتب مشاركة قام بنشر يناير 31, 2006 بسم الله الرحمن الرحيم استاذي الفاضل / ادعوا الله لك ان يكثر مالك وولدك ويدخلك الجنة. فعلا الملف اكثر من رائع .ومن باب الاستفادة هل يمكن ان اضيف مع sheet2 الورقة sheet1 وبالتالي يصبح الكود يبحث في الورقتين sheet1-sheet2وشكرا لكم رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر فبراير 1, 2006 مشاركة قام بنشر فبراير 1, 2006 نعم يمكن اضافة اكثر من شيت كما يلي If MySheet.Name = "Sheet2" Or MySheet.Name = "Sheet3" Then رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر فبراير 1, 2006 الكاتب مشاركة قام بنشر فبراير 1, 2006 السلام عليكم ورحمة اله وبركاته وبعد : استاذنا الكبير /محمد طاهر ادعوا الله سبحانه وتعالى ان يسهل امرك ويجعل لك من كل ضيق مخرجا ويرزقك الجنة . الحقيقة لقد عملت خيرا كثيرا بتأسيسكم هذا المنتدى اللي خدمنا وخدم الكثير والكثير والشى اللي نحصل عليه ويحصل عليه غيرنا هنا غير موجود في اي موقع اخر وحتى الكتب لاتجد فيها ماهو موجود هنا . فالجميع عمل برامج في العمل افادتهم وافادتهم الكثير من الناس وانا واحدا منهم .فأدعوا الله ان لايحرمك أجر هؤلاء لانك قدمت خيرا استفاد به الناس . وشكرا لكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها