prince hamid قام بنشر فبراير 14, 2020 مشاركة قام بنشر فبراير 14, 2020 السلام عليكم اخواني ،،، تحية طيبة لكم ،،، لدي ملف اكسل يحتوي على صفحتين صفحة يوجد بها البيانات وصفحة اخرى مخصصة للبحث عن البيانات التي بالصفحة الثانية ما اريد عمله هو محرك بحث بحيث عند كتابة اي رقم او كلمة او جزء من كلمة او جزء من رقم في مربع البحث يتم استدعاء كامل البيانات الذي وجدت به المعلومة اتمنى ان اجد منكم المساعدة وجزاكم الله خيرا list.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 14, 2020 أفضل إجابة مشاركة قام بنشر فبراير 14, 2020 حجم الملف كبير جداً حوالي(7000 صف) لذلك من المفترض ان يأخد وقتاً للتنفيذ الكود الملف المرفق نموذج عما تريد (فقط حوالي 50 صف) لمتابعة عمل الكود الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A4:g4")) Is Nothing And _ Target.Count = 1 Then Range("A4:g4").Interior.ColorIndex = 40 Target.Interior.ColorIndex = 6 Call find_please(Target.Row, Target.Column) End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++ Sub find_please(IRow, ICol) Dim R As Worksheet, L As Worksheet Dim S_rg As Range 'Source range Dim m%, Ro%, i% Set R = Sheets("recherche") Set L = Sheets("liste") Set S_rg = L.Range("a2", L.Range("G1").End(4)) Ro = S_rg.Rows.Count For i = 1 To 7 If i <> ICol Then R.Cells(IRow, i) = vbNullString End If Next R.Range("A9").CurrentRegion.Offset(1).ClearContents m = 10 For i = 1 To Ro If UCase(Mid(S_rg.Columns(ICol).Cells(i), 1, Len(R.Cells(IRow, ICol)))) = _ UCase(R.Cells(IRow, ICol)) Then R.Cells(m, 1).Resize(, 7).Value = _ S_rg.Rows(i).Value m = m + 1 End If Next End Sub الملف مرفق list_saerch.xlsm 5 رابط هذا التعليق شارك More sharing options...
prince hamid قام بنشر فبراير 14, 2020 الكاتب مشاركة قام بنشر فبراير 14, 2020 شكرا لك اخي الحبيب رابط هذا التعليق شارك More sharing options...
prince hamid قام بنشر فبراير 14, 2020 الكاتب مشاركة قام بنشر فبراير 14, 2020 عندا تحميل تعديل الاخ سليم خرج لي علامة تعجب في واجهة الملف ما معنى دالك مع العلم انا استعمل اكسل 2007 والماكرو مفعل عندي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 14, 2020 مشاركة قام بنشر فبراير 14, 2020 هذه العلامة تشير ان الملف يحتوي على ماكرو 1 رابط هذا التعليق شارك More sharing options...
prince hamid قام بنشر فبراير 14, 2020 الكاتب مشاركة قام بنشر فبراير 14, 2020 شكرا لك اخي 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر فبراير 14, 2020 مشاركة قام بنشر فبراير 14, 2020 أستاذ prince hamid مع كل هذه الإجابات فين الضغط على الإعجاب ؟!!💙 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.